Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Exe Şifreleme

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Kod:
1 OpenDialog
2 Radio Button
1 Button

Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
header : array [0..4] of char;
thefile : tfilestream;
Checkheader : string;
begin
OpenDialog1.Filter :='Exe Dosyası (*.exe)|*.exe';
if OpenDialog1.Execute then
  begin
     thefile :=tfilestream.Create(OpenDialog1.FileName , fmopenreadwrite);
      if radiobutton1.Checked = true then
      begin
            thefile.Seek(0,sofrombeginning);
                thefile.Read(header,sizeof(header));
               if header[0]=chr(05) then
          begin
            messagebox(form1.Handle , 'Seçdiğiniz Dosya Daha Önceden Zaten Şifrelenmiş','Uyarı',mb_iconexclamation + mb_ok);
            thefile.Free;            
            exit;
          end;
                thefile.Seek(0,sofrombeginning);
               thefile.Write(chr(05) + chr(05) + chr(05) + chr(05),4);
                thefile.Seek(-5,sofromend);
               thefile.Write(header,sizeof(header));
               thefile.Free;
               Showmessage('Dosya Kilitlendi');
             end else if radiobutton2.Checked = true then
        begin
                   thefile.Seek(-5,sofromend);
                  thefile.Read(header,sizeof(header));
                   thefile.Seek(0,sofrombeginning);
                    thefile.Write(header,sizeof(header));
                   thefile.Free;
                   showmessage('Dosya Çözüldü');
                   end;
end;
end;
 
Üst Alt