如果你遇到这样的问题，你会怎样处理？？(50分)

D

delphi-explorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #1

1、编写加密程序，要求能通过键盘输入“明文”句子（字串），
赋给字串变量A，程序自动作如下
26个英文字母对应的影射（加密）：
abcdefghijklmnopqrstuvwxyz

QWERTYUIOPASDFGHJKLZXCVBMN
并输出密文（赋给字串变量B）。
例如在键盘输入“I am student.”，屏幕上能显示：“O QD LZXRTFZ.”
2、要求：要有一个form，让使用者可以输入一句话，然后按键加密！

3、另外，想要取得edit或RichEdit等内容的字符数组？

 

T

tomol

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #2

1.这很容易呀，用ord，chr等函数唾手可得，你自己试一下吧
2.有了第一条，这个还难吗？
3.用Edit1.Text[n], RichEdit.Text[n]可以得到其中任一个字符

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #3

设计一个对应关系不就行了。

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #4

这叫什么加密啊？
我输入10个a, 你出来10个Q,我知道了a=Q
我输入10个b, 你出来10个W,我知道了b=W
....一眨眼就破了。
const
str1 = 'abcdefghijklmnopqrstuvwxyz';
str2 = 'QWERTYUIOPASDFGHJKLZXCVBMN';

begin
EncodeChar := str2(Ord(Inputchar)-ord(a)+1);
...
end;

2.3的问题：买一本《delphi傻瓜入门一天速成书》
问这个不如叫人教你吃饭穿衣服。。。。。。

 

D

delphi-explorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #5

不好意思，就是不知道怎么用text而已，呵呵
thx