求一简单加密代码(100分)

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #1

要求：加密一个只有8个字节的字符串，如“12345678”，全部是数字，加密之后长度也要
是8个字节的数字，也就是长度要相等，而且加密后也要是数字。可以解密。
算法不要太复杂,简单就行。
解决马上加分

 

风

风卷残月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #2

1=>2
2=>3
....
8=>9
最简单了[]
顶一下

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #3

这样太简单了容易看出来

 

S

starluck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #4

你看一下Base64，然后做个变形吧。挺简单的

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #5

Base64没看懂

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #6

const
a: array[0..9] of char = ('3','5','2','8','1','4','9','0','7','6');
b: array[0..9] of char = ('7','4','2','0','5','1','9','8','3','6');

function Encrypt(str: string): string;
var
s: string;
i: integer;
begin
s:='';
for I := 1 to length(str) do
s:=s+a[strtoint(str)];
result:=s;
end;

function Decrypt(str: string): string;
var
s: string;
i: integer;
begin
s:='';
for I := 1 to length(str) do
s:=s+b[strtoint(str)];
result:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=Encrypt(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text:=decrypt(Edit2.Text);
end;

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #7

to:kaida,你这个代码就是风卷残月讲的那个，这么太简单不符合我的要求
8个数字随便改动一个数字，密文的数字不能只改变一个，至少要动三个以上

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #8

问题我自己解决了，结贴。