var iat_st
var oep
var imb
rtr
sti
find eip,#8B8DA01C41008B85A41C4100#
cmp $RESULT,0
je quit
bp $RESULT
erun 
bc eip
mov imb,[$RESULT+2]
add imb,ebp
mov iat_st,imb+4
mov oep,iat_st+C
mov imb,[imb]
mov iat_st,[iat_st]
mov oep,[oep]
mov eip,oep+imb
cmt eip,"This is the OEP"
mov counter,imb
add counter,3C
mov counter,[counter]
add counter,imb
add counter,28
mov [counter],oep
add counter,58
mov [counter],iat_st
dpe "dump.exe", eip
msg ""The file is completely unpacked!"
ret
quit:
ret