supernewbie, вот так канает:
delphi Код:
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 прокатывает)