delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

سلام عليكم
مثال

كود :
procedure TForm1.Button1Click(Sender: TObject);
var sLibrary : TCryptographicLibrary;
    sCodec : TCodec;
    str1, Cr, Dec : string;
    sEncoding : TEncoding;
begin
  str1 := 'delphi4arab.net this is text ....';

  sLibrary := TCryptographicLibrary.Create(Self);
  sCodec := TCodec.Create(Self);
  try
    sCodec.CryptoLibrary := sLibrary;
    sCodec.StreamCipherId := 'native.StreamToBlock';
    sCodec.BlockCipherId := 'native.AES-256';
    sCodec.ChainModeId := 'native.ECB';
    sCodec.Password := 'password';


    sCodec.EncryptString(str1, Cr, sEncoding.ANSI);
    sCodec.DecryptString(Dec, Cr, sEncoding.ANSI);

  finally
    sCodec.Free;
    sLibrary.Free;
  end;

  Edit1.Text := Cr;
  Edit2.Text := Dec;
end;

جهزت لك شرح لكيفية الاستعمال هنا

شكرا لك لقد استفدت جدا من شرحك جزاك الله خيرا

هل يمكن تعديل الكود هذا ليعمل مع الدلفي

كود :
    public static String decrypt(String strToDecrypt) {
        try {
            Cipher cipher = Cipher.getInstance("AES/ECB/PKCS5PADDING");
            cipher.init(Cipher.DECRYPT_MODE,setKey('password'));
            return new String(cipher.doFinal(Base64.decode(strToDecrypt.getBytes(), Base64.DEFAULT)));

الصفحات : 1 2

Mr.DOS

محمودد

محمودد