wonder Expert Licensed User Longtime User Nov 17, 2016 #2 Haha! You remembered! Thank you so much Luca!!! I really appreciate it! I'm 0x21 today...
Erel B4X founder Staff member Licensed User Longtime User Nov 18, 2016 #6 B4X: Dim sr As SecureRandom 'encryption library Dim b(10000) As Byte sr.GetRandomBytes(b) Dim su As StringUtils Dim b64 As String = su.EncodeBase64(b) Dim age As Int = (b64.Length - b.Length) / b.Length * 100 Log($"Your age: ${age}"$)
B4X: Dim sr As SecureRandom 'encryption library Dim b(10000) As Byte sr.GetRandomBytes(b) Dim su As StringUtils Dim b64 As String = su.EncodeBase64(b) Dim age As Int = (b64.Length - b.Length) / b.Length * 100 Log($"Your age: ${age}"$)
wonder Expert Licensed User Longtime User Nov 18, 2016 #7 Ahahha, thank you so much guys!!! @Erel, clever code!!
AnandGupta Expert Licensed User Longtime User Nov 18, 2016 #8 I stick to simplicity. Happy Birthday Wonder Regards, Anand
LucaMs Expert Licensed User Longtime User Nov 18, 2016 #9 Erel's code does not work well here... unfortunately
Douglas Farias Expert Licensed User Longtime User Nov 18, 2016 #10 Parabéns @wonder, tudo de bom pra ti
Beja Expert Licensed User Longtime User Nov 20, 2016 #12 LucaMs said: Erel's code does not work well here... unfortunately Click to expand... Check your birth certificate?
LucaMs said: Erel's code does not work well here... unfortunately Click to expand... Check your birth certificate?
LucaMs Expert Licensed User Longtime User Nov 20, 2016 #13 Beja said: Check your birth certificate? Click to expand... It is written on papyrus paper