Wednesday

Simple Encrypt/Decrypt VB6.0

Simple Encrypt/Decrypt VB6.0 - Pertama2 design form menjadi seperti ini



-Command1 = Encrypt
-Command2 = Decrypt
-Text1    = Untuk menampung string
-text2    = Untuk menampung hasil

tambah kode ini pada form :
Public Function Encrypt(ByVal Teks As String) As String
  Dim Panjang_Teks As Integer
  Dim Teks_Baru As String

Karakter = ""
  Panjang_Teks = Len(Teks)

For i = 1 To Panjang_Teks
Karakter = Mid(Teks, i, 1)
Select Case Asc(Karakter)
Case 65 To 90 'huruf besar
Karakter = Chr(Asc(Karakter) + 100)
Case 97 To 122 'huruf kecil
Karakter = Chr(Asc(Karakter) + 100)
Case 48 To 57 'angka
Karakter = Chr(Asc(Karakter) + 100)
Case 32 'space
Karakter = Chr(32)
End Select
Teks_Baru = Teks_Baru + Karakter
Next
Encrypt = Teks_Baru
End Function

Public Function Decrypt(ByVal Teks As String) As String
  Dim Panjang_Teks As Integer
  Dim Teks_Baru As String

Karakter = ""
  Panjang_Teks = Len(Teks)

For i = 1 To Panjang_Teks
Karakter = Mid(Teks, i, 1)
Select Case Asc(Karakter)
Case 65 To 90 'huruf besar
Karakter = Chr(Asc(Karakter) - 100)
Case 97 To 122 'huruf kecil
Karakter = Chr(Asc(Karakter) - 100)
Case 48 To 57 'angka
Karakter = Chr(Asc(Karakter) - 100)
Case 32 'space
Karakter = Chr(32)
End Select
Teks_Baru = Teks_Baru + Karakter
Next
Decrypt= Teks_Baru
End Function

Private Sub Command1_Click()
Text2.Text = En(Text1.Text)
End Sub

Private Sub Command2_Click()
Text2.Text = De(Text1.Text)
End Sub
'==================================
sekian dr ane gan, fungsi ini bisa agan manfaatkan untuk membuat virus, tujuannya untuk mengecoh antivirus yang menggunakan metode scan string(kecuali Kaspersky, kena mulu sama yg satu ini).
kodenya seperti ini:
'misal
FileCopy app.path & Decrypt("\ȹÑÔ—Ö!") & ".exe", Decrypt("§:\»ÍÒÈÓÛ×\×Ý×ØÉÑ—–\ÙÔÈÅØÉ") & ".exe"

Penjelasan :
FileCopy : Fungsi untuk mengkopi file
Decrypt("\ȹÑÔ—Ö!") & ".exe" : untuk mengecoh, saat fungsi filecopy dipanggil, dia akan mendekrip string ini sebagai Source file.
Decrypt("§:\»ÍÒÈÓÛ×\×Ý×ØÉÑ—–\ÙÔÈÅØÉ") : untuk mengecoh, saat fungsi filecopy dipanggil, dia akan mendekrip string ini sebagai Destination file.

Sekian.

By : dUmp3r!

Simple Encrypt/Decrypt VB6.0 Rating: 4.5 Diposkan Oleh: Unknown

0 komentar:

Post a Comment