哪位高手能帮忙看看，这个用来加密和解密的叫什么算法？大家都再用嘛

谁能帮忙看看，这个用来加密和解密的叫什么算法？大家都再用嘛？

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));