Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

Що то я не бачу   Найти похожие ветки 

← →
HDD ©   (2002-04-24 17:22) [0]

var
s: string;

procedure Code(var text: string; password: string;
decode: boolean);
var
i, PasswordLength: integer;
sign: shortint;
begin
PasswordLength := length(password);
if PasswordLength = 0 then Exit;
if decode
then sign := -1
else sign := 1;
for i := 1 to Length(text) do
text[i] := chr(ord(text[i]) + sign *
ord(password[i mod PasswordLength + 1]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s := Memo1.Text;
code(s, Edit1.Text, false);
Memo1.Text := s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
s := Memo1.Text;
code(s, Edit1.Text, true);
Memo1.Text := s;

Что-то не пойму шифрую всё ок! Начинаю расшифровку она расшифровывает но не до конца и появляются какие-то "левые" символы! Помогите плиз

---

← →
Anatoly Podgoretsky ©   (2002-04-24 17:36) [1]

Нельзя двоичные симводы посылатьв Memo

---

← →
HDD ©   (2002-04-25 00:11) [2]

А можно чуть подробнее!

---

← →
Anatoly Podgoretsky ©   (2002-04-25 08:49) [3]

Вот подробнее Memo1.Text := s;

---

← →
HDD ©   (2002-04-25 09:03) [4]

А можно в Richedit?

---

← →
Song ©   (2002-04-25 10:38) [5]

RichEdit1.PlainText:=S;

---

← →
HDD ©   (2002-04-25 14:26) [6]

Спасибо я допер нужно просто
RichEdit1.Text

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c