// ?????? ????????? ? ??? (Script to start being on OEP) 



Var oep

var f1

var p1

var p2



mov oep,eip

mov eip,401000



l1:

find eip,#68????0000E8????5400# 

cmp $RESULT,0

je end

mov f1,$RESULT

mov eip,f1

mov p1,f1

add f1,A

bphws f1,"x"

run

bphwc f1

fill p1,A,90

find eip,#68????0000E8????5400#

cmp $RESULT,0

je end

mov p2,$RESULT

fill p2,A,90

jmp l1



end:

mov eip,oep

MSG "Decrypt Suseful"

ret