Şifreleme Konusunda Bir Soru
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Şifreleme Konusunda Bir Soru
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
En son antalyali tarafından 25 Şub 2009 04:54 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Ülkemizin geleceği için Genç beyinlerin devamlı öğrenmesi ve uygulama yapması gereklidir Bu da önce ilgi sonra bilgi paylaşımıyla olur.
Re: ŞİFRELEME KONUSUNDA BİR SORU
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...
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...
Hayat tüm olumsuzluklara rağmen yaşamaya değer.
Re: ŞİFRELEME KONUSUNDA BİR SORU
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.
Windows gezginiyle deneme yapabilirsiniz, exe yi çalıştırın ve çalıştırdıgınız exe yi silmeye çalışın.
- sabanakman
- Kıdemli Üye
- Mesajlar: 3077
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Re: ŞİFRELEME KONUSUNDA BİR SORU
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.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .