[Innka]

Нужно написать вот такую программку:
Шифрование текста по ограниченному словарю (от пяти до десяти знаков).

Делфи вижу впервые, помогите пожалуйста!!!
Заранее спасибо

[Konrad]

Что значит "ограниченный словарь"?
Насколько сильная защита тебе нужна?

[Страдалецъ]

Возможно автор имел ввиду ограничение длины пароля до нужного количества знаков.

[Konrad]

Если так, то вот пример:

Ограничение пароля до 8ми символов.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b> pas,rez:string; i,n:integer; <b>begin</b>   rez:='je5gDfwL'; //Задаем начальное значение,длина должна быть равна n (см.ниже) pas:=edit1.Text; //получаем пароль   n:=8;  // ограничиваем длину "рабочей" части пароля   <b>if</b> length(pas)<n <b>then</b> n:=length(pas);   <b>for</b> i:=1 <b>to </b>n <b>do</b> <b> begin</b>   rez[i]:=pas[i];  //записываем пароль в результат <b> end;</b>   edit2.Text:=rez; //не обязательно, просто для проверки результата   <b>end;</b>

lmikle: Сделал красиво, а где теги кода???

А дальше нужно решить какой будет сам шифр.

[lmikle]

Ну, для простоты сделай шифрование XOR'ом.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function Encode(AText, APass : String) : String; var   I : Integer;   ALongPass : String; begin   If (Length(APass) < 5) Or (Length(APass) > 8) Then      Raise Exception.Create('Пароль короче 5 или длиннее 8 символов.');   Result := AText;     // Для простоты делаем строку пароля кодирования   // такой же длинны, что и данные. Просто копируя пароль.   ALongPass := '';   While Length(ALongPass) < Length(AText) Do      ALongPass := ALongPass + APass;     // А теперь шифруем XOR'ом   For I := 1 To Length(AText) Do     Result[i] := Chr(Ord(Result[i]) XOR Ord(ALongPass[i])); end;

[Konrad]

Я вот тоже сразу подумал о ХОR, но тут лучше знать какой уровень надежности нужен, какой тип данных будет шифроваться, от кого защита и т.д. ( хотя бы приблизительно). Это очень важно для выбора типа шифра.

[lmikle]

я думаю, что это либо лаба, либо курсач. Так что особой надежности тут не надо

[AleD]

Сообщение от lmikle

Ну, для простоты сделай шифрование XOR'ом.

Код:

А как расшифровать то потом такой способ ???

[lmikle]

Точно так же. Тем же XOR'ом тем же паролем.