nimbuzz code

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

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

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.

.

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)

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

RandString Code:

' 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

Winsock Connect Event Code:

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

Winsock Data Arrival Code:

' 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.....

thx u bro:)

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

.

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

vb Code:

do not hack pplz they are inocente

Quote:

---

Originally Posted by honeybee

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

.

---

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