Öncelikle formunuzun Indy Misc yaprağında bulunan ıdencoder mime ve ıddecoder mime yapıştırınız dialogs yaprağında bulunan save dialog ve open dialog yapıştırınız ve 2 adet buton,
3 adet memo yapıştırınız.C yi acip oraya bir yeni klasör olusturun adını deneme yapın ve icine bir adet tugrul(veya tercihen istediğiniz bir isim altinda) txt dosyasi yapın.
aşağıda verdiğim kodlari gerekli yerlere yapiştirin.
Kod:
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('c:\deneme\tugrul.txt'); // dosya ismini değiştirdinizmi tugrulla yer değiştirin
end;
procedure TForm1.Button1Click(Sender: TObject);
//Encript
var
dosya:TFileStream;
yol,metin:AnsiString;
begin
if OpenDialog1.Execute Then
begin
yol:=OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(yol);
dosya:=TFileStream.Create(yol,fmOpenRead);
metin:=IdEncoderMIME1.Encode(dosya);//Encript Et
Memo2.Text:=metin;
Memo2.Lines.SaveToFile(yol+'.xxx');//kaydet
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
//Decript
var
dosya:TFileStream;
metin,yol:AnsiString;
begin
if SaveDialog1.Execute Then
begin
yol:=SaveDialog1.FileName;
dosya:=TFileStream.Create(yol,fmCreate);//dosyayı yarat
metin:=Memo2.Text;
IdDecoderMIME1.DecodeToStream(metin,dosya);//çöz dosyaya aktar
dosya.Free;
Memo3.Lines.LoadFromFile(yol);//göster
end;
end;
Konu: Delphİ De Encrİpt Ve Decrİpt Uygulamasi. 
C.tesi Ara. 05, 2009 10:59 pm
