Paste: cryptoreto
| Author: | abeaumont |
|---|
| Mode: | factor |
|---|
| Date: | Tue, 2 Jul 2013 13:33:37 |
|---|
Plain Text |
USING: kernel sequences sequences.extras math math.functions strings io ;
0xC033F149B9D4455597F3502AA9015819C05EA31D3084E216801F44C7CA52E2DBE63226C04D5 65537 { 39190636737150939411204087073921663586710519 41740216257595498333580872443988938561454154959 } [ 1 - ] map-product mod-inv 0xCD942ACE3C9390EC39AA4433E505B47E59DB5D2ADB5ABEE1F5E8A1FE7372D00B2A1A91D40B9 ^mod [ dup 256 > ] [ [ 256 /i ] [ 256 mod ] bi ] produce swap suffix reverse >string print
New Annotation