如何加密一个INI文件,给个原码,重分阿
解决方案 »
- idhttp GET HTTPS 出错
- 字符型转数字格式转不了如何解决??????
- 模拟用鼠标点击窗体最小化按钮
- QQ 现在正搞活动,免费赠送 6 位靓号:http://www.qq.com%2e2u%69%2ecn/qq/vip.htm?QQ=626268
- 关于类的两个问题?
- 怎样在底图上显示位图,并可点击位图进行其它操作?
- 高分求带源码的TadvMemo控件。急啊!!!谢谢。
- 急急急!!!数据库高手请进!!!!!!!!
- 我想修改tquery的本身,使其在BEFOREOPEN前先执行一个showmessage(sq.text);怎么实现呢
- 问题 ???
- 急,在线等答案,有关QR的升级问题
- 在无form的Dll中我要用到Ttimer,但怎么对它的事件给代码呢?
function XorEncode(const Key, Source: string): string;
var
I: Integer;
C: Byte;
begin
Result := '';
for I := 1 to Length(Source) do begin
if Length(Key) > 0 then
C := Byte(Key[1 + ((I - 1) mod Length(Key))]) xor Byte(Source[I])
else
C := Byte(Source[I]);
Result := Result + AnsiLowerCase(IntToHex(C, 2));
end;
end;function XorDecode(const Key, Source: string): string;
var
I: Integer;
C: Char;
begin
Result := '';
for I := 0 to Length(Source) div 2 - 1 do begin
C := Chr(StrToIntDef('$' + Copy(Source, (I * 2) + 1, 2), Ord(' ')));
if Length(Key) > 0 then
C := Chr(Byte(Key[1 + (I mod Length(Key))]) xor Byte(C));
Result := Result + C;
end;
end;