никто не делал лабу

← →
Nest © (2002-02-08 11:27) [0]

Всё нетак сложно, даже просто, но времени совсем нет - на работе сижу, надо отчёт сёдня сдавать , а в обед оттащить лабу на учёбу.
Готовое решение стрёмно просить, но может кто поделится опытом?

← →
anod © (2002-02-08 11:34) [1]

В смысле со сдвигом по ASCII на 1 символ?

← →
wicked © (2002-02-08 11:37) [2]

2 Nest ©
имеются модуля шифрования по гост"у delphi+assembler собсного приготовления.... закинуть?...

← →
gek (2002-02-08 11:39) [3]

Ну наверное так примерно
var
ch:char;
str_in,str_out:string;
begin
str_out:="";
for i:=1 to length(str_in) do
begin
ch:=str_in[i];
if ord(ch) = 256 then
ch:=char(ord(1))
else
ch:=char(ord(ch)+1);
str_out:=str_out + ch;
end;
end;

← →
Nest © (2002-02-08 11:43) [4]

wicked ©
anod ©
Кароче надо:
1)загружаешь в мемо1 файл c текстом "abc"
2)Жмём "кодировать" получаешь в мемо2 текст "bcd"
3)Жмём "раскодировать" получаем в мемо3 "abc"

Пытался так:
procedure TForm1.Button1Click(Sender: TObject); begin src:=memo1.text; coded:=""; for i:=0 to length(src) do coded:=coded+chr(ord(src[i])+1); memo2.text:=coded; end; procedure TForm1.Button2Click(Sender: TObject); begin encoded:=""; for i:=0 to length(coded) do encoded:=encoded+chr(ord(coded[i])-1); memo3.text:=encoded; end;
Но получается такая бодяга:
Исходный текст: abc
Закодированный текст: bcd
Разкодированный: я

Как сделать?
(С одним символом получается вроде)

← →
gek (2002-02-08 11:52) [5]

for i:=1 to length(src) do

← →
Nest © (2002-02-08 12:07) [6]

2gek
Да эту бугу поправил, но всёравно не катит - даже явно пытался указать -
for i:=1 to 5 do

ГоРЮ !...

← →
wicked © (2002-02-08 12:08) [7]

2 Nest ©
навскидку первый баг - строки индексируются с 1.... только что проверил....

← →
wicked © (2002-02-08 12:11) [8]

2 Nest ©
странно.... у меня работает....
procedure TForm1.Button1Click(Sender: TObject); var s, d: string; i, n: integer; begin s := edit1.Text; d := ""; n := length(s); for i := 1 to n do d := d + chr(ord(s[i]) + 1); Edit2.Text := d; end; procedure TForm1.Button2Click(Sender: TObject); var s, d: string; i, n: integer; begin s := edit2.Text; d := ""; n := length(s); for i := 1 to n do d := d + chr(ord(s[i]) - 1); Edit1.Text := d; end;

2wicked ©
ВСЁ!
В этом и было дело!!!!
Теперь работает!
Царапал на скорую руку... Кучу мелких ерроров наделал!
Спасибо!

2 Anatoly Podgoretsky ©
ну не работает.... :) а так как не работает из-за "я" -> #0, то алгоритм имеет только педагогическую ценность... а для того, чтобы реально что-то шифровать - надо хотя бы использовать массив, а не строки....

так я надо превращать в пробел и обратно, идея продемонстрирована в сообщение gek (08.02.02 11:39)

никто не делал лабу Найти похожие ветки