Delphi中的LockStr函数是干什么用的?函数原型?参数说明?怎么用?给10分
參考答案:Function LockStr(S:String):WideString;
Var I,L:Integer;
STemp,C:String;
Const AStr:String='UXtnGjc4dIBkosvCPQSrDYFZJhTewliyLMaH70uW95xbVzOKq3E1Rmpf8AN62g_~!@#$%^&*';
Begin
STemp:='';
L:=Length(S);
For I:=1 To L Do
Begin
C:='';
C:=C+S[I];
If Pos(C,AStr)>0 Then
Stemp:=Stemp+AStr[73-Pos(C,AStr)];
End;
LockStr:=STemp;
End;
