yahoo

[supermarioenet]

sorry

[kfcSmitty]

designing cracks or any kind of malicious code is against the terms you agreed to when joining these forums. You may want to remove your post

[supermarioenet]

ok im sorry about that ... in that case i need a script that will login my yahoo name into yahoo

[dee-u]

What's happening in this thread?

[kfcSmitty]

lol nothing dee-u...He wanted some code to crack passwords in yahoo. When I mentioned no one would help him with that here, he left

[Jerk]

well if he wants a script or blah whatever to login into yahoo ill give it to him

In a mod

Public YId$
Public YPass$
Public YCookie$
Public ChatRoom$

Public Function GetCookie$(UserName$, PassWord$)
Dim User$
  User = Replace$(UserName, " ", "%20")
  Authentication = "GET /config/login?.tries=1&.src=chat&.last=&promo=&lg=us&.intl=us&.bypass=&.chkP=Y&.done=http%3A%2F%2Fchat.yahoo.com%2F%3Froom%3D30%2527s%253a%253a1600326617&login=" & User & "&passwd=" & PassWord & "&n=1 HTTP/1.0" & _
    vbCrLf & "Accept: */*" & vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf
End Function

Public Function LoginYcht$(UserName$, Cookie$)
Dim Pck$
    Pck = UserName & Chr(&H1) & Cookie
    LoginYcht = "YCHT" & String(2, 0) & Chr(&H1) & Chr(&H7D) & String(3, 0) & Chr(&H1) & String(2, 0) & CalSize(Len(Pck)) & Pck
End Function

Public Function LogOut$()
LogOut = "YCHT" & String(2, 0) & Chr(&H1) & Chr(&H7D) & String(3, 0) & Chr(&H2) & String(4, 0)
End Function
Public Function LeaveRoom$(ByVal RoomName$)
Dim Pck$
Pck = RoomName
LeaveRoom = "YCHT" & String(2, Chr(&H0)) & Chr(&H1) & Chr(&H7D) & String(3, Chr(&H0)) & Chr(&H12) & String(2, Chr(&H0)) & CalSize(Len(Pck)) & Pck
End Function

Public Function CalSize(ByVal PacketLen As Long) As String
CalSize = Chr(Int(PacketLen / 256)) & Chr(Int(PacketLen Mod 256))
End Function

Form

Private Sub Command1_Click()
If Command1.Caption = "Chat Login" Then
    Command1.Caption = "Chat Logout"
    YID = Text1.Text
    YPass = Text2.Text
    ChatRoom = Text3.Text
    S80Auth.Close
    S80Auth.Connect "edit.yahoo.com", 80
  Else
    Command1.Caption = "Chat Login"
    Command2.Caption = "Voice Login"
    S80Auth.Close
    S8002.Close
  End If
 End Sub


Private Sub S80Auth_Connect()
S80Auth.SendData GetCookie(YId, YPass)
End Sub


Private Sub S8002_Connect()
S8002.SendData Login(YId, YCookie)
End Sub


Private Sub S80Auth_DataArrival(ByVal bytesTotal&)
Dim Buffer$
S80Auth.GetData Buffer

Debug.Print Replace(Buffer, Chr(&H0), "*")

Dim IntStart%, IntStop%
Dim Cookie1$, Cookie2$

  If InStr(1, Buffer, "HTTP/1.1 302 Found") Then
    IntStart = InStr(1, Buffer, "Y=v=")
    IntStop = InStr(IntStart + 1, Buffer, ";") + 1
    Cookie1 = Mid(Buffer, IntStart, IntStop - IntStart)
    IntStart = InStr(1, Buffer, "T=z=")
    IntStop = InStr(IntStart + 1, Buffer, ";")
    Cookie2 = Mid(Buffer, IntStart, IntStop - IntStart)
    Cookie = Cookie1 & " " & Cookie2
    S8002Chat.Close
    S8002Chat.Connect "jcs.chat.dcn.yahoo.com", 8002
  Else
    S80Auth.Close
  End If
 End Sub

Private Sub S8002_DataArrival(ByVal bytesTotal&)
Dim Buffe$
S8002.GetData Buffer

Debug.Print Replace(Buffer, Chr(&H0), "*")

Dim StrString1$, StrString2$, StrString3$

  If Mid(Buffer, 12, 1) = Chr(&H1) Then
    'logged in
    S8002Chat.SendData JoinRoom(Room)
  ElseIf Mid(Buffer, 12, 1) = Chr(&H11) Then
    If InStr(1, Buffer, "vcauth=", vbTextCompare) > 0 Then
      StrString1 = Split(Buffer, "vcauth=")(1)
      StrString1 = Split(StrString1, "&.rmcat=")(0)
      StrString2 = Split(Buffer, "rmspace=")(1)
      StrString2 = Split(StrString2, "0")(0)
      StrString3 = Mid(Buffer, 17, Len(Buffer) - 16)
      StrString3 = Split(StrString3, "À€")(0)
      RoomSpace = StrString2
      VoiceToken = StrString1
      'S8002Chat.SendData LeaveRoom(Room)
    End If
    'user joins
  ElseIf Mid(Buffer, 12, 1) = Chr(&H12) Then
    'user leaves
  ElseIf Mid(Buffer, 12, 1) = Chr(&H41) Then
    'room messages
  End If
 End Sub

there that will log yah in and into a chat room
if he cant figure it out how to sniff packets and stuff theres no way he can do anything like cracking lol but here yah go

[kfcSmitty]

he wanted to try to make a brute password cracker :P just sending a list of words in a sequence to the server lol...Nothing that complex

[Jerk]

he couldnt do that anyways with yahoo after so many times yah login fails on one name they lock the account and plus he have to be a http proxy or his ip would get ban and as of now http proxy for yahoo servers most are ban so it hard to find any that arent ban by yahoo servers its more complicated then yah think lol

[Nerd-Man]

dont give any crack codes to anyone. it is very illegal to steal password as someone did that to me long time ago on msn and i hate it and i dont want that happen to me or to anyone since then, i keep a backup list of my friend list because when i get hacked, i lost my friend list and you know no one can remember a friend list that is really long. anyway i dont use msn anymore as i believe msn is very unsecure and anybody can hack me there and i dont want that happen to me again but this time its not msn. so please remove the coding part from this post so that no one can read it. hope you can understand what they did to me with that crack codes or whatever it was they use.

[si_the_geek]

I understand your concerns, and completely agree (as do the site rules).

However, there's no need to remove the code, as it does not do anything bad - you need to manually enter the username/password to make it work.

[Nerd-Man]

ok no problem and i copy the source so i can make a yahoo email checker in my customize way so i dont have to goto yahoo page and enter my id and pass everytime i check my emails. i need to make one real badly as i use only yahoo mail because i believe yahoo is better secure then msn and in 3 years, i never get hacked on yahoo. but i msn is very unsecure and i am not the only victim on msn, i know alots of people who get hacked under msn. anyway, is it possible i can make a email checker using web browser control to check my emails on yahoo without typing the password and id and it let me go directly into my inbox. i been thinking about one to make a quick access to my inbox and send or read emails faster. also i forgot what these char means Chr(&H41) or Chr(&H12) or Chr(&H0). so please tell me what Chr means.

[si_the_geek]

Chr returns a character, based on the Ascii value you give it. The values you showed are Hex (they start with &H), so for example &H41 is the same as 65, which is the Ascii code for the character A.

For the rest of your questions, you should start a new thread - as there will be a lot of work that is unrelated to this one.

[Nerd-Man]

then is it not possible to send A directly instead of sending Chr(&H41) and how can know all the codes for &H1 or &H7D etc. do i need to know these for my quick yahoo email checker and how can i use the code above to login into yahoo and check my emails. i need to know how to go to my inbox and read the new emails. what i have made is to save my user name and password into the registry from the textbox but i dont know how to go into the yahoo mail inbox using web browser control. so will i have to sniff the network packets for that or will i be able to do that using the above codes. i am confused with the code above.

[si_the_geek]

The code above is not what you need at all (and you do not need to know the values etc). You should be able to simply use a WebBrowser control, and use code put the login details into it & click "login" (or whatever the button is called).

There are many examples of doing this kind of thing, so a Search should find them. If you have any problems, start a new thread in an appropriate forum (probably Classic Visual Basic), rather than hijacking someone elses (unrelated) thread as you are currently doing.

[Nerd-Man]

oops sorry, you are right. not going to post here.