как зашифровать код готовый программы?

[quarty]

Скажите пожалуйста как зашифровать код готовой программы на Дельфи, вот например сделал программу для ввода пароля в нее, но если открыть через блокнот можно увидеть заданный пароль, вот как сделать чтоб он был зашифрован и ничего небыло видно?

[Pein95]

а зачем вам распостронять програму с исходником?

[veniside]

> как зашифровать код готовой программы на Дельфи

код-то тут причем


> можно увидеть заданный пароль

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

Ну или навесьте защиту, типо АссПротекта или ЕхеКрупта, с ней прийдётся 20 минут возиться, а не 5 )

[BuT@JL]

Попробуй зашифровать пароль
например шифр цезаря

procedure TForm1.Button1Click(Sender: TObject);
var

  a,b,CaesarEncipher:string;

  i,n,t:integer;

begin
   n:=3;
  a:=Form1.Edit1.Text;

for i := 1 to length(a) do begin
    T := (Ord(a[ i ]) + n);
    if T >= 256 then dec(T, 256);
    a[ i ] := Chr(T);
  end;
  CaesarEncipher := a;
  Form1.Edit2.Text:=a; 

  end;


procedure TForm1.Button2Click(Sender: TObject);
var

  a,b,CaesarDecipher:string;

  i,n,t:integer;

begin

 n:=3;
 b:=Form1.Edit2.Text;
 for i := 1 to length(b) do begin
    T := (Ord(b[ i ]) - n);
    if T < 0 then Inc(T, 256);
    b[ i ] := Chr(T);
  end;
  CaesarDecipher := b;
  Form1.Edit2.Text:=b; 


end;

end.

[asmodey1]

Самый простой вариант - пароль собирать из отдельных буковок, а присвоение типа psw[i]:='s' производить в разных местах программы или хотя бы процедуры Form.Create()... Можно еще добавить преобразование типа psw[i]:=Chr(66).

[_Engine_]

Не храните пароли, храните их ХЭШи