E       = FF DA 72 4C 55 4A 4B 80 03 60 47 1D 2B 12 6F 08 36 A0 12 65 5D 3E 16 07 06 B6 69 09 11 B7 35 6E 27 BE 2B DE 7F DA 26 D8 05 C5 24 ED 5D 01 12 E6 37 F7 5D E6 09 51 1A DB 42 05 0B E4 28 C5 3E F9
N       = D0 FC 55 E2 35 11 67 C3 D8 A7 3B C7 91 54 72 B8 66 ED 59 BC D0 9F 56 BB DA 8B 70 39 88 7F 62 2A DA CE E2 8D 8D 2A 03 6E 1E 25 CC 14 4A CA 42 66 B9 82 E4 B1 D7 E0 A1 29 D3 6D 87 80 62 70 57 78 70 23 4B 99 F5 D9 78 30 FD 44 8E 9B 36 04 04 3A 9F 46 CE DB 66 23 D0 27 7B 98 40 79 43 C0 02 E3 24 1B F0 A5 36 3A 56 4D 6C 0B EE 2D 09 D3 05 E3 D9 AD BE 82 3C 51 45 1A 0C CE E9 B3 1B BE E9 1C C0 AD 4D F2 D4 C7 8E D4 D9 EE EA D3 70 1A 4E 53
D       = 7E 3B 1B 40 49 2E 67 23 55 A1 F9 E5 90 22 CE 8E 3F 5C 02 71 CB D8 53 F6 EB 23 9D 43 A2 00 4E 7C C5 5D E7 60 0F 1D D3 21 8C 5E 82 8D B2 98 A6 8A DB E8 6D 2B E2 F0 7D 32 2B 2C FA 1D 0D 5C 86 A3 ED 72 B9 E4 A6 DF 82 6F B4 D9 76 D4 CF 01 50 DB AE 43 A1 E4 61 05 89 87 DE E8 03 C4 94 91 FF 00 FC 17 01 74 13 94 42 7C 33 F0 73 50 55 D2 53 9A BB CC 36 37 A1 77 CA 09 5B ED F7 23 33 80 B7 2C 90 B9 40 AA 61 45 AC 67 5C F4 3A 40 C4 53 0D 49
P       = FE 67 24 EB 19 8A 6B C9 75 A5 08 C0 54 57 18 81 37 FE 60 8E 39 35 1A 44 28 E2 5C 32 44 8B 30 93 52 EF 37 05 1D 18 54 DD 74 5A 42 98 60 02 06 62 35 9D 72 AD 55 21 5D 48 16 61 46 78 37 8B 60 FE 5C AC 2B 16 7E 62 64 13
Q       = D2 4C 33 4C 51 DB 35 C9 5C 85 40 83 18 91 68 CF 39 F8 79 02 49 0A 4F FB 72 D6 27 6C 6B 89 48 38 47 44 5F 7C 78 15 48 1E 28 10 03 FE 7C C8 1D 0F 05 94 0A 0F 38 5C 4B 92 00 E9 15 97 14 F1 4E EE 0B 4F 4B 05 2F 23 34 C1
dP      = A5 30 32 66 E4 A8 E0 0E 60 F7 D4 CF 71 7E 25 F9 0C C7 F2 FB 67 C3 F0 08 A7 4D 6C 9F 12 91 24 B6 66 F3 79 9A 85 AC F3 9A 26 2E F1 0A 99 F2 DC 4D 70 BD 07 2D E1 E1 37 5F EF F8 CF 9A F8 52 08 B7 5B 14 45 77 15 D6 60 CD
dQ      = 7B 7B 05 63 97 CD 1C 6A F4 F7 0F 86 50 9B 49 4F 96 53 96 03 24 BB BA EB 91 F7 99 B4 20 FD 3C D8 06 3D AE 19 B0 B7 41 D2 35 E3 B5 94 B1 2D 34 27 3A 7D F1 DD 8F 15 56 A8 9C 49 6F 7F 52 8C E8 19 A3 5F 3E 30 9E 8D 6F 89
qInv    = E0 52 92 F7 A7 38 60 84 2D 9E 32 BD AC CD 8D A5 6C 14 E4 A9 D8 5D 2B 3C 8F 8C 2F 59 0D FC 74 96 6E 8D 98 1D 13 7A 25 44 1A F5 4F BF C7 46 E7 4A 87 F4 3F 13 6D 98 55 18 07 37 25 5A A3 7A F5 7B 69 CB 75 0E 29 83 0B 4C

x       = dup( int( 1152/8 ), 03 )

a       = rsa_pub_encode( 1152, $e, $n, $x )
b       = new_rsa_pub_encrypt( hex( 1152 ), $e, $n, $x )
if $a != $b
    ?
    pause
endif

c       = rsa_nd_decode( 1152, $n, $d, $a )
dx      = rsa_crt_decode( 1152, $p, $q, $dp, $dq, $qinv, $a )
e       = new_rsa_std_decrypt( hex( 1152 ), $n, $d, $a )
f       = new_rsa_crt_decrypt( hex( 1152 ), $p, $q, $dp, $dq, $qinv, $a )

if $c != $dx
    ?
    pause
endif
if $c != $e
    ?
    pause
endif
if $c != $f
    ?
    pause
endif