Belajar Enkripsi

Posted on February 14, 2010
Filed Under Lapak IT, VISUAL BASIC | Leave a Comment

buat rekan sejawat dan senasib jika kalian mulai mau belajar tentang celah keamanan terutama belajar enkripsi disini saya bahas dikit dengan menggunakan vb, untuk mempelajari lebih dalam sudah tersedia ebook-ebook yang beredar gratis.

‘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