String Encryptor & Decryptor

—————————————–
Jumpa lagi bersama saya…
Kali ini mo bagi-bagi ilmu lagi neh gak enak kalo disimpan sendiri…
Aplikasi ini berfungsi untuk meng-encrypt & decrypt string(tentunya teman2 sekalian tau artinya)
Biasanya teknik ini digunakan oleh beberapa virus untuk meng-encrypt stringnya agar tidak
diketahui / sulit untuk dianalisa karena string yang sebenarnya bisa dibaca manusia
telah di-encrypt agar tidak dapat dibaca.
Kali ini kita menggunakan bahasa pemrograman Visual Basic 6.0

Silahkan download source codenya di Sini

Semoga dapat membantu dalan pengembangan aplikasi anda(dan tentunya semoga tidak disalahgunakan)
*_^

Thankz to:
- All vb-bego.com user
- Mas Admin

Greetz,
aNaRkY

Disertakan juga contoh penggunaannya pada aplikasi…

‘——————————————————————–

‘ EXTRA : (CONTOH PENGGUNAANNYA PADA APLIKASI BUATAN KAMU)

‘——————————————————————–

‘ Misal kita membuat sebuah aplikasi untuk meng-kill suatu process

‘ Dengan sebuah contoh fungsi:

‘ ————————————————————

‘ Private sub KillProc(byval appname as string)

‘ shell “taskkill /f /im ” & appname, vbHide

‘ End Sub

‘ ————————————————————

‘ Penggunaannya:

‘ KillProc “notepad.exe” atau KillProc(”notepad.exe”)

‘

‘ Dengan ini jika aplikasi selesai dikompilasi lalu dibuka

‘ dan dilihat isinya dengan Hex Editor, jika string notepad.exe

‘ di search maka akan segera ditemukan.

‘ Dan yang terjadi adalah apa yang di-kill oleh aplikasi kita

‘ terlihat dari hex editor…

‘ ————————————————————

‘ Tapi jika penggunaannya Menggunakan Teknik encrypt & decrypt string

‘ Maka Dapat dicontohkan sebagai berikut:

‘ Jalankan aplikasi ini lalu encrypt string “notepad.exe”

‘ Maka hasilnya adalah “pqvgrcf0gzg”

‘ Lalu kopikan fungsi Decrypt pada aplikasi KillProcess kamu

‘ Jadinya sbb:

‘ ————————————————————

‘ Private sub KillProc(byval appname as string)

‘ shell “taskkill /f /im ” & appname, vbHide

‘ End Sub

‘

‘ Private Function Decrypt(ByVal nilai As String) As String

‘ Dim x As String

‘ Dim y As Integer

‘ Dim hasil As String

‘ For i = 1 To Len(nilai)

‘ x = Mid(nilai, i, 1)

‘ y = Asc(x) – 2 ‘pengurangan karakter sebanyak 2 sehingga mengembalikan karakter yang di encrypt

‘ hasil = hasil + Chr(y) ‘ke karakter sebelumnya / asli. contoh: c menjadi a, dsb

‘ Next i

‘ Decrypt = hasil

‘ End Function

‘ ———————————————————–

‘ Penggunaannya:

‘ KillProc Decrypt(”pqvgrcf0gzg”)

‘

‘ Dengan ini ketika aplikasi dengan fungsi ini maka aplikasi

‘ akan mengkill process yang setelah di decrypt namanya adalah

‘ “notepad.exe”.

‘ Tentunya jika app kita dibuka melalui hex editor dan dicari string

‘ “notepad.exe” tidak akan ditemukan. Dan aplikasi yang akan dikill oleh

‘ aplikasi kita tidak terlihat di hex editor kecuali kita mendapat stringnya

‘ lalu kita decrypt lagi dengan menggunakan aplikasi ini.

‘ ———————————————————–

‘ Saya kira cukup sampai di sini saja, dan saya rasa cukup untuk teman2 sekalian.

‘ Semoga dapat menambah pengetahuan teman2 sekalian…

‘ Sampai jumpa di lain waktu dan di lain dunia. Hehehe…

‘——————————————————————–