vim, 155 bytes

Result

WA

Code [DL]

:for i in range(1,50)
:let l=getline(i)
:call setline(i,!(float2nr(sqrt(1+8*(l[0]*128+l[1]*64+l[2]*32+l[3]*16+l[4]*8+l[5]*4+l[6]*2+l[7]))*99)%99))
:endfor

Disassembly

:for i in range(1,50)<NL>:let l=getline(i)<NL>:call setline(i,!(float2nr(sqrt(1+8*(l[0]*128+l[1]*64+l[2]*32+l[3]*16+l[4]*8+l[5]*4+l[6]*2+l[7]))*99)%99))<NL>:endfor<NL>

stdin

01101000
01111000
00000110
01101010
11011010
00100100
00001111
10010111
00000011
01001101
10001111
00000001
01001110
00011100
11011001
11010010
01100110
10000010
00110111
10001000
01101001
10101010
10111110
11101011
11110001
01011101
01000010
10011101
00001001
00001010
01011011
01011001
10101011
00011010
11111101
00110111
00110110
11010011
10111111
11111100
11100111
11000110
10001000
00101101
00010101
00111011
10011001
00000000
11110100
10101100

stdout

01101000
01111000
00000110
01101010
11011010
00100100
00001111
10010111
00000011
01001101
10001111
00000001
01001110
00011100
11011001
11010010
01100110
10000010
00110111
10001000
01101001
10101010
10111110
11101011
11110001
01011101
01000010
10011101
00001001
00001010
01011011
01011001
10101011
00011010
11111101
00110111
00110110
11010011
10111111
11111100
11100111
11000110
10001000
00101101
00010101
00111011
10011001
00000000
11110100
10101100

stderr

strace