nbsp; 

Reg.RootKey :=hkey_local_machine;  

KeyName:=''Software\jsjb\Example'';  

if Reg.OpenKey(KeyName,true) then  

begin  

Reg.WriteString(''Passwd'',InptCode);  

Reg.WriteString(''UsrName'',InptName);  

end;  

reg.CloseKey ;  

finally  

Reg.Free ;  

end;  

NoRegistry:=false;  

//¿ÉÐÞ¸Ä×¢²áºóµÄ½çÃæ  

end;  

end;  

end;  

end;  


Èý¡¢ÃÜÂëµÄ±ä»»º¯Êý¡£´Ë±ä»»º¯Êý¿ÉÓɶÁÕß×ÔÓÉ·¢»Ó£¬ÔÚ´Ë£¬½öʾһÀý¶øÒÑ¡£  

Function TForm1.Encrypt(TempStr:string):string;  

Var  

Str1:String;  

i,j:Integer;  

Begin  

Str1:='''';  

For i:=1 to Length(TempStr) do  

begin  

j:=(iª³iª³iª³i mod (i+30))+(iª³i mod (i+20))+iª³3+1;  

Str1:=Str1+chr(ord(TempStr[i])+j);  

j:=(iª³iª³iª³i mod (i+30))+(iª³i mod (i+20))+iª³3+1;  

Str1:=Str1+chr(ord(TempStr[i])+j);  

End;  

Result:=Str1;  

end;