نوشته شده توسط
1072300
سلام، اگر امکان دارد برای روش AES یک نمونه کد با توضیح بفرمایید، سپاس
سلام
در مثال زیر متن ورودی رمزگذاری میگردد:
procedure TForm1.BitBtnEncryptClick(Sender: TObject);
begin
try
ipcAES1.UseHex := True;
ipcAES1.InputMessage := EditInputMessage.Text;
ipcAES1.KeyPassword := EditKeyPassword.Text;
ipcAES1.Encrypt;
EditOutputMessage.Text := ipcAES1.OutputMessage;
except
on E: Exception do
ShowMessage(E.Message);
end;
end;
و در این مثال فایل انتخاب شده رمزگذاری می گردد:
procedure TForm1.BitBtnEncryptFileClick(Sender: TObject);
begin
try
ipcAES1.UseHex := True;
ipcAES1.InputFile := EditInputFileAddress.Text;
ipcAES1.OutputFile := EditOutputFileAddress.Text;
ipcAES1.KeyPassword := EditFileKeyPassword.Text;
ipcAES1.Encrypt;
ShowMessage('فایل با موفقیت رمزگذاری گردید.');
except
on E: Exception do
ShowMessage(E.Message);
end;
end;
برای رمزگشایی هم از متد Decrypt استفاده می شود.(به یاد داشته باشید که برای رمزگشایی متن/فایل ورودی باید متن/فایل رمزشده باشد)
موفق باشیم