unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
ListBox2: TListBox;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Editkey: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
function encryptstr(const s:string; skey:string):string;
function decryptstr(const s:string; skey:string):string;
function myStrtoHex(s:string):string; //原字符串转16进制字符串
function myHextoStr(S: string): string;//16进制字符串转原字符串
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
function TForm1.myStrtoHex(s: string): string;
var tmpstr:string;
i:integer;
begin
tmpstr := '';
for i:=1 to length(s) do
begin
tmpstr := tmpstr + inttoHex(ord(s[i]),2);
end;
result := tmpstr;
end;function TForm1.myHextoStr(S: string): string;
var hexS,tmpstr:string;
i:integer;
a:byte;
begin
hexS :=s;//应该是该字符串
if length(hexS) mod 2=1 then
begin
hexS:=hexS+'0';
end;
tmpstr:='';
for i:=1 to (length(hexS) div 2) do
begin
a:=strtoint('$'+hexS[2*i-1]+hexS[2*i]);
tmpstr := tmpstr+chr(a);
end;
result :=tmpstr;
end;function TForm1.encryptstr(const s:string; skey:string):string;
var
i,j: integer;
hexS,hexskey,midS,tmpstr:string;
a,b,c:byte;
begin
hexS :=myStrtoHex(s);
hexskey:=myStrtoHex(skey);
midS :=hexS;
for i:=1 to (length(hexskey) div 2) do
begin
if i<>1 then midS:= tmpstr;
tmpstr:='';
for j:=1 to (length(midS) div 2) do
begin
a:=strtoint('$'+midS[2*j-1]+midS[2*j]);
b:=strtoint('$'+hexskey[2*i-1]+hexskey[2*i]);
c:=a xor b;
tmpstr := tmpstr+myStrtoHex(chr(c));
end;
end;
result := tmpstr;
end;function TForm1.decryptstr(const s:string; skey:string):string;
var
i,j: integer;
hexS,hexskey,midS,tmpstr:string;
a,b,c:byte;
begin
hexS :=s;//应该是该字符串
if length(hexS) mod 2=1 then
begin
showmessage('密文错误!');
exit;
end;
hexskey:=myStrtoHex(skey);
tmpstr :=hexS;
midS :=hexS;
for i:=(length(hexskey) div 2) downto 1 do
begin
if i<>(length(hexskey) div 2) then midS:= tmpstr;
tmpstr:='';
for j:=1 to (length(midS) div 2) do
begin
a:=strtoint('$'+midS[2*j-1]+midS[2*j]);
b:=strtoint('$'+hexskey[2*i-1]+hexskey[2*i]);
c:=a xor b;
tmpstr := tmpstr+myStrtoHex(chr(c));
end;
end;
result := myHextoStr(tmpstr);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text := encryptstr(memo1.text,Editkey.Text);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
//把解密数据放到listbox内。这里不会。。啊哦~
//加密的数据是一条一条的。
//比如:
//www.baidu.com
//www.sina.com
//listbox.items[i] 显示每条的数据、
end;end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
ListBox2: TListBox;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Editkey: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
function encryptstr(const s:string; skey:string):string;
function decryptstr(const s:string; skey:string):string;
function myStrtoHex(s:string):string; //原字符串转16进制字符串
function myHextoStr(S: string): string;//16进制字符串转原字符串
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
function TForm1.myStrtoHex(s: string): string;
var tmpstr:string;
i:integer;
begin
tmpstr := '';
for i:=1 to length(s) do
begin
tmpstr := tmpstr + inttoHex(ord(s[i]),2);
end;
result := tmpstr;
end;function TForm1.myHextoStr(S: string): string;
var hexS,tmpstr:string;
i:integer;
a:byte;
begin
hexS :=s;//应该是该字符串
if length(hexS) mod 2=1 then
begin
hexS:=hexS+'0';
end;
tmpstr:='';
for i:=1 to (length(hexS) div 2) do
begin
a:=strtoint('$'+hexS[2*i-1]+hexS[2*i]);
tmpstr := tmpstr+chr(a);
end;
result :=tmpstr;
end;function TForm1.encryptstr(const s:string; skey:string):string;
var
i,j: integer;
hexS,hexskey,midS,tmpstr:string;
a,b,c:byte;
begin
hexS :=myStrtoHex(s);
hexskey:=myStrtoHex(skey);
midS :=hexS;
for i:=1 to (length(hexskey) div 2) do
begin
if i<>1 then midS:= tmpstr;
tmpstr:='';
for j:=1 to (length(midS) div 2) do
begin
a:=strtoint('$'+midS[2*j-1]+midS[2*j]);
b:=strtoint('$'+hexskey[2*i-1]+hexskey[2*i]);
c:=a xor b;
tmpstr := tmpstr+myStrtoHex(chr(c));
end;
end;
result := tmpstr;
end;function TForm1.decryptstr(const s:string; skey:string):string;
var
i,j: integer;
hexS,hexskey,midS,tmpstr:string;
a,b,c:byte;
begin
hexS :=s;//应该是该字符串
if length(hexS) mod 2=1 then
begin
showmessage('密文错误!');
exit;
end;
hexskey:=myStrtoHex(skey);
tmpstr :=hexS;
midS :=hexS;
for i:=(length(hexskey) div 2) downto 1 do
begin
if i<>(length(hexskey) div 2) then midS:= tmpstr;
tmpstr:='';
for j:=1 to (length(midS) div 2) do
begin
a:=strtoint('$'+midS[2*j-1]+midS[2*j]);
b:=strtoint('$'+hexskey[2*i-1]+hexskey[2*i]);
c:=a xor b;
tmpstr := tmpstr+myStrtoHex(chr(c));
end;
end;
result := myHextoStr(tmpstr);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text := encryptstr(memo1.text,Editkey.Text);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
//把解密数据放到listbox内。这里不会。。啊哦~
//加密的数据是一条一条的。
//比如:
//www.baidu.com
//www.sina.com
//listbox.items[i] 显示每条的数据、
end;end.
解决方案 »
- delphi能否判断是否已经登录到域
- 如何从一个byte数组中取出几位组成一个新的字节?
- 涓€涓湇鍔″櫒绔彛鑳藉悜澶氫釜瀹㈡埛绔€氫俊鍚?
- QRDesign如何用、安装,谁有序列号?100分不够,可以另外在给!
- windows2000pro 下delphi6是否能用
- Delphi6 BDE的bug:加入TQuery和TDatasource,先连Datasource的dataset属性,再选Query的Datasource属性就是空的,反之亦然。请问如何解决
- 如何实现窗体的自创建
- 怎么提高查询速度??
- 嘻嘻,这个问题不会解。怎么判断sql语句成功查找???
- 小程序?!!
- delphi怎么把设置保存
- 一个简单的问题!关于定义的!
把加密的数据 放在 memo中,在 listbox 里 显示解密结果
前者已经实现?求后者?listbox.items.clear;
for i:=0 to memo.lines.count-1 do
listbox.items.add(解密(memo.lines[i]));
3C3C3C6520312F236528242646413C3C3C657D7C737A6528242646413C3C3C653D797978786528242646413C3C3C65223A7A79786528242646413C3C3C652279787F7E65282546413C3C3C65232A24202A257A79786528242646413C3C3C65787D7E3C3165252E3F46413C3C3C657E2F7E2E6528242646413C3C3C657A7A79396528242646413C3C3C6578792E6528242646413C3C3C657C7C7A7C7C6528242646413C3C3C652F2A273E24292465282546413C3C3C65232A232A7A7A7A6528242646413C3C3C65232A24317A797865282546413C3C3C65737E3D3D6528242646413C3C3C6524207A7B7B65252E3F65282546413C3C3C652A227A79787F6528242646413C3C3C657A7E3C316528242646413C3C3C652D267E7E7D7D6528242646413C3C3C65727C727365252E3F46413C3C3C65387E7D7E6528242646413C3C3C65787F7E386528242646413C3C3C657A7A7B3C316528242646413C3C3C657D2F236528242646413C3C3C653F3F72736528242646413C3C3C65737E737E7A6528242646413C3C3C657D7D2F7365282546413C3C3C65292A22233E65282546413C3C3C65232A252C7A79786528242646413C3C3C657A7C727B72652824264641797A73657C7E657A7E72657A7E7B46413C3C3C6573787365282846413C3C3C652E2E797E736528242646413C3C3C652C21216528284641上边是加密结果。原始内容是:
www.baidu.com
www.qq.com
www.126.com
这样的数据。
i:Integer;
begin
listbox2.items.clear;
for i:=0 to memo1.lines.count-1 do
listbox2.items.add(decryptstr(memo1.lines[i],Editkey.Text));