Programmsicherung mit RSA & OpenSSL

[schwa226]

Hallo zusammen!

ich bräuchte etwas Hilfe mit OpenSSL & Delphi.

Ich habe einen RSA Keysatz:

Private E:

Code:

6400B4CA2B938E47AD4FF97F259CB59B3D7C7E7A552B8606CD2807822C5D126D1B46339642A060EB4005C6F59274C18F07795C444FA5D977436DFC5A770CEB65252FE5EF773D95B981381BA5F2D2401160F0F6B5162FEB1B83421B88F459FD2A90DE9FA5C18E604CE1F6B568D19F65EA4FF7BCA9C1A90E4F45C5EAF4507576EDDAD17BA699A02F90101E5C38D841FBB243C58E4FBAD7422AE8449D92A5A86F8045D72166BE297A918DEB473784543A76EA0B0AF2BC0345F5608F92B76836982C77655D987AEC951B6C0382D7ECE975280AA28426BA75C3837AA641269F2526CD0529569FF906736D7B93AC1C04B17A0FEC189CEA48A055A02E065D295EEC72DD

Public E:

Code:

10001

Modulus:

Code:

B7BB3965F9F0DED8673A24ECCBC281231BEC312A93AAAD7A3C1E344E23939F8838008230494EB0719221D2DA99187E82611A806E8C9B65DA3E1DB96D763EFC63FD6C8336D4CBF0A2A525BBEFC509A50A349089430B40CB18B298B9CFF5579A3D07E8FB19DDC4A22171FFB9088E0AF2C571C972802641F421D133BDF631425F7758C9ABFB342DCA09FEEB02DFF5BDEE51CED6DB96B14D9A9B485BEAC5B15909D62005E5DA88C39A0FFD0520608EB8C2EAAC28CBE128A563D676C0EC04216C8DB3E82E8A3E714A089655149CAD72D9EDB6B13B17DDB1335F00586B64E62E4AE2A853D1B5CA9BD83C23E3616E637F53F7D897B6B18BA965CFC743815D1100FBD369

Nun habe ich eine public.key (Anhang) datei die 270 Bytes enthält.
Mit dieser Commandzeile:

Code:

openssl asn1parse -inform DER -in public.key

erhalte ich das Ergebnis:

Code:

    0:d=0  hl=4 l= 266 cons: SEQUENCE
    4:d=1  hl=4 l= 257 prim: INTEGER           :B7BB3965F9F0DED8673A24ECCBC28123
1BEC312A93AAAD7A3C1E344E23939F8838008230494EB0719221D2DA99187E82611A806E8C9B65DA
3E1DB96D763EFC63FD6C8336D4CBF0A2A525BBEFC509A50A349089430B40CB18B298B9CFF5579A3D
07E8FB19DDC4A22171FFB9088E0AF2C571C972802641F421D133BDF631425F7758C9ABFB342DCA09
FEEB02DFF5BDEE51CED6DB96B14D9A9B485BEAC5B15909D62005E5DA88C39A0FFD0520608EB8C2EA
AC28CBE128A563D676C0EC04216C8DB3E82E8A3E714A089655149CAD72D9EDB6B13B17DDB1335F00
586B64E62E4AE2A853D1B5CA9BD83C23E3616E637F53F7D897B6B18BA965CFC743815D1100FBD369

  265:d=1  hl=2 l=   3 prim: INTEGER           :010001

OK, soweit so gut...

Nun möchte ich ein Programm schreiben (RAD2007 oder RAD2009) das mit

Code:

RSA * d2i_RSAPublicKey(RSA **a, unsigned char **pp, long length);

als erster den RSA Satz aus der Datei ausliest und dann per:

Code:

int RSA_public_decrypt(int flen, unsigned char *from,
   unsigned char *to, RSA *rsa, int padding);

meine Daten wieder entschlüsselt.

Somit würde ich auch diese Funktion brauchen:

Code:

int RSA_private_encrypt(int flen, unsigned char *from,
   unsigned char *to, RSA *rsa, int padding);

Das Ganze ist an einen anderen Source angelehnt und sollte vom Format gleich bleiben. (asn1)

Jedoch habe ich schon viel herumgesucht und das was ich gefunden habe war nicht brauchbar.

Gibt es da Informationen zu diesen Funktionen und eventuell auch Sample Source?

Einen Beitrag habe ich hier gefunden, aber der Code funktioniert nicht!