Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
ВнизЩо то я не бачу Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c