Membuat Enkripsi Searah

Untuk Enkripsi Searah dalam Visual Basic:

code dibawah ini dapat dijadikan acuan.
'membuat function Hash:

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




Ilmu Visual Basic



lihat belajar asp.net dari nol

Postingan populer dari blog ini

vb6 msflexgrid

Tutorial Visual Basic 6.0 : Listbox in VB6

Select Single Cell in MSHFlexgrid