Şifreleme Konusunda Bir Soru

[antalyali]

Arkadaşlar yaptığımız bir programı mesela flash disc e kaydettik diyelim ve bir aksilik bunu kaybettik benim merak ettiğim programımızın kurulumu veya açılışında şifre istemesi ve 3 hatalı şifreden sonra programımızı tamamen silmesi veya tüm flashı silmesini sağlayacak kod yazabilirmiyiz

[Laz61]

s.a.v

Sayet sorunu dogru anladiysam kendi mantigima göre bir sifre programi

implementation

uses Unit2;

{$R *.dfm}
{$j+}

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.GetTextLen>5 then
Button1.Enabled:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
const x:integer=0;
begin
x:=x+1;
Panel1.caption:=inttostr(x);
if edit1.text='123456' then
begin
Form2.Show;
Button1.Enabled:=False;
showmessage('Sifreyi Bildiniz');
end
else
begin
Showmessage('Sifreyi Bilemediniz');
Button1.Enabled:=False;
if Panel1.caption='3' then
begin
DeleteFile('c:\Dosyam.rtf');
Form1.close;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.passwordchar:='*';
end;
end.

Umarim isine yarar...

[emin_as]

Windows altında çalışan bir porgram kendini kilitli olarak açar ve o dosyaya müdahale edemezsiniz. Aynı şekilde flashtan çalışan bir dosya flash i silemez.

Windows gezginiyle deneme yapabilirsiniz, exe yi çalıştırın ve çalıştırdıgınız exe yi silmeye çalışın.

[sabanakman]

TrueCrypt programı ile şifreli bir dosya oluştur. Bu dosyayı sisteme bir disk gibi takıp, istediğin dosyaları tutabilirsin. Şifreyi bilmeden de bu şifreli dosya içeriğine erişilemediğinden yaban ellerde bu bilgiler anlamsız olacaktır.