nimbuzz code

[solo.mero]

hello guys i wanted nimbuzz login code any1 here can help me ?

[incidentals]

what is nimbuzz ... oh is that what it is ...

just searched google

first hit = http://wap.nimbuzz.com/wap/

where you can down load it

is that all?

here to talk

[honeybee]

If you don't have a Nimbuzz account you should be able to create one for yourself. Why do you want to ask around for the same?

Incidentals, pray tell me what answer is that.

.

[incidentals]

the link takes him to where he can join

try it and see

it appears s though he knows about something ar has been told he needs something and did not attempt to find it even on google
so I googled and looked and returned what he was looking for..
as far as i could see a way to access the nimbuzz thing

oh yes legally!

was I wrong
is my english too problematic
have i lost it

please help! honeybee

BTW I have the parts you are missing (he he)

[b4db0yb4d]

Nimbuzz so easy More then mig33. long time b4 i did it here im sharing this code Mero....

' Orginal: b4db0yb4d
Public Function RandomString(ByVal length As Long) As String
    Dim charset As String
    charset = "1234567890"
    Dim chars() As Byte, value() As Byte, chrUprBnd As Long, i As Long
    If length > 0& Then
        Randomize
        chars = charset
        chrUprBnd = Len(charset) - 1&
        length = (length * 2&) - 1&
        ReDim value(length) As Byte
        For i = 0& To length Step 2&
            value(i) = chars(CLng(chrUprBnd * Rnd) * 2&)
        Next
    End If
    RandomString = value
End Function

Winsock1.SendData "<stream:stream to='nimbuzz.com' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'>"

' Orginal: b4db0yb4d
Dim DatIn As String
Winsock1.GetData DatIn
DatIn = Replace(DatIn, """", "'")
If InStr(DatIn, "<stream:features><starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/><compression xmlns='http://jabber.org/features/compress'><method>zlib</method></compression><mechanisms xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><mechanism>PLAIN</mechanism><mechanism>DIGEST-MD5</mechanism></mechanisms><register xmlns='http://jabber.org/features/iq-register'/></stream:features>") Then
    If Winsock1.State = 7 Then
    Winsock1.SendData "<iq type='set' xml:lang='en' id='NLgn' to='nimbuzz.com'><query xmlns='jabber:iq:auth'><username>" & txt_User1 & "</username><password>" & txt_Password1 & "</password><resource>" & txt_Resources1 & "-bawor" & "</resource></query></iq>"
    End If
DoEvents
End If
If InStr(DatIn, "<iq type='result' from='nimbuzz.com' xml:lang='en' id='NLgn'/>") Then
Me.Caption = "Logged in"
End If
If InStr(DatIn, "<iq type='error' from='nimbuzz.com' xml:lang='en' id='NLgn'><query xmlns='jabber:iq:auth'><username>" & txt_User1 & "</username><password>" & txt_Password1 & "</password><resource>" & txt_Resources1 & "-bawor" & "</resource></query><error code='401' type='auth'><not-authorized xmlns='urn:ietf:params:xml:ns:xmpp-stanzas'/></error></iq>") Then
Me.Caption = "Loggin Failed"
End If

Enjoy.....

[solo.mero]

thx u bro

[honeybee]

Is this by any chance an account hacking tool for the Nimbuzz?

.

[solo.mero]

hmm u can create crack tool but i wanted this code to develop nimbuzz simple tools on

[b4db0yb4d]

do not hack pplz they are inocente

[robi_thakur]

Is this by any chance an account hacking tool for the Nimbuzz?

.

do not use unknown tool,there's smell of hacking by instinct