Здравствуйте! Хотелось бы попросить помощи , суть проблемы такова , есть исходник старый обход XTrap -a, если не сложно хотелось бы чтобы вы посмотрели на данные исходники и подсказали как их модифицировать :-[
Добавлено:
1. Bypass.exe
Добавлено:
Сообщение автоматически объединено:
1. Bypass.exe
[[hide]]
[/[hide]]Удалено.[[/hide]spoiler]
Добавлено:
2ой исходник HGWC.exe увы тут не помещается :wacko: Сейчас выложу ссылка .au3
[[hide]]http://zalil.ru/31189499[/#]Удалено[[/hide]s].
Добавлено:
3ий GetTID увы тоже не поместился ...
[[hide]]http://zalil.ru/31189507[/#]Удалено[[/hide]s].[/hide]
Код:
[/hide]NoTrayIcon
IF FILEEXISTS(@SCRIPTDIR&"\CF_G4box.exe")THEN
ELSE
IF NOT ISDECLARED("iMsgBoxAnswer")THEN LOCAL $IMSGBOXANSWER
$IMSGBOXANSWER=MSGBOX(16,"ByPass - _Mr.A_","ByPass runs only in the installed Crossfire folder",3)
SELECT
CASE $IMSGBOXANSWER=-1
CASE ELSE
ENDSELECT
EXIT
ENDIF
IF FILEEXISTS(@SCRIPTDIR&"\HGWC.exe")THEN
ELSE
IF NOT ISDECLARED("iMsgBoxAnswer")THEN LOCAL $IMSGBOXANSWER
$IMSGBOXANSWER=MSGBOX(16,"ByPass - _Mr.A_","ByPass runs only in the installed Crossfire folder",3)
SELECT
CASE $IMSGBOXANSWER=-1
CASE ELSE
ENDSELECT
EXIT
ENDIF
IF FILEEXISTS(@SCRIPTDIR&"\XPva03.dll")THEN
ELSE
IF NOT ISDECLARED("iMsgBoxAnswer")THEN LOCAL $IMSGBOXANSWER
$IMSGBOXANSWER=MSGBOX(16,"ByPass - _Mr.A_","ByPass runs only in the installed Crossfire folder",3)
SELECT
CASE $IMSGBOXANSWER=-1
CASE ELSE
ENDSELECT
EXIT
ENDIF
IF FILEEXISTS(@SCRIPTDIR&"\selfupdate_cf.exe")THEN
ELSE
IF NOT ISDECLARED("iMsgBoxAnswer")THEN LOCAL $IMSGBOXANSWER
$IMSGBOXANSWER=MSGBOX(16,"ByPass - _Mr.A_","ByPass runs only in the installed Crossfire folder",3)
SELECT
CASE $IMSGBOXANSWER=-1
CASE ELSE
ENDSELECT
EXIT
ENDIF
IF FILEEXISTS(@SCRIPTDIR&"\patcher_cf.exe")THEN
ELSE
IF NOT ISDECLARED("iMsgBoxAnswer")THEN LOCAL $IMSGBOXANSWER
$IMSGBOXANSWER=MSGBOX(16,"ByPass - _Mr.A_","ByPass runs only in the installed Crossfire folder",3)
SELECT
CASE $IMSGBOXANSWER=-1
CASE ELSE
ENDSELECT
EXIT
ENDIF
PROCESSCLOSE("HGWC.exe")
PROCESSCLOSE("Crossfire.exe")
PROCESSCLOSE("XTrap.xt")
FILECOPY("HGWC.exe",@SYSTEMDIR&"\HGWC.bak")
FILEINSTALL("HGWC.exe","HGWC.exe",1)
RUN("patcher_cf.exe")
PROCESSWAIT("Crossfire.exe")
_PROCESSSUSPEND("Crossfire.exe")
_PROCESSSUSPEND("HGWC.exe")
FILEINSTALL("XTrapVa.dll","XTrap\XTrapVa.dll",1)
_PROCESSRESUME("Crossfire.exe")
PROCESSWAIT("XTrap.xt")
_PROCESSSUSPEND("Crossfire.exe")
_PROCESSSUSPEND("Xtrap.xt")
FILEINSTALL("GetTID.exe",@SYSTEMDIR&"\GetTID.exe",1)
FILEINSTALL("HackCf.dll",@SYSTEMDIR&"\\HackCf.dll",1)
RUN(@SYSTEMDIR&"\GetTID.exe")
PROCESSWAITCLOSE("GetTID.exe")
SLEEP(2000)
FILEDELETE(@SYSTEMDIR&"\GetTID.exe")
FILEDELETE(@SYSTEMDIR&"\HackCf.dll")
PROCESSWAITCLOSE("Crossfire.exe")
PROCESSCLOSE("HGWC.exe")
PROCESSCLOSE("Xtrap.xt")
SLEEP(3000)
FILEINSTALL("XTrapVas.dll","XTrap\XTrapVa.dll",1)
FILECOPY(@SYSTEMDIR&"\HGWC.bak",@SCRIPTDIR&"\HGWC.exe")
SLEEP(1000)
FILEDELETE(@SYSTEMDIR&"\HGWC.bak")
EXIT
FUNC _PROCESSSUSPEND($PROCESS)
$PROCESSID=PROCESSEXISTS($PROCESS)
IF $PROCESSID THEN
$AI_HANDLE=DLLCALL("kernel32.dll","int","OpenProcess","int",2035711,"int",FALSE ,"int",$PROCESSID)
$I_SUCESS=DLLCALL("ntdll.dll","int","NtSuspendProcess","int",$AI_HANDLE[0])
DLLCALL("kernel32.dll","ptr","CloseHandle","ptr",$AI_HANDLE)
IF ISARRAY($I_SUCESS)THEN
RETURN 1
ELSE
SETERROR(1)
RETURN 0
ENDIF
ELSE
SETERROR(2)
RETURN 0
ENDIF
ENDFUNC
FUNC _PROCESSRESUME($PROCESS)
$PROCESSID=PROCESSEXISTS($PROCESS)
IF $PROCESSID THEN
$AI_HANDLE=DLLCALL("kernel32.dll","int","OpenProcess","int",2035711,"int",FALSE ,"int",$PROCESSID)
$I_SUCESS=DLLCALL("ntdll.dll","int","NtResumeProcess","int",$AI_HANDLE[0])
DLLCALL("kernel32.dll","ptr","CloseHandle","ptr",$AI_HANDLE)
IF ISARRAY($I_SUCESS)THEN
RETURN 1
ELSE
SETERROR(1)
RETURN 0
ENDIF
ELSE
SETERROR(2)
RETURN 0
ENDIF
ENDFUNC
Добавлено:
Сообщение автоматически объединено:
2ой исходник HGWC.exe увы тут не помещается :wacko: Сейчас выложу ссылка .au3
[[hide]]http://zalil.ru/31189499[/#]
Добавлено:
Сообщение автоматически объединено:
3ий GetTID увы тоже не поместился ...
[[hide]]http://zalil.ru/31189507[/#]