4 of 4 replaced http://codegolf.stackexchange.com/ with https://codegolf.stackexchange.com/

Mathematica, 89 bytes, cracked

Last@CellularAutomaton[(a=Mod)[#^2,256],{#~IntegerDigits~2,0},{#~a~99,128}]~FromDigits~2&

Not the shortest.