Attribute VB_Name = "modAIMSends" Function AwayMessage(strType As String, strMessage As String) AwayMessage = Chr(0) & Chr(2) & Chr(0) & Chr(4) & String(5, Chr(0)) & Chr(4) & Chr(0) & Chr(3) & TwoByteLen(strType) & Chr(0) & Chr(4) & TwoByteLen(strMessage) End Function Function UserWarning(strType As String, strUserName As String) UserWarning = Chr(0) & Chr(4) & Chr(0) & Chr(8) & Chr(0) & Chr(0) & strType & Chr(Len(strUserName)) & strUserName End Function Function BlockUser(strUserName As String, intType As Integer) BlockUser = Chr(0) & Chr(19) & Chr(0) & Chr(intType) & Chr(0) & Chr(0) & Chr(0) & Chr(6) & Chr(0) & Chr(intType) & TwoByteLen(strUserName) & Chr(0) & Chr(0) & Chr(11) & Chr(17) & Chr(0) & Chr(3) & Chr(0) & Chr(0) 'ChrA ("0 19 0 " & intType & " 0 0 0 6 0 " & intType) & TwoByteLen(strUserName) & ChrA("0 0 11 17 0 3 0 0") End Function Function SendChat(strRequestID As String, strMessage As String) SendChat = ChrA("0 14 0 5 0 0 0 0 0 5") & strRequestID & ChrA("0 0 0 3 0 1 0 0 0 6 0 0 0 5") & TwoByteLen(ChrA("0 2 0 8") & "us-ascii" & ChrA("0 3 0 2") & "en" & ChrA("0 1") & TwoByteLen(strMessage)) End Function Function SendIM(strRequestID As String, strUserName As String, strMessage As String) SendIM = ChrA("0 4 0 6 0 0 0 10 0 6") & strRequestID & ChrA("0 1") & Chr(Len(strUserName)) & strUserName & ChrA("0 2") & TwoByteLen(ChrA("5 1 0 3 1 1 2 1 1") & TwoByteLen(ChrA("0 0 0 0") & strMessage)) End Function Function SendModal(strRequestID As String, strUserName As String) SendModal = ChrA("0 4 0 11 0 0 0 0 0 11") & strRequestID & ChrA("0 2") & Chr(Len(strUserName)) & strUserName & ChrA("0 3 0 2 0 1") End Function Function SendIM2(strRequestID As String, strUserName As String, strMessage As String) SendIM2 = ChrA("0 4 0 6 0 0 0 10 0 6") & strRequestID & ChrA("0 2") & Chr(Len(strUserName)) & strUserName & ChrA("0 5") & TwoByteLen(ChrA("5 1 0 3 1 1 2 1 1") & TwoByteLen(ChrA("0 0 0 0 H3C") & strMessage & ChrA("H3E"))) End Function Function BuddyIconEdit(strRequestID As String, strBuddyIcon As String, strIconThing) BuddyIconEdit = ChrA("0 5") & TwoByteLen(ChrA("0 0") & strRequestID & ChrA("9 70 19 70 76 127 17 209 130 34 68 69 83 84 0 0 0 10 0 2 0 1 0 15 0 0 39 17 3 136 0 0 131 211 0 0") & IntegerToBase256(Len(strBuddyIcon)) & strIconThing & strBuddyIcon & "AVT1picture.id") & ChrA("0 3 0 0") End Function Function FileSendEdit(strRequestID As String, strFileName As String) FileSendEdit = ChrA("0 5") & TwoByteLen(ChrA("0 0") & strRequestID & ChrA("9 70 19 67 76 127 17 209 130 34 68 69 83 84 0 0 0 10 0 2 0 1 0 15 0 0 0 3 0 4 65 13 107 17 0 5 0 2 20 70 39 17") & TwoByteLen(ChrA("0 1 0 1 0 0 3 110") & strFileName & ChrA("0 0 0 0 0 0 0"))) & ChrA("0 3 0 0") End Function Function BuddyListEdit(strRequestID As String, strBuddyList As String) BuddyListEdit = ChrA("0 5") & TwoByteLen(ChrA("0 0") & strRequestID & ChrA("9 70 19 75 76 127 17 209 130 34 68 69 83 84 0 0 0 10 0 2 0 1 0 15 0 0 39 17") & TwoByteLen(strBuddyList)) & ChrA("0 3 0 0") End Function Function WeirdChat(strRequestID As String, strMessage As String, strChatRoomURL As String) WeirdChat = ChrA("0 5") & TwoByteLen(ChrA("0 0") & strRequestID & ChrA("116 143 36 32 98 135 17 209 130 34 68 69 83 84 0 0 0 10 0 2 0 1 0 15 0 0 0 14") & TwoByteLen("en") & ChrA("0 13") & TwoByteLen("us-ascii") & ChrA("0 12") & TwoByteLen(strMessage) & ChrA("39 17") & TwoByteLen(ChrA("0 4") & Chr(Len(strChatRoomURL)) & strChatRoomURL & ChrA("0 0"))) & ChrA("0 3 0 0") End Function Function CustomChat(strRequestID As String, strLanguage As String, strType As String, strMessage As String, strChatRoomURL As String) CustomChat = ChrA("0 5") & TwoByteLen(ChrA("0 0") & strRequestID & ChrA("116 143 36 32 98 135 17 209 130 34 68 69 83 84 0 0 0 10 0 2 0 1 0 15 0 0 0 14") & TwoByteLen(strLanguage) & ChrA("0 13") & Str(strType) & ChrA("0 12") & TwoByteLen(strMessage) & ChrA("39 17") & TwoByteLen(ChrA("0 4") & Chr(Len(strChatRoomURL)) & strChatRoomURL & ChrA("0 0"))) & ChrA("0 3 0 0") End Function 'gameurl: 'aim:AddGame?name=NetMeeting&go1st=true&multiplayer=true&url=http://www.microsoft.com/windows/netmeeting/&cmd=msconf.dll,CallToProtocolHandler+%25i&servercmd=c:%5Cprogra~1%5CNetMeeting%5Cconf.exe&hint=If+it+takes+a+long+time+for+your+buddy+to+connect%3CBR%3Eto+you,+disable+the+following+preference+in+NetMeeting:%3CBR%3E'Log+on+to+a+directory+server+when+NetMeeting+starts'.' Function GameInvite(strRequestID As String, strMessage As String, strGameURL As String, strGameName As String) GameInvite = ChrA("0 5") & TwoByteLen(ChrA("0 0") & strRequestID & ChrA("9 70 19 71 76 127 17 209 130 34 68 69 83 84 0 0 0 10 0 2 0 1 0 15 0 0 0 14") & TwoByteLen("en") & ChrA("0 13") & TwoByteLen("us-ascii") & ChrA("0 12") & TwoByteLen(strMessage) & ChrA("0 3 0 4 64 163 30 79 0 5 0 2 20 70 0 7") & TwoByteLen(strGameURL) & ChrA("39 17") & TwoByteLen(ChrA("0 0 2 0 5 7 76 127 17 209 130 34 68 69 83 84 0 0 0 11 0 9") & strGameName & Chr(0) & "Fuck you" & ChrA("0 0 0 0 0"))) & ChrA("0 3 0 0") End Function Function BuddyListForm(strBuddyList) Dim K1, K2, K3, K4, K5() As String K5 = Split(strBuddyList, ";") BuddyListForm = TwoByteLen(K5(0)) BuddyListForm = BuddyListForm & IntegerToBase256(UBound(K5)) For i = 1 To UBound(K5) BuddyListForm = BuddyListForm & TwoByteLen(K5(i)) DoEvents Next i End Function Function BlankAttach(strRequestID As String, strCapa As String) BlankAttach = ChrA("0 5") & TwoByteLen(ChrA("0 0") & strRequestID & strCapa & ChrA("0 10 0 2 0 1 0 3 0 4 24 16 172 135 0 15 0 0 39 17 0 4 0 0 0 1")) & ChrA("0 3 0 0") End Function Function IMConnect(strRequestID As String) IMConnect = ChrA("0 5") & TwoByteLen(ChrA("0 0") & strRequestID & ChrA("9 70 19 69 76 127 17 209 130 34 68 69 83 84 0 0 0 10 0 2 0 1 0 3 0 4 24 16 172 135 0 5 0 2 20 70 0 15 0 0")) & ChrA("0 3 0 0") End Function Function CreateChat(strChatRoom As String) CreateChat = ChrA("0 13 0 8 0 0 0 2 0 8 0 4 6") & "create" & ChrA("255 255 1 0 3 0 215 0 2") & "en" & ChrA("0 214 0 8") & "us-ascii" & ChrA("0 211") & TwoByteLen(strChatRoom) End Function Function AddGroup(strGroupName As String) AddGroup = ChrA("0 19 0 8 0 0 0 31 0 8") & TwoByteLen(strGroupName) & ChrA("74 232 0 0 0 1 0 0") End Function Public Function EncryptPW(ByRef strPass As String) As String 'this is a simple xor encryption used to encrypt the aim password. the roasting string 'is "Tic/Toc" Dim arrTable() As Variant, strEncrypted As String Dim lngX As Long, strHex As String arrTable = Array("84", "105", "99", "47", "84", "111", "99") For lngX& = 0 To Len(strPass$) - 1 strHex$ = Hex(Asc(Mid(strPass$, lngX& + 1, 1)) Xor CLng(arrTable((lngX& Mod 7)))) If CLng("&H" & strHex$) < 16 Then strEncrypted$ = strEncrypted$ & "0" strEncrypted$ = strEncrypted$ & Chr("&h" & strHex$) Next EncryptPW$ = LCase(strEncrypted$) End Function '00A0: 04 00 C8 00 00 2A 02 5D 42 00 18 00 13 00 08 00 .....*.]B....... '00B0: 00 00 1F 00 08 00 04 73 68 69 74 4A E8 00 00 00 .......shitJ.... '00C0: 01 00 00 ... '0030: 25 30 EF 84 00 00 2A 02 07 DF 00 9B 00 04 00 06 %0....*......... '0040: 00 00 00 1D 00 06 AB 2E 16 0D BC 6C 00 00 00 02 ...........l.... '0D 49 6E 73 61 6E 45 42 72 61 6E 64 6F 4E 00 05 .InsanEBrandoN.. 'ChrA ("0 5") & TwoByteLen(ChrA("0 0") & strRequestID) 'ChrA ("116 143 36 32 98 135 17 209 130 34 68 69 83 84 0 0 0 10 0 2 0 1 0 15 0 0 0 14") 'TwoByteLen ("en") & ChrA("0 13") & TwoByteLen("us-ascii") 'ChrA ("0 12") & TwoByteLen(strMessage) 'ChrA ("39 17 0 31 0 4 26 33") & "!aol://2719:10-4-CHATROOM2" 'ChrA ("0 0") 'ChrA ("0 3 0 0") '00 71 00 00 AB 2E 16 0D BC 6C 00 00 74 8F 24 20 .q.......l..t.$ '62 87 11 D1 82 22 44 45 53 54 00 00 00 0A 00 02 b...."DEST...... '00 01 00 0F 00 00 00 0E 00 02 65 6E 00 0D 00 08 ..........en.... '75 73 2D 61 73 63 69 69 00 0C 00 14 4A 6F 69 6E us-ascii....Join '20 6D 65 20 69 6E 20 74 68 69 73 20 43 68 61 74 me in this Chat '27 11 00 1F 00 04 1A 21 61 6F 6C 3A 2F 2F 32 37 '......!aol://27 '31 39 3A 31 30 2D 34 2D 43 48 41 54 52 4F 4F 4D 19:10-4-CHATROOM '32 00 00 00 03 00 00 2...... 'Capabilities 'Buddy Icon: 9 70 19 70 76 127 17 209 130 34 68 69 83 84 0 0 'File Send: 9 70 19 67 76 127 17 209 130 34 68 69 83 84 0 0 'Buddy List: 9 70 19 75 76 127 17 209 130 34 68 69 83 84 0 0 'Talk: 9 70 19 65 76 127 17 209 130 34 68 69 83 84 0 0 'Games: 9 70 19 71 76 127 17 209 130 34 68 69 83 84 0 0 'Chat: 116 143 36 32 98 135 17 209 130 34 68 69 83 84 0 0 'IM Image: 9 70 19 69 76 127 17 209 130 34 68 69 83 84 0 0