Question

hex转ascii

d4a688f6fd17f4ffefc82a63bbed7f94a83429117dccff585447d6d26c5e9c2a
谁能帮我转成ascii的
还有问一下无线网密码是hex格式还是ascii格式
我破解了密码是hex格式的 但是输进去还是连不上

Answer 1

unit encodeAndDecode;
{
该单元实现对字符串的简单加密解密。
加密方法是取得一个char的ASCII码，然后把它转换成十六进制。
}
interface
uses SysUtils;
function encode(source:string):string;
function decode(source:string):string;
implementation

function encode(source:string):string;
var
i,Ascii,strLen:integer;
a:char;
hex:string;
begin
result:='';
strLen:=length(source);
for i:=1 to strLen do
begin
a:=source[i];
ascii:=ord(a);
hex:=intToHex(ascii,2);
result:=result+hex;
end;
end;

function decode(source:string):string;
var
i,ascii,strLen:integer;
a:char;
str:string;
begin
strLen:=length(source);
result:='';
i:=1;
while i<= strlen do
begin
str:=copy(source,i,2);
ascii:=strToint('$'+str);
a:=chr(ascii);
result:=result+a;
inc(i,2);
end;
end;
end.

能看懂上面的代码，你就会了！