x=130095999494467643631574289251374479743427759332282644620931023932\​9817306120648292623328402539692613638819107012767694557281304214598786\​5866062733036268885675125252451934143531796827227531059863999103351276\​3704530123231772642623291899534454658707761230166809620539187116816778\​418242273580873637781313957589597;​​y=116513882455567447431772208851676203256471727099349255694179213039\​2399898336467268050401676429525898998092737167646737374237928121077373\​0495667971708239115150547636076284777360832705592683239494829305263386\​9637754201186227370594688119795413400655007893009882742908697688490841\​023621108562593724732469462968731;​​z=886886150464389576571485897945744701397779196863835143272965654332\​4730079280391348997767129385483045938580713330299557577465860547249190\​4258624914486448276269854207404533062581134557448023142028865220726281\​7910258335703371402635119604072068188584393531343275925039451313711902\​8541623013113600757835579951798630620803949033915950100966878583920146\​5041101739825050371023956782364610889969860432267781626941824596468923\​3541579817717735892364628135636475776511170206942512831031758747839650\​0446713651509608144201896597487066503888084082370837734010151097811275\​5669470752689525778937276250835072011344062132449232775717960070624563\​8504879193811382286362786477761844902402641107486484861211393285694239\​6964205947402752773752189154256735163054557048890136857073452095499658\​5774666946913854038917494322793749823245652065062604226133920469926888\​3097424660300870452513858657071513078506621275914191716197212008584962\​9912708842933383138328741736102142082439850142387564819937362357261415\​1830871182111045650469239575676312393555191890749537174702485617397506\​1916589387989374627081982407144914545078741414329826118578381734696121\​4709246035977592444797652150987476559872665596436973575937579387198515\​6532139719500175158914354647101621378769238233;​​Select[Flatten[Table[ByteArrayToString[ByteArray[IntegerDigits[​​ ChineseRemainder[{i,j},{x,y^3}],256​​ ]],"ISO8859-1"],​​ {i,m/.Solve[m^10==z,m,Modulusx]},​​ {j,m/.Solve[m^10==z,m,Modulusy^3]}​​ ]],StringContainsQ[#,"flag"]&]
Out[]=
{flag{0h!!Y0U_Are_g00d_at_math!!}FNvRlA8sZuZs5VHALHOzcTgDflFPhbhclYqB5AQKiKDfd8eJRhxCXmD8PTOMZ6xuV1Dgfni3muqWp7M1YurZry7kLMdoZFoQvjaiCD8hWmUSqnWMQdjZiMMhc2dV770r8Xgft1HmgRkmcAgrN6UkccQsY2byVUoplHl2bCYb48musV4TGrD2pbbTXpm62M4eSarvIoroETjxXZ5iPlKXVRsemYYyuzAnOucy0cghU7oa78U2vgApXw6tjSpNebB7R7Hdq1MiPsMk3bmy5EWMc2C5b9n5WvHbdJOyBbTBVldOfibPZAI8UhmDNCsT7llXSNBazmXNGk8ZEgQywecDlOJDzcQoJjDLb08MaFC85ss0LLMzyUaEMK4247bjxWR4Y8p5fHnLN0tQhJW8mloXkplsJlexyqIvd6Tu1XkEIhLTLPhWozuCHt2jPDJJQdN3kDD7JFC2sXJAiWE42Ltkf96OCjdBU3v}