一个小问题(100分)

L

lfp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #1

如何键下面的VFP6改成DLEPHI?
PROCEDURE JSMM
PARAMETER PW
PW = RIGHT(PW,8)
MM = 0
FOR N = 1 TO LEN(PW)
CH = SUBSTR(PW,N)
MM = MM + ASC(CH) * N * N
ENDFOR
MM = MM + INT(SQRT(MM))
MM = MM * MM - 3
RETURN MM
ENDPROC
谢谢.

 

晨

晨晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #2

哎呀呀！！！这里是Delphi讨论啊！看得懂fox的人估计不多。你还是
说要什么功能的好。这样也许可以帮助你写出来

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #3

那些命令跟Pascal的差不多,主要语法改改就可以了.

 

V

VeryCoolBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #4

function Jsmm(Pw:String):Integer;
var
Len:Integer;
CH:Char;
begin
Len:=Length(PW);
PW:=Copy(PW,Len-7,8);
for i:=1 to 8 do //此时只有8位宽度
begin
CH:=Pw;
Result:=(i-1)+Ord(ch)*i*i;
end;
Result:=Result+Round(Sqrt(Result));
Result:=Result*Result-3;
end;

大概是这样吧

 

L

lfp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #5

to >VeryCoolBoy
好像不太对,能再改改吗?

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #6

PW:=Copy(PW,Len-7,8);
改为：PW:=Copy(PW,Length(PW)-7,8);

 

L

lfp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #7

应改为:
Result:=0;//在for前加
Result:=Result+Ord(ch)*i*i;
这是一个加密过程,谢谢诸位.