الان ZeroMax loader لسيرفر sjsro

[3abkarino]

ممكن يا باشا تجيب كود الللودر بتاع سيرفر Ecsro علشان حاسس انه قرييييييييييييييييييييييييب جدا من ال Source ده

Func PATCH11()
$MID = MEMOPEN($PID)
MEMWRITE($MID, 6503536, "EB")
MEMWRITE($MID, 6503644, "EB")
If GUICtrlRead($NODC) = 1 Then
MEMWRITE($MID, 6671308, "8B0D6869D3008B118B4214FFD05F83C410C3")
Else
EndIf
If GUICtrlRead($ZOOM) = 1 Then
MEMWRITE($MID, 6001969, "EB")
MEMWRITE($MID, 6001931, "EB")
Else
EndIf
If GUICtrlRead($SWEAR) = 1 Then
MEMWRITE($MID, 4948122, "EB")
MEMWRITE($MID, 5096484, "EB")
MEMWRITE($MID, 6171283, "EB")
MEMWRITE($MID, 6282891, "E9BF00000090")
Else
EndIf
If GUICtrlRead($NUDE) = 1 Then
MEMWRITE($MID, 8069277, "E9E800000090")
Else
EndIf
If GUICtrlRead($ILLEGAL) = 1 Then
MEMWRITE($MID, 6589364, "EB")
MEMWRITE($MID, 6605508, "EB")
MEMWRITE($MID, 6625706, "EB")
Else
EndIf
If GUICtrlRead($LOGO) = 1 Then
MEMWRITE($MID, 6665309, "EB")
EndIf
If GUICtrlRead($SELECT) = 1 Then
MEMWRITE($MID, 10435136, REVERSEHEX(FLOATTOHEX(5000)))
MEMWRITE($MID, 10260592, REVERSEHEX(FLOATTOHEX(5000)))
Else
EndIf
MEMCLOSE($MID)
DllClose($KERNEL32)
EndFunc


Func MEMOPEN($PID)
Local $MID = DllCall($KERNEL32, "int", "OpenProcess", "int", 2035711, "int", 1, "int", $PID)
Return $MID[0]
EndFunc


Func MEMWRITE($MID, $ADRESS, $HEX)
Local $STRUCT = DllStructCreate("byte[" & BinaryLen("0x" & $HEX) & "]")
For $I = DllStructGetSize($STRUCT) To 1 Step -1
DllStructSetData($STRUCT, 1, BinaryMid("0x" & $HEX, $I, 1), $I)
Next
Local $X = DllCall($KERNEL32, "int", "VirtualProtectEx", "int", $MID, "ptr", $ADRESS, "int", DllStructGetSize($STRUCT), "dword", 64, "dword*", 0)
DllCall($KERNEL32, "int", "WriteProcessMemory", "int", $MID, "int", $ADRESS, "ptr", DllStructGetPtr($STRUCT), "int", DllStructGetSize($STRUCT), "int", 0)
DllCall($KERNEL32, "int", "VirtualProtectEx", "int", $MID, "ptr", $ADRESS, "int", DllStructGetSize($STRUCT), "dword", $X[5], "dword*", 0)
EndFunc


Func MEMCLOSE($MID)
DllCall($KERNEL32, "int", "CloseHandle", "int", $MID)
EndFunc


Func NOP($NR)
Local $NOP
For $I = 1 To $NR
$NOP &= 90
Next
Return $NOP
EndFunc


Func FLOATTOHEX($FLOAT)
Local $A = DllCall($KERNEL32, "int", "MulDiv", "Float", $FLOAT, "int", 1, "int", 1)
Return Hex($A[0])
EndFunc


Func REVERSEHEX($HEX)
Local $X
For $I = StringLen($HEX) + 1 To 1 Step -2
$X &= StringMid($HEX, $I, 2)
Next
Return $X
EndFunc