1.delphi Դ?源码android tv 源码????
delphi Դ?????
加密/解密一个字符串
{ Begin code }
program Crypt;
uses WinCRT;
const
C1 = ;
C2 = ;
function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result[0] := S[0];
for I := 1 to Length(S) do begin
Result[I] := char(byte(S[I]) xor (Key shr 8));
Key := (byte(Result[I]) + Key) * C1 + C2;
end;
end;
function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result[0] := S[0];
for I := 1 to Length(S) do begin
Result[I] := char(byte(S[I]) xor (Key shr 8));
Key := (byte(S[I]) + Key) * C1 + C2;
end;
end;
var
S: string;
begin
Write('>');
ReadLn(S);
S := Encrypt(S,);
WriteLn(S);
S := Decrypt(S,);
WriteLn(S);
end.
2024-11-25 02:002337人浏览
2024-11-25 01:52813人浏览
2024-11-25 01:31432人浏览
2024-11-25 01:262144人浏览
2024-11-25 01:081448人浏览
2024-11-24 23:481245人浏览
1.今天玩AVA 刚进游戏 一出来就被雷炸死然后一直如此 我想问问是哪位SB发明的GGGGG 我在这问候你家人了!今天玩AVA 刚进游戏 一出来就被雷炸死然后一直如此 我想问问是哪位SB发明的GGGG
1.HTML这一段怎么加密好2.Html怎么加密,不让人家看到我们的源代码?3.html网页源码加密4.html网页如何加密,防止内容被人盗用,如何防止网站内容被采HTML这一段怎么加密好 题目没