请教：如果两个字符串组合起来进行加密。。。 ( 积分: 100 )

要求：我需要用两个字符串组合起来进行加密，比如A字符串是0123456，B字符串是ABCDEFG，他们可以按一定的规则组合起来，然后再用加密算法对他们进行加密。加密后要求解密算法能够解密出这两个字符串，请各位给个方案，谢谢。

要求：我需要用两个字符串组合起来进行加密，比如A字符串是0123456，B字符串是ABCDEFG，他们可以按一定的规则组合起来，然后再用加密算法对他们进行加密。加密后要求解密算法能够解密出这两个字符串，请各位给个方案，谢谢。

大侠。。。不要潜水。。。[8D]

自己随便找个加密因子,然后把这三个东西异或一下,然后再左移或右移一下,总之就是你自己弄一下就可以了,解密反操作就OK了,

对啊，又不是说解密不知道如何加密的。
就反着来吧。

很简单阿，方法太多了，主要是你自己想一个算法，解密就是加密的逆运算！

给你一个现成的，不过要赶快给分啊。（原作）
function _StrToPW(S:String):String;
Var
C:String;
I,L:Integer;
Begin
L:=Length(S);
For I:=1 To L Do
Begin
C := C + Char(Ord(Byte(Copy(S,I,1)[1])+StrToInt(Copy(aPW,(I-1)*2+1,2))));
End;
Result:=C;
End;

function _PWToStr(S:String):String;
Var
C:String;
I,L:Integer;
Begin
L:=Length(S);
For I:=1 To L Do
Begin
C := C + Char(Ord(Byte(Copy(S,I,1)[1])-StrToInt(Copy(aPW,(I-1)*2+1,2))));
End;
Result:=C;
End;

http://www.delphibbs.com/delphibbs/dispq.asp?LID=2555089

应该有你要的东西了
－－－－－－－－－－－－－－－－－－－－－－－－－－－转自网络
procedure BytesToHexStr(var hHexStr: String;pbyteArray: PByte;InputLength: WORD);
Const
HexChars : Array[0..15] of Char = '0123456789ABCDEF';
var
i, j: WORD;
begin
SetLength(hHexStr, (InputLength * 2));
FillChar(hHexStr, sizeof(hHexStr), #0);
j := 1;
for i := 1 to InputLength do begin
hHexStr[j] := Char(HexChars[pbyteArray^ shr 4]); inc(j);
hHexStr[j] := Char(HexChars[pbyteArray^ and 15]); inc(j);
inc(pbyteArray);
end;
end;
procedure HexBytesToChar(var Response: String;hexbytes: PChar;InputLength: WORD);
var
i: WORD;
c: byte;
begin
SetLength(Response, InputLength);
FillChar(Response, SizeOf(Response), #0);
for i := 0 to (InputLength - 1) do begin
c := BYTE(hexbytes) And BYTE($f);
if c > 9 then
Inc(c, $37)
else
Inc(c, $30);
Response[i + 1] := char(c);
end;{for}
end;