Mathematica, 89 bytes, cracked
Last@CellularAutomaton[(a=Mod)[#^2,256],{#~IntegerDigits~2,0},{#~a~99,128}]~FromDigits~2&
Not the shortest.
| 4 of 4 | replaced http://codegolf.stackexchange.com/ with https://codegolf.stackexchange.com/ | ||||
|
|
|||||
| 4 of 4 | replaced http://codegolf.stackexchange.com/ with https://codegolf.stackexchange.com/ | ||||
Mathematica, 89 bytes, crackedNot the shortest. |
|||||
