各位好汉，加密算法竞赛！！前3名有分！

Question

1、结合数据库的加密功能；
2、密钥加密；
3、CPU序列号或网卡号加密；
其他的请指教

Answer 1

To:pandazy(小熊) 你能具体说说“密钥加密；”吗？
To:mchong(毛毛虫)　你能具体说说“单向加密”吗？
注：具体的加密算法！！！
我准备给你们加分啦！！！

Answer 2

简单点，每个字符值(ord)进行函数运算存到数据库中。比较时，对用户输入的字符进行函数运算与存到数据库的进行比较。

Answer 3

一般MIS数据库口令并不需要花太大的功夫的，
就算是要求比较高的情况
可以试试象LINUX 加密/etc/passwd文件那样的标准单向算法就足够了。
呵那种算法的名称忘了。。
另外在瘟系统下有一些API ，可以看看。。如。。
Encryption等等
在DELPHI6中增加了一些编码的东西。。

Answer 4

下面不是我写，我忘记在哪得到的！！！
//加密函数
Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer;
offset :Integer;
dest :string;
SrcPos :Integer;
SrcAsc :Integer;
TmpSrcAsc :Integer;
Range :Integer;begin
KeyLen:=Length(Key);
if KeyLen = 0 then key:='Think Space';
KeyPos:=0;
SrcPos:=0;
SrcAsc:=0;
Range:=256;Randomize;
offset:=Random(Range);
dest:=format('%1.2x',[offset]);
for SrcPos := 1 to Length(Src) do
begin
SrcAsc:=(Ord(Src[SrcPos]) + offset) MOD 255;
if KeyPos < KeyLen then KeyPos:= KeyPos + 1 else KeyPos:=1;
SrcAsc:= SrcAsc xor Ord(Key[KeyPos]);
dest:=dest + format('%1.2x',[SrcAsc]);
offset:=SrcAsc;
end;
Result:=Dest;
end;//解密函数
Function UncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer;
offset :Integer;
dest :string;
SrcPos :Integer;
SrcAsc :Integer;
TmpSrcAsc :Integer;
Range :Integer;begin
KeyLen:=Length(Key);
if KeyLen = 0 then key:='Think Space';
KeyPos:=0;
SrcPos:=0;
SrcAsc:=0;
Range:=256;
offset:=StrToInt('$'+ copy(src,1,2));
SrcPos:=3;
repeat
SrcAsc:=StrToInt('$'+ copy(src,SrcPos,2));
if KeyPos < KeyLen Then KeyPos := KeyPos + 1 else KeyPos := 1;
TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);
if TmpSrcAsc <= offset then
TmpSrcAsc := 255 + TmpSrcAsc - offset
else
TmpSrcAsc := TmpSrcAsc - offset;
dest := dest + chr(TmpSrcAsc);
offset:=srcAsc;
SrcPos:=SrcPos + 2;
until SrcPos >= Length(Src);
Result:=Dest;
end;

Answer 5

xx0118(猛禽)兄，你这不是盗版吗？我在这用这名很久了。
给你一个参考
http://mental.top263.net/mentals/tech/general/tea.htm

Answer 6

To：Raptor(猛禽)
看了你的http://mental.top263.net/mentals/tech/general/tea.htm，果然风云人物
小弟佩服，至于你所说的盗版网名，我只能说是巧合。　

Answer 7

to Nizvoo(瓦匠泥)
我贴的贴子，你也受益了，呵呵

Answer 8

你想要哪个栏目的。
是bcb,还是delphi???

Answer 9

毛毛cong？
我的超管理员要能管理这些人的名单的。
我要解密