MessageSpoofer
Jump to navigation
Jump to search
MessageSpoofer
- Name: Message Spoofer
- OS: Windows
- Language: Visual Basic 6
- Path: http://svn.skullsecurity.org:81/ron/old/MessageSpoofer
- Created: Old
- State: Complete (but out of date)
As far as I know, this program was the first of its kind. It allowed the user to spoof interesting messages (including animations) in Starcraft games by searching for a keyword in memory. It was pretty slick and worked well, and many people cloned the functionality.
Blizzard has, since then, removed this ability from their games. Oh well. :)
For old times sake, here are the automated messages that were included:
... Select Case strMessage Case "/normal" bCenter = False bCenterBottom = False bRight = False optColor(Asc(bwNOCOLOR)).Value = True txtUsername.Text = "" Case "/center" optCenter.Value = True strMessage = bwGREEN & "Center has been set." & AddLineFeeds Case "/bcenter" optBCenter.Value = True strMessage = bwGREEN & "BottomCenter has been set." & AddLineFeeds Case "/right" optRight.Value = True strMessage = bwGREEN & "Right has been set." & AddLineFeeds Case "/noalign" optLeft.Value = True strMessage = bwGREEN & "Left has been set." & AddLineFeeds Case "/left" optLeft.Value = True strMessage = bwGREEN & "Left has been set." & AddLineFeeds Case "/yellow" optColor(Asc(bwYELLOW)).Value = 1 strMessage = bwYELLOW & "Yellow has been set." & AddLineFeeds Case "/white" optColor(Asc(bwWHITE)).Value = 1 strMessage = bwWHITE & "White has been set." & AddLineFeeds Case "/grey" optColor(Asc(bwGREY)).Value = 1 strMessage = bwGREY & "Grey has been set." & AddLineFeeds Case "/red" optColor(Asc(bwRED)).Value = 1 strMessage = bwRED & "Red has been set." & AddLineFeeds Case "/green" optColor(Asc(bwGREEN)).Value = 1 strMessage = bwGREEN & "Green has been set." & AddLineFeeds Case "/nocolor" optColor(Asc(bwNOCOLOR)).Value = 1 strMessage = bwNOCOLOR & "Color has been removed." & AddLineFeeds Case "/colors" If chkReplaceColors.Value = 1 Then chkReplaceColors.Value = 0 strMessage = bwRED & "Replace Colors Disabled" & AddLineFeeds Else chkReplaceColors.Value = 1 strMessage = bwGREEN & "Replace Colors Enabled" & AddLineFeeds End If Case "/banned" If chkBanned.Value = 1 Then chkBanned.Value = 0 strMessage = bwRED & "Banned Characters Disabled" & AddLineFeeds Else chkBanned.Value = 1 strMessage = bwGREEN & "Banned Colors Enabled" & AddLineFeeds End If Case "/team" If chkTeam.Value = 1 Then chkTeam.Value = 0 strMessage = bwRED & "Force Team Disabled" & AddLineFeeds Else chkTeam.Value = 1 strMessage = bwGREEN & "Force Team Enabled" & AddLineFeeds End If End Select If Left(strMessage, Len("/name")) = "/name" And Right(strMessage, 1) = "/" Then strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 2) strMessage = bwYELLOW & "Name is now " & strMessageArray(1) & AddLineFeeds & Chr(0) txtUsername.Text = strMessageArray(1) ElseIf strMessage = "/noname" Then txtUsername.Text = "" strMessage = bwRED & "Name has been removed." & AddLineFeeds End If If Left(strMessage, Len("/slowtext")) = "/slowtext" And Right(strMessage, 1) = "/" Then strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 2) strMessage = "Hold [enter] to continue" & AddLineFeeds iPosition = 12 strSlowText = AddLineFeeds & strMessageArray(1) tmrSlowText.Enabled = True bMarquee = False End If If Left(strMessage, Len("/mspeed")) = "/mspeed" And Right(strMessage, 1) = "/" Then strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 2) If Val(strMessageArray(1)) <= 20 And Val(strMessageArray(1)) >= 1 Then strMessage = "Marquee Speed Set" & AddLineFeeds iMarqueeSpeed = Val(strMessageArray(1)) Else strMessage = "Speed must be from 1-20" & AddLineFeeds End If End If If Left(strMessage, Len("/marquee")) = "/marquee" And Right(strMessage, 1) = "/" Then Dim strSpaces As String strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 2) strMessage = "Hold [enter] to continue" & AddLineFeeds iPosition = 12 tmrSlowText.Enabled = True bMarquee = True bMarqueeLeft = False iOffset = (15 / Len(strMessageArray(1))) - 1 If iOffset < 1 Then 'for long messages iOffset = Int(-(1 / iOffset) * 4) Else 'for short messages iOffset = Int(iOffset / 2) End If 'as much as I hate doing it, I have to pad this with spaces For iIndex = Len(AddLineFeeds) + Len(strMessageArray(1)) To 78 strSpaces = " " & strSpaces Next strSlowText = AddLineFeeds & bwRIGHT & strMessageArray(1) & strSpaces strMarquee = strSpaces & strMessageArray(1) End If If strMessage = "/smile" Then strAnimation(1) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ Chr(3) & " _____" & bwCRLF & _ Chr(3) & "/ " & Chr(7) & "0 0" & Chr(1) & " \" & bwCRLF & _ Chr(3) & "| v |" & bwCRLF & _ Chr(3) & "| " & Chr(6) & "\___/" & Chr(1) & " |" & bwCRLF & _ Chr(3) & "\_____/" strAnimation(2) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ Chr(3) & " _____" & bwCRLF & _ Chr(3) & "/ " & Chr(7) & "^ ^" & Chr(1) & " \" & bwCRLF & _ Chr(3) & "| v |" & bwCRLF & _ Chr(3) & "| " & Chr(6) & "\___/" & Chr(1) & " |" & bwCRLF & _ Chr(3) & "\_____/" strAnimation(3) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ Chr(3) & " _____" & bwCRLF & _ Chr(3) & "/ " & Chr(7) & "0 0" & Chr(1) & " \" & bwCRLF & _ Chr(3) & "| v |" & bwCRLF & _ Chr(3) & "| " & Chr(6) & "\___/" & Chr(1) & " |" & bwCRLF & _ Chr(3) & "\_____/" strAnimation(4) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ Chr(3) & " _____" & bwCRLF & _ Chr(3) & "/ " & Chr(7) & "^ ^" & Chr(1) & " \" & bwCRLF & _ Chr(3) & "| v |" & bwCRLF & _ Chr(3) & "| " & Chr(6) & "\___/" & Chr(1) & " |" & bwCRLF & _ Chr(3) & "\_____/" strAnimation(5) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ Chr(3) & " _____" & bwCRLF & _ Chr(3) & "/ " & Chr(7) & "0 0" & Chr(1) & " \" & bwCRLF & _ Chr(3) & "| v |" & bwCRLF & _ Chr(3) & "| " & Chr(6) & "\___/" & Chr(1) & " | -- kekeke" & bwCRLF & _ Chr(3) & "\_____/" strAnimation(6) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ Chr(3) & " _____" & bwCRLF & _ Chr(3) & "/ " & Chr(7) & "^ ^" & Chr(1) & " \" & bwCRLF & _ Chr(3) & "| v |" & bwCRLF & _ Chr(3) & "| " & Chr(6) & "\___/" & Chr(1) & " | -- kekeke" & bwCRLF & _ Chr(3) & "\_____/" iFrame = 0 tmrAnimation.Enabled = True strMessage = "Press [enter] to continue." & AddLineFeeds End If 'Moo! If strMessage = "/cow" Then strAnimation(1) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "* (__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " //--------\\" & bwCRLF & _ "^^ ^^" strAnimation(2) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "* (__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " | |-----| |" & bwCRLF & _ " ^^ ^^" strAnimation(3) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "* (__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " //--------\\" & bwCRLF & _ "^^ ^^" strAnimation(4) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "* (__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " | |-----| |" & bwCRLF & _ " ^^ ^^" strAnimation(5) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "* (__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " //--------\\" & bwCRLF & _ "^^ ^^" strAnimation(6) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "* (__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " | |-----| |" & bwCRLF & _ " ^^ ^^" strAnimation(7) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "* (__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " //--------\\" & bwCRLF & _ "^^ ^^" strAnimation(8) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "* (__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " | |-----| |" & bwCRLF & _ " ^^ ^^" strAnimation(8) = bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ bwCRLF & _ "*" & Chr(4) & "'Moo!'" & Chr(1) & "(__)" & bwCRLF & _ " \ (oo)" & bwCRLF & _ " \-------\/" & bwCRLF & _ " | |-----| |" & bwCRLF & _ " ^^ ^^" iFrame = 0 tmrAnimation.Enabled = True strMessage = "Press [enter] to continue." & AddLineFeeds End If '"Nuclear launch detected" If strMessage = "/nuke" Then strMessage = AddLineFeeds strMessage = strMessage & bwWHITE & bwCENTER & "Nuclear launch detected." End If 'Cheat enabled If strMessage = "/cheat" Then strMessage = AddLineFeeds strMessage = strMessage & bwWHITE & bwCENTER & "Cheat enabled" End If 'You have been backstabbed! If strMessage = "/bs" Then strMessage = AddLineFeeds strMessage = strMessage & bwRED & bwCENTER & "You have been backstabbed!" & bwCRLF & _ bwWHITE & bwCENTER & "http://www.d2backstab.com" End If '$user has left the game If Left(strMessage, Len("/leave")) = "/leave" And Right(strMessage, 1) = "/" Then strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 2) strMessage = AddLineFeeds strMessage = strMessage & bwYELLOW & strMessageArray(1) & " has left the game." End If '$user was eliminated If Left(strMessage, Len("/kill")) = "/kill" And Right(strMessage, 1) = "/" Then strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 2) strMessage = AddLineFeeds strMessage = strMessage & bwYELLOW & strMessageArray(1) & " was eliminated." End If If Left(strMessage, Len("/drop")) = "/drop" And Right(strMessage, 1) = "/" Then strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 2) strMessage = AddLineFeeds strMessage = strMessage & bwYELLOW & strMessageArray(1) & " was dropped from the game." End If If Left(strMessage, Len("/join")) = "/join" And Right(strMessage, 1) = "/" Then strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 2) strMessage = AddLineFeeds strMessage = strMessage & bwYELLOW & strMessageArray(1) & " has joined the game." End If If Left(strMessage, Len("/latency")) = "/latency" And Right(strMessage, 1) = "/" Then strMessage = Left(strMessage, Len(strMessage) - 1) strMessageArray = Split(strMessage, " ", 3) strMessage = AddLineFeeds strMessage = strMessage & bwYELLOW & "Player " & strMessageArray(1) & " set network for " & strMessageArray(2) & " latency" End If ...
svn co http://svn.skullsecurity.org:81/ron/old/MessageSpoofer