我也想要一个 谢谢
[email protected]
[email protected]
解决方案 »
- 动态菜单释放的问题
- 哪里有 Delphi 短信发送控件??? (要免费的)
- 高分悬赏,请问使用存储过程的优点
- 如何从excel文件中读取的数据转换成字符串
- 为什么安装后的Borland目录下的Vbroker\Bin\OsAgent.exe启不来?
- delphi里面的findComponent()函数怎么用?
- ******select返回的结果问题***********
- 请告诉我Rxlib的下载地址?
- [[问题]]把 MS Visual Studio 和 BORLAND 的DELPHI、CB 装在一个系统下会有问题吗?谢谢。
- ADODataSet1中怎样计算一个字段是值
- DELPHI中TIMER控件的问题?
- 请问一下我为什么不能赋值呀,唉,真搞不懂,代码在这:
[email protected]
var
I, J: Integer;
begin
J := 1;
Result := '';
for I := 1 to Length(mStr) do begin
Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
if J + 1 <= Length(mKey) then
Inc(J)
else J := 1;
end;
{自己加步骤}
end;function Decrypt(mStr: string; mKey: string): string;
var
I, J: Integer;
begin
J := 1;
Result := '';
{自己加步骤}
for I := 1 to Length(mStr) do begin
Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
if J + 1 <= Length(mKey) then
Inc(J)
else J := 1;
end;
end;