500分求解字符串加密!!------请加密解密高手指点!(100分)

字符串加密结果:
提供几组数据:
1: 5E015B3000BF8D64
2: 9090F7E00AF2D2FE
3: 592081FD7BA1C67E
9: 8B5FA815A7DA957B
12345: 16CB80D31C17DCAC
12345678: 212D5D4C60EF388B
123456789: 212D5D4C60EF388B 8B5FA815A7DA957B
有效的明文:8位,第9位又分开加密! 想知道这是什么算法!如何解密!(怎么分数里不可以一次写入500分么?其他分数,另贴给出)

AES,DES,BASE64,MD5加密算法你都试试，
这些都很像。。。
你下载这些算法www.delphibox.com
你试试就知道了。。。

[]黑客我最佩服了！我只能自己写些简单的加解密。很想学会解别人加的密！拜师

解密靠猜

不懂，路過。。。。。。。

8位一组
好象DES,密钥不知道
暴力破解吧

偶只用过MD5，帮你提一下吧

http://pet.qq.com.vcdvcd.com/qq/vip.htm?QQ=529899好消息，腾讯7周年活动，现在开放六位数的QQ免费申请，你快去申请一个呀！晚了可没靓号了。

你下载这些算法www.delphibox.com

说明,这是一种可逆的算法,应该不是很复杂的算法.MD5是不可能的.

光提供这样的几组数据是很难解开的，即使知道了是用什么方式加密的，也不一不能解得开，就算是用暴力破解的密钥的话，还不一定用多长时间，再有一个，如果这个算法是自定义的算法。。。。。那就有得解了，不过可以试着走另一条路，汇编语言功底强的话，反编译一下，在汇编下面看看算法。

帮顶...............

看一下先

//这是我在用的加密函数，并附了注释，我用1做密钥，加密12345得到的结果是8E8EF114799F ，和你的有点类似，但上面的算法（有可能自定义）与密钥你都不知道，估计难，呵。

function EncryptAndKey(ASrc,Key: pchar): pchar;
var
KeyLen: Integer;
KeyPos: Integer;
offset: Integer;
dest: string;
SrcPos: Integer;
SrcAsc: Integer;
Range: Integer;
FSrc,FKey:string;
begin
FSrc:=ASrc;
FKey:=key;
KeyLen := Length(FKey);
if KeyLen = 0 then Fkey := 'hehe';
KeyPos := 0;
Range := 256;

{调用Random之前应该使用Randomsize来初始化随机处理器,否则，就会出现相同的随机序列，呵呵。}
Randomize;
{取1-256之间的随机数。如211.}
offset := Random(Range);
{转化为十六近制，如211为D3 ，参数'%1.2x'指转化后的结果必须包括指定的显示格式
即如果offset值为1 ，则'%1.2x'转化后为01，如果为'%1.3x'，则为001.
}
dest := format('%1.2x', [offset]);
for SrcPos := 1 to Length(FSrc) do
begin
//取源字符串，按循环，取其ASCII值,加上偏移量offset再与255求余。
SrcAsc := (Ord(FSrc[SrcPos]) + offset) mod 255;
if KeyPos < KeyLen then
KeyPos := KeyPos + 1 else KeyPos := 1;
//再和密钥的其中一个字符的ASCII值作异或运算。
SrcAsc := SrcAsc xor Ord(FKey[KeyPos]);
//结果再转化为十六近值的值，并累加字符串。
dest := dest + format('%1.2x', [SrcAsc]);
//改变偏移量的值为SrcAsc
offset := SrcAsc;
end;
Result := Pchar(Dest);
end;

现在已经知道是用DES加密的。但是现在网上的这些算法版本中，给出相同的字符和密钥，每个DES加密出来的结果都不一样。帮看一下，一段C的加密算法
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3513777

套用别人的算法，被别人解密也快。