Помогите мне написать программу которая шифрует слова введённые в memo1 на какие ни будь закарючки и обратно из закарючек в нормальный текст
ввод в memo1 вывод B Memo2

Это сообщение отредактировал(а) vovan430 - 29.10.2005, 13:20

Создаешь какое-либо множесво, в котором каждому символу ставишь в соответствие какую-нибудь закорючку. Расшифровывается просто в обратном порядке.
Один из самых простых способов шифрования - сдвиг на определенное кол-во букв по алфавиту относительно текущей. Например устанавливаешь сдвиг = 5, и получаешь, что А=Д, Б=Е и т.д.
Знаки препинания можешь просто заманить на закарючки. Надеюсь смысл понятен.

Вот простой примерчик шифрования и дешифрования текста:

Код

procedure TForm1.Button1Click(Sender: TObject);  var    s: String[255];    c: array[0..255] of Byte absolute s;    i: Integer;  begin    {Для шифровки}    s := 'Мега пупер супер секретный текст';    for i := 1 to Ord(s[0]) do c[i] := 23 xor c[i];    Label1.Caption := s;    {Дешифруем}    s := Label1.Caption;    for i := 1 to Length(s) do s[i] := Char(23 xor Ord(c[i]));    Label2.Caption := s;  end;

p.s. для Memo придется чуть чуть переделать!

а точнее как для memo
Добавлено @ 15:51

Цитата(MFSham @ 29.10.2005, 14:07)

Один из самых простых способов шифрования - сдвиг на определенное кол-во букв по алфавиту относительно текущей. Например устанавливаешь сдвиг = 5, и получаешь, что А=Д, Б=Е и т.д. Знаки препинания можешь просто заманить на закарючки. Надеюсь смысл понятен.

Понятен смысл, но такой способ у меня уже есть надо другой.

Могу предложить гениальный вариант! Сам случайно напоролся. Если сохранить string в файл при помощи TMemoryStream, то оно его так закодирует, что раскодировать само не сможет. Зато его можно будет раскодировать при помощи команды ReadFile. Почему работает, не знаю, но работает. А пишется легко.

Цитата(ne0n @ 29.10.2005, 15:32)

Вот простой примерчик шифрования и дешифрования текста

По моему такой вариант для Memo1 неприемлим. Получается тебе для каждой строки надо будет хранить отдельный массив. А если строк в Memo1 1000, то тебе придется хранить 1000 массивов для того, чтобы это все потом расшифровать. А для шифровки одной строки предложенный способ естестно прокатит.
Тут быстрее будет написать некий алгоритм распознавания и дешифровки текста из Memo2, основываясь на том, какой был выбран метод шифрования.

Цитата(vovan430 @ 29.10.2005, 15:46)

Понятен смысл, но такой способ у меня уже есть надо другой.

Придумай!!! Почему не использовать способ предложенный Prof 2000. Это ведь тоже один из вариантов. Как говорил наш препод по матану - решение надо придумать, приснить, взять с потолка и т.д.

Это сообщение отредактировал(а) MFSham - 30.10.2005, 11:04

А если нам определить обычный массив от 0 до 255 с произвольным расположением символов в нем из таблицы кодов без их повторнений? Тога мы можем легко кодировать и раскодировать текст, при этом секретность нормальная, если применить в добавок еще и простой xor и сменить кодировку у текста. Все это пишется в пару строк.

вот пример:

Код

type    TListCript = array of byte; .... implementation {$R *.dfm} procedure TForm6.SpeedButton1Click(Sender: TObject); var list:Text;     LC:TListCript;     i, len :word;     OsCt:byte;     fc:file of byte;     s:string;     ListCript: TStringList; begin if not SaveDialog1.Execute then    begin    MessageDlg('Не выбран файл.Операция остановлена.',mtError,[mbOK],0);    Exit;    end; ListCript:=TStringList.Create; ListCript.Clear; ListCript:=Memo1.Lines; list:=ListCript.Text; len:=Length(List)-1; SetLength(LC,len+1); for i:=0 to (len) do     begin     OsCt:=(ord(list[len+1-i])-i+len) mod 256;     LC[i]:=OsCt;     end; s:=SaveDialog1.FileName+'.dat'; AssignFile(fc,s); Rewrite(fc); for i:=0 to len do    Write(fc,LC[i]); Closefile(fc); end;

здесь текст шифруется и записывается в файл. Выбран именно такой вариант, потому что работаю с TStringList, при зашифровке может получится символ #13, после него все символы в строке (String) теряются, что делает невозможным корректную расшифровку. Если поэкспериментировать с переменными типа Техt и зашифровку производить не по строкам, а по символьно, то может и получится преобразовать в нормальный текст, поддающийся расшифровке.

Base64 гарантирует набор только из ANSI символов

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Memo2: TMemo;     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} function Base64Encode(const strPlain: String): String;   function EncodeByte(b: BYTE): Char;   const     Base64Table: String[64] =       'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';   begin     Result := Base64Table[(b and $3F) + 1];   end; var   i: Integer; begin   i := 1;   Result := '';   while i <= Length(strPlain) do begin     Result := Result + EncodeByte(BYTE(strPlain[i]) shr 2);     Result := Result + EncodeByte((BYTE(strPlain[i]) shl 4) or (BYTE(strPlain[i+1]) shr 4));     if i+1 <= Length(strPlain) then       Result := Result + EncodeByte((BYTE(strPlain[i+1]) shl 2) or (BYTE(strPlain[i+2]) shr 6))     else       Result := Result + '=';     if i+2 <= Length(strPlain) then       Result := Result + EncodeByte(BYTE(strPlain[i+2]))     else       Result := Result + '=';     Inc(i, 3);   end; end; function Base64Decode(const strCoded: String): String; const   RESULT_ERROR = -2; var   c: Char;   x: SmallInt;   W: WORD;   StoredW: array[0..3] of SmallInt;   strCodedIndex: Integer;   strCodedLength: Integer; begin   Result := '';   strCodedIndex := 1;   W := 0;   strCodedLength := Length(strCoded);   while strCodedIndex <= strCodedLength do begin     while (strCodedIndex <= strCodedLength) and (W < 4) do begin       c := strCoded[strCodedIndex];       case c of         '+'     : x := 62;         '/'     : x := 63;         '0'..'9': x := Ord(c) - (Ord('0') - 52);         '='     : x := -1;         'A'..'Z': x := Ord(c) - Ord('A');         'a'..'z': x := Ord(c) - (Ord('a') - 26);       else         x := RESULT_ERROR;       end;       if x <> RESULT_ERROR then begin         StoredW[W] := x;         Inc(W);       end;       Inc(strCodedIndex);     end;     if W = 4 then begin       W := 0;       Result := Result + Char((StoredW[0] shl 2) or (StoredW[1] shr 4));       if StoredW[2] = -1 then Exit;       Result := Result + Char((StoredW[1] shl 4) or (StoredW[2] shr 2));       if StoredW[3] = -1 then Exit;       Result := Result + Char((StoredW[2] shl 6) or (StoredW[3]));     end;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   Memo2.Text := Base64Encode(Memo1.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin   Memo1.Text := Base64Decode(Memo2.Text); end; end.

Цитата(RideX @ 30.10.2005, 20:26)

Base64 гарантирует набор только из ANSI символов

ну можно немножко подделать и будет ещё с русским алфовитом работать...

Посмотри это:

http://delphiworld.narod.ru/base/archives/files_encode.zip

Цитата(Albinos_x @ 31.10.2005, 02:38)

можно немножко подделать и будет ещё с русским алфовитом работать

Ещё немножно - будет и с арабским Здесь имеется ввиду, что в выходном тексте не будет непечатных символов, Esc-последовательностей, типа $0x

vovan430
Для кодирования используй компонент TIdBase64Encoder, а для декодирования TIdBase64Decoder из панели Indy Misс.
А также есть компоненты(TIdCoderMD2, TIdCoderMD4, TIdCoderMD5) для шифрования по стандартам RSA-MD2/4/5.

Лично я использую для кодирования и декодирования компонент TIdBase64Encoder и декодирование TIdBase64Decoder.

На мой взгляд, не стоить изобретать свой велосипед, он уже есть! Всё равно лучшего не сделаешь!

Удачи

Простейший xor, эту же функцию для расшифрования используй...

Код

function EncryptData(Data : PChar;                        DataSize: LongInt;                        Key : PChar;                        KeySize : Integer): boolean; stdcall;   var     I : longint;   begin     For i := 0 to DataSize - 1 do         Data[i] := Char(Byte(Data[i]) xor Byte(Key[i mod KeySize]));     Result := true;   end; Использование:   OurText := StrNew(Memo1.Lines.GetText);   EncryptData( OurText, Length(OurText), 'testkey', 7);

Это сообщение отредактировал(а) Girder - 16.11.2005, 13:26

Полиалфавитный шифр Вигинера - мощная вещь! Шифрует по введённом слову, и как шифрует! Не то что закорючки - верхний и нижний индекс и прочие непечатаемые знаки в деле! И кода - всего ничего:


Пример:

Добавлено @ 11:34
Да, а дешифрация - точно также проходит.
Добавлено @ 11:36
Да, и ещё немного - ключевое слово может быть как русским, так и английским(китайским, японским...) и не просто слово - предложение. Шифрует любой текст (на любом языке).

http://forum.vingrad.ru/index.php?act=modu...amp;section=774