шифрование отдельного куска кода

[beegl]

взял этот пример

const
  csCryptFirst = 20;
  csCryptSecond = 230;
  csCryptHeader = 'Crypted';

type
  ECryptError = class(Exception);

function CryptString(Str:String):String;
var i,clen : Integer;
begin
  clen := Length(csCryptHeader);
  SetLength(Result, Length(Str)+clen);
  Move(csCryptHeader[1], Result[1], clen);
  For i := 1 to Length(Str) do
   begin
    if i mod 2 = 0 then
     Result[i+clen] := Chr(Ord(Str[i]) xor csCryptFirst)
    else
     Result[i+clen] := Chr(Ord(Str[i]) xor csCryptSecond);
   end;
end;

function UnCryptString(Str:String):String;
var i, clen : Integer;
begin
  clen := Length(csCryptHeader);
  SetLength(Result, Length(Str)-clen);
  if Copy(Str, 1, clen) < > csCryptHeader then
   raise ECryptError.Create('UnCryptString failed');

  For i := 1 to Length(Str)-clen do
   begin
    if (i) mod 2 = 0 then
     Result[i] := Chr(Ord(Str[i+clen]) xor csCryptFirst)
    else
     Result[i] := Chr(Ord(Str[i+clen]) xor csCryptSecond);
   end;
end;

[beegl]

что за ошибка

procedure TForm2.LogPassLoad;
var
   RegIniFile:TRegIniFile; 
begin
 RegIniFile:=TRegIniFile.Create('MySelfRegistryApplication');
 Form2.Left:=RegIniFile.ReadInteger('Form1','Form1Left',Form2.Left);
 Form2.Top:=RegIniFile.ReadInteger('Form1','Form1Top',Form2.Top);
 Form2.Height:=RegIniFile.ReadInteger('Form1','Form1Height',Form2.Height);
 Form2.Width:=RegIniFile.ReadInteger('Form1','Form1Width',Form2.Width);
 ExtractExt.Checked:=RegIniFile.ReadBool('Form1','ExtractExt', False);
 Timer2.Enabled := RegIniFile.ReadBool('Form1','TimerEnabl', True);
 Phone.Text:=RegIniFile.ReadString('Form1','Edit1TextEx',Phone.Text);
 Password.Text:=RegIniFile.ReadString('Form1','Edit1TextExt',UnCryptString(Password.Text));
 RegIniFile.Free; 
end;

procedure TForm2.LogPassSave;
 Var RegIniFile:TRegIniFile;
begin
 RegIniFile:=TRegIniFile.Create('MySelfRegistryApplication');
 RegIniFile.WriteInteger('Form1','Form1Left',Form2.Left);
 RegIniFile.WriteInteger('Form1','Form1Top',Form2.Top);
 RegIniFile.WriteInteger('Form1','Form1Height',Form2.Height);
 RegIniFile.WriteInteger('Form1','Form1Width',Form2.Width);
 RegIniFile.WriteBool('Form1','ExtractExt',ExtractExt.Checked);
 RegIniFile.WriteBool('Form1','TimerEnabl',Timer2.Enabled);
 RegIniFile.WriteString('Form1','Edit1TextEx',Phone.Text);
 RegIniFile.WriteString('Form1','Edit1TextExt',CryptString(Password.Text));
RegIniFile.Free;
end;

или покажите свой вариант

[Lime]

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

что за ошибка

  if Copy(Str, 1, clen) <> csCryptHeader then
   raise ECryptError.Create('UnCryptString failed');

Вроде всё очевидно, в начале строки отсутствует марка

csCryptHeader = 'Crypted';

причина:

Password.Text:=RegIniFile.ReadString('Form1','Edit1TextExt',(Password.Text));

должно быть

Password.Text:=UnCryptString(RegIniFile.ReadString('Form1','Edit1TextExt','Дефолтное значение'));

тырк

[beegl]

как не допустить запись в реестр, которая кодирует текст,

const
  csCryptFirst = 20;
  csCryptSecond = 230;
  csCryptHeader = 'Crypted';

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

csCryptHeader = 'Crypted'

, освободил, оформил так :

csCryptHeader = ''

, т.е. пустой csCryptHeader, но когда константа ровняется csCryptHeader = '' - пароль/текст совсем не шифрует.
Подскажите, что делать, как исправить, или что не верно в моем коде?

procedure TForm2.LogPassLoad;
var
   RegIniFile:TRegIniFile; // ðååñòðîâûé îáúåêò
begin
 RegIniFile:=TRegIniFile.Create('Software');
 RegIniFile.OpenKey('Intertelecom Tools',true);
 RegIniFile.OpenKey('Intertelecom Tools-Open',true);
 begin
 Form2.Left:=RegIniFile.ReadInteger('Intertelecom','Intertelecom Form1Left',Form2.Left);
 Form2.Top:=RegIniFile.ReadInteger('Intertelecom','Intertelecom Form1Top',Form2.Top);
 Form2.Height:=RegIniFile.ReadInteger('Intertelecom','Intertelecom Form1Height',Form2.Height);
 Form2.Width:=RegIniFile.ReadInteger('Intertelecom','Intertelecom Form1Width',Form2.Width);
 ExtractExt.Checked:=RegIniFile.ReadBool('Intertelecom','Intertelecom ExtractExt', False);
 CheckBoxBMPFade1.Checked := RegIniFile.ReadBool('Intertelecom','Intertelecom ExtractExtExx', False);
 Phone.Text:= RegIniFile.ReadString('Intertelecom','Intertelecom Phone',Phone.Text);
 Password.Text := UnCryptString(RegIniFile.ReadString('Intertelecom','Intertelecom Password',Password.Text));
 RegIniFile.Free; // óíè÷òîæåíèå âðó÷íóþ ñîçäàííîãî îáúåêòà
end;
end;

procedure TForm2.LogPassSave;
var
   RegIniFile:TRegIniFile;
begin
 RegIniFile:=TRegIniFile.Create('Software');
 RegIniFile.OpenKey('Intertelecom Tools',true);
 RegIniFile.OpenKey('Intertelecom Tools-Open',true);
 begin
 RegIniFile.WriteInteger('Intertelecom','Intertelecom Form1Left',Form2.Left);
 RegIniFile.WriteInteger('Intertelecom','Intertelecom Form1Top',Form2.Top);
 RegIniFile.WriteInteger('Intertelecom','Intertelecom Form1Height',Form2.Height);
 RegIniFile.WriteInteger('Intertelecom','Intertelecom Form1Width',Form2.Width);
 RegIniFile.WriteBool('Intertelecom','Intertelecom ExtractExt',ExtractExt.Checked);
 RegIniFile.WriteBool('Intertelecom','Intertelecom ExtractExtExx',CheckBoxBMPFade1.Checked);
 RegIniFile.WriteString('Intertelecom','Intertelecom Phone',Phone.Text);
 RegIniFile.WriteString('Intertelecom','Intertelecom Password',CryptString(Password.Text));
 RegIniFile.Free;
end;
end;

использовал стандартные компоненты

RegIniFile.WriteString('Intertelecom','Intertelecom Password',IdEncoderMIME1.Encode(Password.Text));

Password.Text := IdDecoderMIME1.DecodeString(RegIniFile.ReadString('Intertelecom','Intertelecom Password',Password.Text));

[Михаил Юрьевич]

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

Вышла новая версия. Мемножко изменил интерфейс, теперь DLL файлы кидаются в:

'C:\WINDOWS\system32\LIBEAY32.DLL'
'C:\WINDOWS\system32\SSLEAY32.DLL'

тоесть теперь один исполняемый файл

добавил кнопку О программе, авторские права и ограничения, для красоты, так полагается))))) ...... мелкие доработки. без вредного кода, т.е. без вируса, файл необходимо запускать на компе, на ПК. Приятного просмотра). Пишите, пишите, что добавить/убрать?



ссылка на скачивание: http://rghost.ru/42880201
ссылка на скачивание: http://upwap.ru/2969235
ссылка на скачивание: http://www.multiupload.nl/XLYKM2J92Z

Вы хоть предупреждайте что выкладываете, при запуске ждал секунд 20 пока заставка прорисовывалась, а когда закрыть программу хотел, то заставка заняла всю память , и даже при вызове диспетчера задач так он и не открылся. Пришлось убивать процесс другой программой.Это что ,шутка-издевалка программа?

[beegl]

нет, это старая версия, и сменил пароль в другой программе

[3D Hunter]

"ваш код - гавно!"©
начните с теории по криптографии в целом. да и знания языка у вас сильно хромают. изучению лишь теории я посвятил около 2х месяцев при написании своего диплома на эту тему. и то этого крайне мало для чего-то серьезного. а вы хотите сразу и чтоб круто было. кто шифрует байты простыми ксорами да еще и константными?) убивайте в себе детский сад. скажете, я гоню?) я не завидую компании ИнтерТелеКом, которая фигурирует у вас в коде

[beegl]

привет, надо компонент CryptEdit, существует такой?

[Serge_Bliznykov]

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

привет, надо компонент CryptEdit, существует такой?

Привет, а что он делает (для чего предназначен)?

[Человек_Борща]

Привет, а что он делает (для чего предназначен)?

Для предмета обсуждения в этой теме, это же очевидно.

ТС:Берете алгоритм DES и вперед, там же BlowFish есть.

Очевидно beegl не хочет думать своей головой, и по-этому, пишет программу силами других программистов(код, компоненты все с инета).