UC知道请教LockStr函数
来源：百度知道 编辑：UC知道 时间：2024/05/13 07:58:22
Delphi中的LockStr函数是干什么用的?函数原型?参数说明?怎么用?给10分
给30分,够味吧?不能再加了!
给30分,够味吧?不能再加了!
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;