系统的加密.............(100分)

请问各路大虾,本人想做一个比较通用的系统,又怕别人滥用.所以想请教一下有几种流行
的加密方法?有没有一种把汉字加密成一串字符.解密后又可以把它换成汉字.

俺需要一些企业名录，于是分析了<<中国黄页>>的加密数据库，找到了它的文字加密/
解密的方法。

这是俺自己编写的函数，土了点，凑合看吧 ;


function WordToString(value: Word): string;
begin
; Result := Chr(Hi(value)) + Chr(Lo(Value));
end;


function TextEncrypt(strtemp: String):String;
var
aaa,bbb,ccc:Word;
i:Integer;
temp:String;
begin
temp:='';
if Length(strtemp)>=1 then
; ;begin
; ; ;i:=1;
; ; ;while i<=Length(strtemp) do
; ; ; ;begin
; ; ; ; ; if Ord(strtemp)>$7F then
; ; ; ; ; ; begin
; ; ; ; ; ; ; ;aaa:= Ord(strtemp);
; ; ; ; ; ; ; ;inc(i);
; ; ; ; ; ; ; ;bbb:=Ord(strtemp);
; ; ; ; ; ; ; ;ccc:=($17F-aaa)*$100+($17F-bbb);
; ; ; ; ; ; ; ;temp:=temp+WordToString(ccc);
; ; ; ; ; ; end
; ; ; ; ; else
; ; ; ; ; ; begin
; ; ; ; ; ; ; ;aaa:=$7F-Ord(strtemp);
; ; ; ; ; ; ; ;temp:=temp+char(aaa);
; ; ; ; ; ; end;
; ; ; ; ; inc(i);
; ; ;end;
result:=temp;
end
else
begin
;result:=strtemp;
end;
end;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=529506
这个加密算法还不错，算法简单，速度快。虽然在某些方面有些毛病，但用于字符流加密
绝对没问题。它的优点就是可以对任意长度的字符串进行加解密，安全性可达2^48量级。
（当然还可以通过将Word->Integer提高到2^64以上）

您的问题已过期，要继续请结束，否则请提前,祝你圣诞快乐

多人接受答案了。