delphi简单实现ascii互转

效果图

初学delphi做个ascii转换工具,为在手工注入网站的时候做个辅助

主要处理操作如下:

 

//ascii转换
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
Result, Code: string;
a: array[0..10000] of char;
begin
Code :='';
Result:='';

for i := 1 to length(edit1.Text) do
begin
    Code := edit1.Text;
    a[i - 1] := Code[i];
    Result := Result + inttostr(ord(a[i - 1]));

    if i <> length(edit1.Text) then
      Result := Result + ',';
end;

memo1.Clear;
memo1.Lines.Add(Result);
end;

//单个ascii还原
procedure TForm1.Button2Click(Sender: TObject);
var
s:integer;
h:string;
begin
s:=strtoint(edit2.Text);
h:=Chr(s);
memo2.Lines.Add(h);
end;
//清空
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
memo1.Clear;
memo2.Clear;
end;
//关闭
procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;

转自：http://hi.baidu.com/forhack/item/8f33b4af463847ab28ce9dcf

ASCII码对照表：http://www.96yx.com/tool/ASC2.htm