怎么样加密字符串啊?
使用异或方法怎么样使用一个字符串加密另一个字符串呢?
能否给出详细代码?!
问题点数：50、回复次数：4Top
1 楼li_zhifu（东北人）回复于 2002-10-28 10:43:16 得分 10
S:String;
i:integer;
s:='abcde';
for i:=1 to Length(s) do
s[i]:=chr(ord(s[i]) xor 178);//这里178就是密钥Top
2 楼hnxrm（浪子）回复于 2002-10-28 10:59:20 得分 10
解密也同理.Top
3 楼PoolD（池龙）回复于 2002-10-28 11:00:57 得分 20
var
Count : integer; //循环变量
Source : string; //源字符串
Dest : string; //转换后的字符串
CodeString : string; //异或密钥
begin
Dest := '';
if (Length(Source) > 0) and (Length(CodeStr) > 0) then
begin
for Count := 1 to Length(Source) do
Dest := Dest + Chr(Ord(CodeString[((Count - 1) mod length(CodeString)) + 1]) xor Ord(Source[Count]));
end;
endTop
4 楼love4cz（^_^)(丑丑)(^_^）回复于 2002-10-28 11:09:45 得分 10
看And收藏!
Top
