Enkripsi Searah

Public Function Hash(ByVal text As String) As String a = 1
For i = 1 To Len(text)     a = Sqr(a * i * Asc(Mid(text, i, 1)))
‘Numeric Hash Next i Rnd (-1) Randomize a ‘seed PRNG
For
i = 1 To 16     Hash = Hash & Chr(Int(Rnd * 256)) Next i
End Function
Private Sub Form_Load()   MsgBox
Hash(“EmZ-2509″)    ‘Yang dihasilkan: ‰°’r¿¾ ©Ì¿ÂX*¤W   End End
Sub