请教高手：用DELPHI做的软件及SQL数据相关联的密码加密问题！(200分)

想在这里请教下大家：
本人现在有个问题，希望能够得到解决！感谢中。。。。

用DELPHI写的软件，无论是设置登陆用户密码还是SQL的登录密码，都是被加密过的！

比如说明文是：dcss2004，加密过的暗文就变成了：fsgdhper~mdqendu。

以上就是密码明文及密码暗文,在数据库里及注册表里面,登录用户名未被加密,
就是登陆密码被加密了,无论在数据库里面的表里面,还是注册表里面察看信息,
都是加密了的显示,不知道明文是多少?

我想知道的是,通过如何的方式方法对其进行解密,或通过软件,或何种计算方法

各位大虾,在下谢谢了!

我想了解下有关此种加密方法的加密原理及破译方法。

如果我说的不够清楚明白，希望大家能够帮我提出来，谢谢！

其实，在数据库存加密后的信息就可以。我曾经这样做过。用户名加密后存入数据库，从数据库取出数据也是加密过的，用户登录是解密进行判断该用户名称和密码是否正确。

以前用过的加密解密函数，楼主参考：
{ 加密 }
function EnCrypt(Str : string): string;
var
X: Integer;
A, Key: Byte;
TmpStr: string;
begin
TmpStr := '';
Randomize;
Key := RandomRange(1, $7F);
for X := 1 to length(Str) do
begin
A := (ord(Str[X]) and $0f) xor (Key and $0f);
TmpStr := TmpStr + char((ord(Str[X]) and $f0) + A);
end;
Result := char(Key) + TmpStr;
end;
{ 解密 }
function DeClassify(Str : string): string;
var
X: Integer;
A, Key: Byte;
TmpStr: string;
begin
if Str = '' then
Result := ''
else
begin
TmpStr := '';
Key := ord(Str[1]);
for X := 2 to length(Str) do
begin
A := (ord(Str[X]) and $0f) xor (Key and $0f);
TmpStr := TmpStr + char((ord(Str[X]) and $f0) + A);
end;
Result := TmpStr;
end;
end;

我想知道的是,通过如何的一种方法,将加密过的密码进行解密,通过软件或通过一些算法.谢谢.

顶

关于SQL的登录密码，我以前的处理方法是这样：
在数据库服务器上开一个服务程序，每个客户须先连到服务程序，然后得到SQL的登录用户及密码的加密形式（每次都不同，客户须发个随机数据，服务程序椐此加密），客户解密后连接。当然高手还是可以通过抓包等形式得到这些信息。

这其实就是你在使用前的加密，或对在使用后要解密。
不过对于加密及解密是需要要你的密码处理规格确定。
技术交流QQ：136293586