Sehr kleines Programm für eine RC4 Verschlüsselung

[BigT]

also ich habe ja das folgende problem:
ich gebe einen string z.B "ababa" ein.
Wenn ich dann auf den Button klicke, soll dieser String mithilfe von dem RC4 Algoirthmus verschlüsselt werden.

Jetzt ist eben meine Frage, wie ich das in die Procedure init, code und done eintragen muss??

Nett wäre, wenn ihr mir sagt was ich wo reinschreiben muss oder es direkt selber abändert...


Vielen Dank im Voraus