hello guys i wanted nimbuzz login code any1 here can help me ?
Printable View
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