Wolfram Cloud Document

In[]:=

Encoded=Import["/home/max/Competitions/lit-2023/polypoint/encoded.csv"];X=Encoded[[All,1]];Y=Encoded[[All,2]];

In[]:=

V=Function[x,Power[x,Range[0,10]]]

Out[]=

Functionx,

Range[0,10]

x



In[]:=

M=V/@X;p={p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11};SolutionBounds=Cuboid[Join[{0},Table[10^11,10]],Join[{2^(78*8)},Table[10^12,10]]];Solution=Solve[M.p==Y&&p∈SolutionBounds,p,Integers]

Out[]=

{{p1316551778779405646458024537762733801628425406461784850075314624284410512205504185854127162483240834258174499942538442249509701418557132428064898960083863248218687532418743039826290301,p2313279007477,p3757866189843,p4271655499806,p5935980668626,p6459744599602,p7452005879133,p8454440673026,p9955890462020,p10732320833166,p11946184833449}}

In[]:=

Flag=First[p1/.Solution]

Out[]=

316551778779405646458024537762733801628425406461784850075314624284410512205504185854127162483240834258174499942538442249509701418557132428064898960083863248218687532418743039826290301

In[]:=

Print[ByteArrayToString[ByteArray[IntegerDigits[Flag,2^8]]]]

LITCTF{h4h4_1ts_n0t_th4t_345y__almOst_ThEre_hAVe_somE_gibbeRish__d6570c3b3f}