Can Defox IV be unpacked?

[giv]

Regarding defox III....

LPARAMETERS m.p0, m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12, m.p13, m.p14, m.p15, m.p16, m.p17, m.p18, m.p19, m.p20, m.p21, m.p22, m.p23, m.p24, m.p25
LOCAL m.pcnt, m.prc, m.ip
m.pcnt = MIN(PCOUNT(), 26)
m.prc = ""
IF m.pcnt>0
FOR m.ip = 1 TO m.pcnt
m.prc = m.prc+",m.p"+ALLTRIM(STR(m.ip-1))
ENDFOR
m.prc = "with "+SUBSTR(m.prc, 2)
ENDIF
LOCAL m.pr
IF _SCREEN.visible=.T.
_SCREEN.windowstate = 2
ENDIF
IF VERSION(2)>0
MESSAGEBOX("This program can't run under IDE environment", 16, "Error")
RETURN
ENDIF
IF RAND(-1)<0.003
MESSAGEBOX("This programm was protected by DeFox"+CHR(13)+"(C)Copyright by Leonid Lepin, 2005-2006", 64, "DeFox") ENDIF
m.pr = "sal "
m.pr = ALLTRIM(m.pr)
DO &pr &prc
RETURN
ENDPROC