ô > ZipToInf v1.12 GA$=¤OS_GetEnv:Þctrl%255,name%128,extra%128,zp%6:ços%=32:òWin_TextIO Lquit$=¤cl(" -qu",1):debug%=¤cl("-de",0):help%=¤cl("-?",0):î…ö:ñ:òexit(Ÿ) (Edest$=¤cl("-d",1):inf%=¤cl("-X",0):vb%=¬¤cl("-q",0):in$=¤cl("",0) 2Cçin$="-help":ñ"ZipToInf v1.12 (C)J.G.Harston 1999-2017":help%=¹ ÞA%-1:max%=“-A%-2000+4000*(“>&FFFF):Þmem% max%:wr%=2:rd%=4 dVçin$="":è"File to extract metadata from: "in$:çdest$="":è"Destination path: "dest$ nBin%=¤f_openin(in$):çin%=0:ñ"File '"in$"' not found":òexit(214) xVòf_gbpb(rd%,in%,zp%,4,0):ç!zp%<>&04034B50:ñ"Not a ZIP file":Ù#in%:in%=0:òexit(127) ‚çdest$<>"":dest$=dest$+d$ Œ7Ï#in%=0:õ:òf_gbpb(rd%,in%,zp%,4,0):id%=!zp%:done%=£ –$ç(id%€&FFFF)=&4B50„Å#in%:done%=¹ çid%=&04034B50:òfile ª3ç¬done%:Ï#in%=#in%-3:ñ"Damaged ZIP file?";½13; ´&ýid%=&02014B50„id%=&06054B50„Å#in% ¾Ù#in%:in%=0:òexit(0):à È Ýòfile Ò0òf_gbpb(rd%,in%,extra%,26,0):flags%=¤ex16(2) Ü5mtime%=¤fstime(¤ex16(6)):mdate%=¤fsdate(¤ex16(8)) æ7csize%=extra%!14:fsize%=extra%!18:nameln%=¤ex16(22) ð=extln%=¤ex16(24):çnameln%:òf_gbpb(rd%,in%,mem%,nameln%,0) ú9mem%?nameln%=13:name$=$mem%:ãx%=0¸127ˆ4:extra%!x%=0:í ,çextln%:òf_gbpb(rd%,in%,extra%,extln%,0) /hdrid%=¤ex16(0):dsz%=¤ex16(2):sig%=extra%!4 2load%=extra%!8:exec%=extra%!12:attr%=extra%!16 "7ctime%=¤fstime(¤ex16(24)):cdate%=¤fsdate(¤ex16(26)) ,Aacc%=¤ex16(28):aux%=¤ex16(30):çhdrid%<>&4341:dsz%=0:attr%=&33 6+name$=¤fn_unzip(name$):çvb%:ñname$;" "; @9òunzip:Ï#in%=#in%+csize%+(12€((flags%€8)<>0)):çvb%:ñ Já TÝ¤ex16(A%)=extra%!A%€&FFFF ^Ýòunzip h(çÂname$,1)=d$:name$=Àname$,©name$-1) r/leaf$=¤fn_leaf(name$):name$=¤fn_path(name$) |Ainf$=leaf$+s$+"inf":ç(os%€-24)=0:inf$=ÀÀleaf$,8)+s$+"inf",10) †inf$=dest$+name$+inf$ )ç(os%€-24)=0:ç—inf$=45:inf$="@."+inf$ šòensurepath(inf$) ¤ç¬inf%:çdsz%>12:dsz%=12 ®.A$=leaf$+" ":ç©A$<11:A$=A$+Ä10-©leaf$," ") ¸9A$=A$+¤h0(load%,8)+" "+¤h0(exec%,8)+" "+¤h0(fsize%,8) Â#çdsz%>12:A$=A$+" "+¤h0(attr%,2) ÌHçdsz%>21:A$=A$+" "+¤h0(mdate%,4)+" "+¤h0(mtime%,6)+" "+¤h0(cdate%,4) Ö$çdsz%>23:A$=A$+" "+¤h0(cdate%,6) à"çdsz%>25:A$=A$+" "+¤h0(acc%,4) ê"çdsz%>27:A$=A$+" "+¤h0(aux%,4) ôPA$=A$+eol$:out%=¤f_openout(inf$):ãA%=1¸©A$:Õ#out%,—ÁA$,A%,1):í:Ù#out%:out%=0 þ7A%=¤file(inf$,5):X%!3=X%!3„&FFFFFF:A%=¤file(inf$,2) á BÝ¤fstime(A%):=((A%€&F800)2048)+((A%€&7E0)*8)+((A%€31)*131072) RÝ¤fsdate(A%):A%=A%-&200:=(A%€31)+((A%€&1E0)*8)+((A%€&1E00)*8)+((A%€&E000)256) &#Ý¤fn_unzip(A$):ç(os%€-24)=8:=A$ 0 ãA%=1¸©A$ :Xços%<32:B%=§"./#?$<^>@= ",ÁA$,A%,1)):çB%:A$=ÀA$,A%-1)+Á"/.?#<$>^=@_",B%,1)+ÁA$,A%+1) D5ços%>31:çÁA$,A%,1)="/":A$=ÀA$,A%-1)+"\"+ÁA$,A%+1) NQí:A%=0:õB%=§A$+".",".",A%+1):çB%-A%>fln%-1:A$=ÀA$,A%+fln%)+ÁA$,B%):B%=A%+fln% XA%=B%:ýB%>=©A$:=A$ b!Ýòensurepath(A$):ç§A$,d$)=0:á l4A$=A$+d$:õA$=ÀA$,©A$-1):ýÂA$,1)=d$:A$=ÀA$,©A$-1) vç¤f_info(A$,5)=2:á €B$=A$:A$="":õ ŠBçB$<>"":A%=§B$+d$,d$):A$=A$+Àd$,A$<>"")+ÀB$,A%-1):B$=ÁB$,A%+1) ”!ç¤f_info(A$,5)<>2:òf_cdir(A$) žýB$="":á ¨Ýòf_init ²31:ç>&FFFFF:ÞX%ê256:È™"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ 4\A%=(“>&FFFF)€&900:ç?(¸P-3):A%=((>&9FFF)€A%)„((&1400-)€(A%=0))‹A%=((A%-&500)„&200)€&FFF >iA$=$(-&E00+A%):çA%=0:run$=A$:È™16¸A$,,A%:È™72,"",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ H*ãY%=-1¸0:A$=" "+A$:õA$=ÁA$,2):ý—A$<>32 R4çY%:ç—A$=34:A%=§A$,"""",2)+1‹çY%:A%=§A$+" "," ") \CçY%:run$=ÁA$,1-(—A$=34),A%-1+2*(—A$=34)):çrun$<>"":A$=ÁA$,A%+1) f í:=A$ p$Ýòos(A$):ç—A$=42:ÿA$‹çA$<>"":×A$ zá „FÝòexit(A%):ÿ"FX1,"+Ã(A%€255):quit$=quit$:A$=quit$:quit$="":òos(A$) Žç>&FFFFF:È˜A% ˜ços%<6:à‹*Quit ¢á ¬cÝ¤cl(l$,n%):çl$="":A$=¤s(A$):ç—A$=34:A%=§A$+" "" ",""" ",2):l$=ÁA$,2,A%-2):A$=¤s(ÁA$,A%+1)):=l$ ¶<çl$="":A%=§A$+" "," "):l$=ÀA$,A%-1):A$=¤s(ÁA$,A%+1)):=l$ ÀKçn%=0:çl$<>"":A%=§A$,l$):çA%:A$=¤s(ÀA$,A%-1)+ÁA$,§A$," ",A%)+1))+" ":=¹ Êçn%=0:çl$<>"":=£ Ô%A%=§À" ",—l$=32)+A$,l$):çA%=0:="" Þ'A$=ÀA$,A%-1)+¤s(ÁA$,§A$," ",A%)+1)) èCç—l$=32:l$=ÁA$,A%):A$=ÀA$,A%-1):=Ál$,1-(—l$=34),©l$+2*(—l$=34)) òPç—ÁA$,A%,1)<>34:l$=ÁA$,A%,§A$+" "," ",A%)-A%):A$=ÀA$,A%-1)+ÁA$,A%+©l$+1):=l$ üJl$=ÁA$,A%+1,§A$+""" ",""" ",A%+1)-A%-1):A$=ÀA$,A%-1)+ÁA$,A%+©l$+3):=l$ /Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " +çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " =A$ $$Ý¤h0(A%,N%):=Â"0000000"+Ã~A%,N%) .LÝ¤file(A$,A%):ç<&FFFFF:$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF 8RA$=¤f_name(A$):çA%=255„A%=5:X%!14=Ž(A$):çX%!14:X%!10=¢#X%!14:Ù#X%!14:X%!14=&33 B1çA%=255:çX%?6=0:ÿ"LOAD """+A$+""" "+Ã~X%!2:=1 LçA%=5:çX%!14:=1‹çA%=5:=0 VFçA%=0:ÿ"SAVE """+A$+""" "+Ã~X%!10+" "+Ã~X%!14:X%!10=X%!14-X%!10:=1 `BçA%=7:ÿ"SAVE """+A$+""" "+Ã~+"+"+Ã~X%!10:X%!10=X%!14-X%!10:=1 j çA%=8Œ t ê…:î…ê:=2 ~ÿ"mkdir "+A$:=2 ˆÍ ’=0 œ%Ýòf_gbpb(A%,chn%,addr%,num%,ptr%) ¦>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ç<&FFFFF:Ö&FFD1:á °çA%=1„A%=3:Ï#?X%=X%!9 º3õ:çA%=1„A%=2:Õ#?X%,?X%!1‹çA%=3„A%=4:?X%!1=š#?X% Ä2X%!1=X%!1+1:X%!5=X%!5-1:ý(Å#?X%€A%>2)„X%!5<1:á Î8Ýòf_cdir(A$):ç(os%€-24):A$="mkdir "+A$‹A$="cdir "+A$ Øç£Œ â ÿA$:á ìÍ öê…:î…ê:á ÿA$ á !Ý¤f_openin(A$)=Ž(¤f_name(A$)) "Ý¤f_openout(A$)=®(¤f_name(A$)) (WÝ¤f_name(A$):ços%€-32:êA%,B%:õB%=A%:A%=§A$,"\",A%+1):ýA%=0:ç§A$,".",B%)=0:A$=A$+"." 2=A$ <ÝòWin_TextIO F-È™"GetStdHandle",-10¸@hfile%(1):*INPUT 13 P.È™"GetStdHandle",-11¸@hfile%(2):*OUTPUT 14 Z%È™"SetConsoleMode",@hfile%(1),0:á dVÝ¤NetFS_Op(A%,A$):!X%=0:X%?1=8+©A$:ç“<&FFFF:X%!3=A%:$(X%+7)=A$:A%=&14:Ö&FFF1:=X%?3 nN$(X%+4)=A$:È™&60048,A%,X%+4,X%?1,124¸A%:çA%:X%?3=?A%:È™&2002B,A%+4¸$(X%+4) x =X%?3 ‚iÝ¤NetFS_OpN(A%,T%,O%,A$):!X%=0:X%?1=O%+1+©A$:X%!3=A%:X%?7=T%:$(X%+O%)=A$:ç“<&FFFF:A%=&14:Ö&FFF1:=X%?3 ŒCÈ™&60048,A%,X%+7,X%?1,120¸A%:çA%:X%?3=?A%:È™&2002B,A%+4¸$(X%+4) – =X%?3 ÿ