see http://it.wikipedia.org/wiki/Advanced_Encryption_Standard
I found a sample on delphi but I cannot Know How converte it
http://www.example-code.com/delphi/aes_stringEncryption.asp
- Code: Select all Expand view
- procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
password: String;
hexKey: String;
text: String;
encText: String;
decryptedText: String;
begin
crypt := TChilkatCrypt2.Create(Self);
success := crypt.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
begin
ShowMessage('Crypt component unlock failed');
Exit;
end;
password := 'secretPassPhrase';
crypt.CryptAlgorithm := 'aes';
crypt.CipherMode := 'cbc';
crypt.KeyLength := 128;
// Generate a binary secret key from a password string
// of any length. For 128-bit encryption, GenEncodedSecretKey
// generates the MD5 hash of the password and returns it
// in the encoded form requested. The 2nd param can be
// "hex", "base64", "url", "quoted-printable", etc.
hexKey := crypt.GenEncodedSecretKey(password,'hex');
crypt.SetEncodedKey(hexKey,'hex');
crypt.EncodingMode := 'base64';
text := 'The quick brown fox jumped over the lazy dog.';
// Encrypt a string and return the binary encrypted data
// in a base-64 encoded string.
encText := crypt.EncryptStringENC(text);
Memo1.Lines.Add(encText);
// Decrypt and show the original string:
decryptedText := crypt.DecryptStringENC(encText);
Memo1.Lines.Add(decryptedText);
end;
I found also a javascript complete source
http://home.versatel.nl/MAvanEverdingen/Code/
to encript on RC4, AES, Serpent, Twofish, Caesar and RSA ciphers.
