Шифровка-дешифровка

@Dima170792 · Регистрация: 04.04.2011

Помогите пожалуйста !Необходимо создать программу,которая будет зашифровывать,и дешифровывать слово ,поставив каждой букве её номер в алфавите.если знаете-подскажите пожалуйста!например-А=1,Б=2,В=3,и т.д.
слово ''пример''за шифруется так-17181014618
,а соответственно введя 17181014618 я должен получить слово ''пример''!если можете-помогите пожалуйста!

@Евгений В · 22.04.2011, 00:50

Dima170792,
Думаю, что при шифровании необходимо формировать ключ, в котором сохраняется последовательность, показывающая сколько знаков отводится очередной букве.
Возьмем слово "пример". Его код 17181014618
п - 17 (2 знака)
р - 18 (2)
и - 10 (2)
м - 14 (2)
е - 6 (1)
р - 18 (2)

ключ будет 222212.

При расшифровке вводится этот ключ и по нему последовательно считывается нужное кол-во цифр, которые затем превращаются в буквы.

Мне кажется, что по другому нельзя. Как программа поймет, что ей считывать? 1 - это а или 17 - это п (в твоем примере)?

Правда, ключ может получиться очень длинным

Есть еще вариант, сделать код для всех знаков 2-х значным. Тогда ключ не понадобиться.
Ставь просто нуль перед однозначным числом. 171810140618

Но это уже будет слабое шифрование. Легко взломать.

@S9 · 22.04.2011, 00:58

Шифрует русские буквы в верхнем регистре и пробел. Правда код громоздкий, но как сделать по другому я не знаю...

Delphi

Function CryptMessg(Messg:String):String;
Var
i:SmallInt;
Temp:String;
Begin
For i:=1 To Length(Messg) Do
Begin
  Case Messg[i] Of
    'А':Temp:=Temp+'01';
    'Б':Temp:=Temp+'02';
    'В':Temp:=Temp+'03';
    'Г':Temp:=Temp+'04';
    'Д':Temp:=Temp+'05';
    'Е':Temp:=Temp+'06';
    'Ё':Temp:=Temp+'07';
    'Ж':Temp:=Temp+'08';
    'З':Temp:=Temp+'09';
    'И':Temp:=Temp+'10';
    'Й':Temp:=Temp+'11';
    'К':Temp:=Temp+'12';
    'Л':Temp:=Temp+'13';
    'М':Temp:=Temp+'14';
    'Н':Temp:=Temp+'15';
    'О':Temp:=Temp+'16';
    'П':Temp:=Temp+'17';
    'Р':Temp:=Temp+'18';
    'С':Temp:=Temp+'19';
    'Т':Temp:=Temp+'20';
    'У':Temp:=Temp+'21';
    'Ф':Temp:=Temp+'22';
    'Х':Temp:=Temp+'23';
    'Ц':Temp:=Temp+'24';
    'Ч':Temp:=Temp+'25';
    'Ш':Temp:=Temp+'26';
    'Щ':Temp:=Temp+'27';
    'Ъ':Temp:=Temp+'28';
    'Ы':Temp:=Temp+'29';
    'Ь':Temp:=Temp+'30';
    'Э':Temp:=Temp+'31';
    'Ю':Temp:=Temp+'32';
    'Я':Temp:=Temp+'33';
    ' ':Temp:=Temp+'34';
  End;
End;
Result:=Temp;
End;
 
Function DeCryptMessg(Messg:String):String;
Var
i,j:SmallInt;
Temp:String;
Begin
For i:=1 To Length(Messg) Do
  Begin
  If i Mod 2 = 1 Then Begin
If (Messg[i] = '0') And (Messg[i+1] = '1') Then
  Temp:=Temp+'А';
If (Messg[i] = '0') And (Messg[i+1] = '2') Then
  Temp:=Temp+'Б';
If (Messg[i] = '0') And (Messg[i+1] = '3') Then
  Temp:=Temp+'В';
If (Messg[i] = '0') And (Messg[i+1] = '4') Then
  Temp:=Temp+'Г';
If (Messg[i] = '0') And (Messg[i+1] = '5') Then
  Temp:=Temp+'Д';
If (Messg[i] = '0') And (Messg[i+1] = '6') Then
  Temp:=Temp+'Е';
If (Messg[i] = '0') And (Messg[i+1] = '7') Then
  Temp:=Temp+'Ё';
If (Messg[i] = '0') And (Messg[i+1] = '8') Then
  Temp:=Temp+'Ж';
If (Messg[i] = '0') And (Messg[i+1] = '9') Then
  Temp:=Temp+'З';
If (Messg[i] = '1') And (Messg[i+1] = '0') Then
  Temp:=Temp+'И';
If (Messg[i] = '1') And (Messg[i+1] = '1') Then
  Temp:=Temp+'Й';
If (Messg[i] = '1') And (Messg[i+1] = '2') Then
  Temp:=Temp+'К';
If (Messg[i] = '1') And (Messg[i+1] = '3') Then
  Temp:=Temp+'Л';
If (Messg[i] = '1') And (Messg[i+1] = '4') Then
  Temp:=Temp+'М';
If (Messg[i] = '1') And (Messg[i+1] = '5') Then
  Temp:=Temp+'Н';
If (Messg[i] = '1') And (Messg[i+1] = '6') Then
  Temp:=Temp+'О';
If (Messg[i] = '1') And (Messg[i+1] = '7') Then
  Temp:=Temp+'П';
If (Messg[i] = '1') And (Messg[i+1] = '8') Then
  Temp:=Temp+'Р';
If (Messg[i] = '1') And (Messg[i+1] = '9') Then
  Temp:=Temp+'С';
If (Messg[i] = '2') And (Messg[i+1] = '0') Then
  Temp:=Temp+'Т';
If (Messg[i] = '2') And (Messg[i+1] = '1') Then
  Temp:=Temp+'У';
If (Messg[i] = '2') And (Messg[i+1] = '2') Then
  Temp:=Temp+'Ф';
If (Messg[i] = '2') And (Messg[i+1] = '3') Then
  Temp:=Temp+'Х';
If (Messg[i] = '2') And (Messg[i+1] = '4') Then
  Temp:=Temp+'Ц';
If (Messg[i] = '2') And (Messg[i+1] = '5') Then
  Temp:=Temp+'Ч';
If (Messg[i] = '2') And (Messg[i+1] = '6') Then
  Temp:=Temp+'Ш';
If (Messg[i] = '2') And (Messg[i+1] = '7') Then
  Temp:=Temp+'Щ';
If (Messg[i] = '2') And (Messg[i+1] = '8') Then
  Temp:=Temp+'Ъ';
If (Messg[i] = '2') And (Messg[i+1] = '9') Then
  Temp:=Temp+'Ы';
If (Messg[i] = '3') And (Messg[i+1] = '0') Then
  Temp:=Temp+'Ь';
If (Messg[i] = '3') And (Messg[i+1] = '1') Then
  Temp:=Temp+'Э';
If (Messg[i] = '3') And (Messg[i+1] = '2') Then
  Temp:=Temp+'Ю';
If (Messg[i] = '3') And (Messg[i+1] = '3') Then
  Temp:=Temp+'Я';
If (Messg[i] = '3') And (Messg[i+1] = '4') Then
  Temp:=Temp+' ';
  End;
End;
Result:=Temp;
End;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
If RadioButton1.Checked Then
Edit1.Text:=CryptMessg(Edit1.Text)
Else
Edit1.Text:=DeCryptMessg(Edit1.Text);
end;

Думаю лучше было-бы использовать вместо цифр всякие символы (типа %,*,> и т.п.);

@Евгений В · 22.04.2011, 01:39

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

Правда код громоздкий, но как сделать по другому я не знаю...

Для кодировки текста из больших букв можно так

Delphi

Function CryptMessg(Messg:String):String;
Var
i,OrdW:SmallInt;
Temp:String;
Begin
For i:=1 To Length(Messg) Do
Begin
 OrdW:= Ord(Messg[i]);
 
 if  (OrdW>191) and  (OrdW <225) // пропускаем только большие буквы
 then OrdW:=OrdW-191;// тогда A=192-191=1, Б=193-191=2 и т.д
 
 if OrdW=32 then OrdW:=34;// для пробела назначим код 34
 
 if OrdW<10 then Temp:=Temp+'0'+IntToStr(OrdW)
 else Temp:=Temp+IntToStr(OrdW)
end;
 Result:=Temp;
End;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=CryptMessg(Edit1.Text);
end;

Для декодирования код чуть больше будет, но с применением этого принципа.

Правда код на слово "пример" другой чуть будет, т.к. не учитывается буква Ё.
Поэтому п будет 16 а не 17 и т.д.
Но можно учесть и ее.

Этот пример является вторым вариантом, о котором я писал выше

@Dima170792 · 22.04.2011, 23:15 **[ТС]**

В принципе подходит код S9только один вопрос-есть ли функция переводящая большие буквы в маленькие?

@S9 · 22.04.2011, 23:31

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

есть ли функция переводящая большие буквы в маленькие?

Есть AnsiLowerCase. Но думаю можно было бы прям в тексте программы вместо больших букв писать маленькие, или те и другие

@lekssp · 23.08.2012, 20:08

Вот хороший алгоритм шифрования:
http://articles.org.ru/docum/rocki.php

@marijuana777 · 11.11.2015, 15:07

S9, спасибо за код, но я не могу понять зачем в функции декрипта условие If i Mod 2 = 1 Then. Объясните пожалуйста

@S9 · 13.11.2015, 21:26

marijuana777, судя по всему это условие, что все буквы расшифруются. Скорее всего для простоты я по нубски каждую букву кодировал строго двумя цифрами, и поэтому для корректной дешифровки требуется чётное количество цифр (количество спрятанных букв будет равно количеству цифр деленному на два).
Вот наверное по этому там и такое условие.

P.S. В любом случае, сложно что-либо вспомнить насчёт кода, который писал 5 лет назад, на языке, который уже несколько лет не используешь

@Sergio Leone · 13.11.2015, 21:59

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

о я не могу понять зачем в функции декрипта условие If i Mod 2 = 1

декодируем только для нечётных значений i
т.е. цикл можно написать так:

Delphi

i:=1;
while i<Length(Messg) do begin
   тут код декодирования
   inc(i,2);
end;

но вообще, так не делают! Это ужас и кошмар.
Достаточно завести строчку с буквами

Delphi

1	Rus := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

и использовать для кодирования/декодирования её.

если нужно, могу показать, как это записать.

@marijuana777 · 15.11.2015, 19:41

Буду признателен за код или пример.

@Sergio Leone · 16.11.2015, 08:23

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

Буду признателен за код или пример.

легко.
вот функция для кодирования строки:

Delphi

const
  RusLetters4Code = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ ';
 
Function CryptMessg(Messg:String):String;
Var
  i,t:integer;
Begin
   Result := '';
   For i:=1 To Length(Messg) Do Begin
      t := Pos(Messg[i], RusLetters4Code);
      if t>0 then Result := Result + Format('%.2d', [t]);
   End;
End;

Добавлено через 4 минуты
код декодирования написать?

@Dima170792 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 17
		1
	Шифровка-дешифровка 21.04.2011, 22:59. Просмотров 4038. Ответов 11 Метки нет (Все метки) Помогите пожалуйста !Необходимо создать программу,которая будет зашифровывать,и дешифровывать слово ,поставив каждой букве её номер в алфавите.если знаете-подскажите пожалуйста!например-А=1,Б=2,В=3,и т.д. слово ''пример''за шифруется так-17181014618 ,а соответственно введя 17181014618 я должен получить слово ''пример''!если можете-помогите пожалуйста! 0

@Евгений В 901 / 662 / 132 Регистрация: 01.03.2010 Сообщений: 1,243
	22.04.2011, 00:50	2
	Dima170792, Думаю, что при шифровании необходимо формировать ключ, в котором сохраняется последовательность, показывающая сколько знаков отводится очередной букве. Возьмем слово "пример". Его код 17181014618 п - 17 (2 знака) р - 18 (2) и - 10 (2) м - 14 (2) е - 6 (1) р - 18 (2) ключ будет 222212. При расшифровке вводится этот ключ и по нему последовательно считывается нужное кол-во цифр, которые затем превращаются в буквы. Мне кажется, что по другому нельзя. Как программа поймет, что ей считывать? 1 - это а или 17 - это п (в твоем примере)? Правда, ключ может получиться очень длинным *Есть еще вариант, сделать код для всех знаков 2-х значным. Тогда ключ не понадобиться.* Ставь просто нуль перед однозначным числом. 171810140618 Но это уже будет слабое шифрование. Легко взломать. 0

@Dima170792 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 17
	22.04.2011, 23:15 [ТС]	5
	В принципе подходит код S9только один вопрос-есть ли функция переводящая большие буквы в маленькие? 0

@S9 Волшебник 654 / 257 / 88 Регистрация: 18.12.2010 Сообщений: 545
	22.04.2011, 23:31	6
	Сообщение от Dima170792 есть ли функция переводящая большие буквы в маленькие? Есть AnsiLowerCase. Но думаю можно было бы прям в тексте программы вместо больших букв писать маленькие, или те и другие 0

@lekssp 0 / 0 / 1 Регистрация: 28.12.2011 Сообщений: 10
	23.08.2012, 20:08	7
	Вот хороший алгоритм шифрования: http://articles.org.ru/docum/rocki.php 0

@marijuana777 0 / 0 / 0 Регистрация: 11.11.2015 Сообщений: 6
	11.11.2015, 15:07	8
	S9, спасибо за код, но я не могу понять зачем в функции декрипта условие If i Mod 2 = 1 Then. Объясните пожалуйста 0

@S9 Волшебник 654 / 257 / 88 Регистрация: 18.12.2010 Сообщений: 545
	13.11.2015, 21:26	9
	marijuana777, судя по всему это условие, что все буквы расшифруются. Скорее всего для простоты я по нубски каждую букву кодировал строго двумя цифрами, и поэтому для корректной дешифровки требуется чётное количество цифр (количество спрятанных букв будет равно количеству цифр деленному на два). Вот наверное по этому там и такое условие. P.S. В любом случае, сложно что-либо вспомнить насчёт кода, который писал 5 лет назад, на языке, который уже несколько лет не используешь 1

@marijuana777 0 / 0 / 0 Регистрация: 11.11.2015 Сообщений: 6
	15.11.2015, 19:41	11
	Буду признателен за код или пример. 0

Опции темы