Membuat Function Encrypt untuk MengEncrypt Teks di Visual Basic 6.0

Minggu, Maret 16, 2008 | | Comments

Ini adalah salah satu contoh Function untuk meng encrypt teks di visual basic 6.0, dengan menggunakan metode Xor yang lumayan ribet juga mahamin logikane (Maklum dapetnya copy paste dari temen Big Grin ) Lumayan dapat digunakan untuk mengenkrip data password atau data laen biar tidak bisa dilihat langsung lewat database, jadi datanya hanya bisa dibaca oleh program saja. Daripada ntar Aq sendiri lupa code nya, akhirnya tak taruh blog aja deh, ntar klo lupa tinggal lihat lagi aja di blog. Btul ga??

Encrypt

Cara buatnya cukup mudah :

  • Buat Project baru, dan tambahkan code berikut kedalam form atau modul anda
       1: Function crypt(Action As String,Key As String, Src As String) As String


       2: Dim Count As Integer, KeyPos As Integer, KeyLen As Integer


       3: Dim SrcAsc As Integer, Dest As String, offset As Integer


       4: Dim TmpSrcAsc, SrcPos


       5: KeyLen = Len(Key)


       6: If Action = "E" Then


       7: Randomize


       8: offset = (Rnd * 10000 Mod 255) + 1


       9: Dest = Hex$(offset)


      10: If Len(Dest) = 1 Then


      11: Dest = "0" + Dest


      12: End If


      13: For SrcPos = 1 To Len(Src)


      14: SrcAsc =(Asc(Mid$(Src, SrcPos, 1)) + offset) Mod 255


      15: If KeyPos < KeyLen Then KeyPos = KeyPos + 1 Else KeyPos = 1


      16: SrcAsc = SrcAsc Xor Asc(Mid$(Key, KeyPos, 1))


      17: Dest = Dest + Format$(Hex$(SrcAsc), "@@")


      18: offset = SrcAsc


      19: Next


      20: ElseIf Action = "D" Then


      21: offset = Val("&H" + Left$(Src, 2))


      22: For SrcPos = 3 To Len(Src) Step 2


      23: SrcAsc = Val("&H"+ Trim(Mid$(Src, SrcPos, 2)))


      24: If KeyPos < KeyLen Then


      25: KeyPos= KeyPos + 1


      26: Else


      27: KeyPos= 1


      28: End If


      29: TmpSrcAsc = SrcAsc Xor Asc(Mid$(Key, KeyPos, 1))


      30: If TmpSrcAsc <=offset Then


      31: TmpSrcAsc = 255 + TmpSrcAsc - offset


      32: Else


      33: TmpSrcAsc = TmpSrcAsc - offset


      34: End If


      35: Dest = Dest +Chr(TmpSrcAsc)


      36: offset = SrcAsc


      37: Next


      38: End If


      39: crypt = Dest


      40: End Function








  • Kemudian untuk mengencrypt suatu teks gunakan metode



    Crypt(”E”,”TeksKunci”,”TeksyangdiEnkripsi”)




  • Sedangkan untuk mengembalikan / decrypt lagi gunakan metode

    Crypt(”D”,”TeksKunci”,”TeksyangdiDekripsi”)



Contoh Project Encrypt bisa di DOWNLOAD di SINI



source : davidnakoko.wordpress.com