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.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)