Yahoo!’s Scheduled Maintenance

Option Explicit
Dim Crypt(1) As String
Dim SessionKey As String, Pck As String
Private Declare Function YMSG12_ScriptedMind_Encrypt Lib “YMSG12ENCRYPT.dll” (ByVal UserName As String, ByVal Password As String, ByVal Seed As String, ByVal result_6 As String, ByVal result_96 As String, intt As Long) As Boolean
Const Name As String = “YMSG”
Const Ver As Integer = 11
Public Function GetStrings(YahooID As String, YahooPass As String, Damn As String, Str1 As String, Str2 As String, Mode As Long) As Boolean
Dim A(1) As String, B As Long
On Error GoTo err
A(0) = String(100, vbNullChar)
A(1) = String(100, vbNullChar)
GetStrings = YMSG12_ScriptedMind_Encrypt(YahooID, YahooPass, Damn, A(0), A(1), Mode)
B = InStr(1, A(0), vbNullChar)
Str1 = Left$(A(0), B – 1)
B = InStr(1, A(1), vbNullChar)
Str2 = Left$(A(1), B – 1)
Exit Function
err:
GetStrings = False
End Function
Public Function Header(ByVal PacketType As String, ByVal Pck As String) As String
Dim i As Integer
Dim x As Integer
x = 0
i = Len(Pck)
Do While i > 255
i = i – 256
x = x + 1
Loop
Header = Name & Chr(0) & Chr(Ver) & String(2, 0) & Chr(x) & Chr(i) & Chr(0) & _
Chr(“&H” & PacketType) & String(8, 0) & Pck
Debug.Print Header
End Function
Public Function Get_Key(ByVal UserName As String) As String
Get_Key = “1À€” & UserName & “À€”
Get_Key = Header(57, Get_Key)
End Function
Public Function Login(ByVal UserName As String, ByVal Crypt1 As String, ByVal crypt2 As String) As String
Login = “6À€” & Crypt1 & “À€96À€” & crypt2 & “À€0À€” & UserName & “À€2À€1À€1À€” & UserName & _
“À€135À€5, 6, 0, 1347À€148À€300À€”
Login = Header(54, Login)
End Function