关于加密的问题(50分)

T

tsaietsai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #1

请问怎样对一串字符加密码，还有怎样再还原出来?

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #2

对每个字符于一个数值异或就行了,再异或一遍又回来了.

 

Z

zbsfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #3

在大富翁中搜索一下，有这种代码的，使用很方便

 

海

海风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #4

我有一个加密控件
for d5 and d6的
要不要

 

L

ldaan3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #5

我要：
可不可以发到我的信箱啊？

ldaan@nease.com

 

海

海风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #6

to ldaan3:
已经给你发去

 

O

oyjing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #7

使用加密控件，如DCPcrypt、CHIPHER 等
我有DCPcrypt 2.0 for d5,d6(含源码)

 

海

海风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #8

to ldaan3:
你的信箱不能收信为什么老是被退了出来

 

松

松鼠

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #9

海风，能否给我一份？ attn@263.net谢谢。

 

K

k10j

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #10

海风，请给我一份，谢谢。yanhaij@263.sona.com

 

L

ldaan3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #11

海风：
发到这里好吗？

luodaan@nease.com

最好先压缩拉，我的信箱很小。

 

海

海风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #12

已经发出
请各位查收

 

E

Expert

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #13

这个可以吗？
function Encrypt(Str,Key:String):String;
var
X, Y : Integer;
A : Byte;
begin
if Key = '' then
Key := 'd1duOsy3n6qrPr2eF9u';
Y := 1;
for X := 1 to length(Str) do
begin
A := (ord(Str[X]) and $0f) xor (ord(Key[Y]) and $0f);
Str[X] := char((ord(Str[X]) and $f0) + A);
inc(Y);
if Y > length(Key) then
Y := 1;
end;
Result := Str;
end;

 

T

tsaietsai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #14

控件我要
tsaitsai@163.net

 

Z

zzw_laoniu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #15

其实只要把输入字符转换成键盘码，然后再用算法进行加密，解密时先用相反的
算法解密，然后在转换成字符。

 

T

tsaietsai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #16

多人接受答案了。