RSADecrypt

[xkor]

supernewbie, вот так канает:

procedure TForm1.FormCreate(Sender: TObject);
var
  key:TRSAKey;
  s:String;

begin
s:=#0+Edit1.text;
key:=NewRSAKey;
RSA_BlockEnc(s[1],key);
RSA_BlockDec(s[1],key);
Delete(s,1,1);
Edit2.text:=s;
end;

суть в том что key.n должно быть большим числом нежели шифруемое, а для этого надо чтобы первый а лучше и ещё парочка следующих байт в шифруемом блоке были нулевыми
ЗЫ твой вариант кстати тоже один раз из где то 4-5 прокатывает)