1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  rc.InitStr('meinkey',TDCP_sha1);//Initalisieren
  sqlqt.TableName := 'emails';
  sqlqt.Open;
  sqlqt.Append;
  sqlqt.FieldByName('empfänger').AsString := rc.EncryptString(sqlq.FieldValues['empfänger']);//encrypten
  sqlqt.FieldByName('absender').AsString := rc.EncryptString(sqlq.FieldValues['absender']); //encrypten
  sqlqt.FieldByName('betreff').AsString := rc.EncryptString(sqlq.FieldValues['betreff']);//encrypten
  sqlqt.FieldByName('cc').AsString := sqlq.FieldValues['cc'];//encrypten
  sqlqt.Post;// in datenbank schreiben
  sqlqt.Close;
  rc.Burn;//algorythmus löschen
  sqlq.Next;