HEX值怎样转换为ASCII码

Question

我用密码查看器获得本机HEX值为：
0000 71 00 35 00 39 00 6C 00 55 00 6F 00 36 00 78 00 q.5.9.l.U.o.6.x.
0010 40 00 54 00 71 00 75 00 32 00 72 00 @.T.q.u.2.r.
哪位大侠能帮我找到它所对应的ascⅡ码，或者对应的字符（系统密码最好）。
看不懂呀，可否说具体些，我可是很外行的啊。谢谢

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.

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

Answer 2

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.
能看懂上面的代码，你就会了！

Answer 3

右边不是已经有了嘛
把.去掉就行了

是UNICODE的

q59lUo6x@Tqu2r

Answer 4

你这一串数字,我都不知道每一个HEX值是几位的,怎么转换啊