'Launch SHTTPD (Simple HTTP Daemon). Drop a folder
'on this script. SHTTPD will be started. Existing
'instances will be killed. Get SHTTPD from:
'http://sourceforge.net/projects/shttpd
Option Explicit
Main
Sub Main
Const TemporaryFolder = 2
Dim strExePath, strWebFolder
Dim objWMIService, colItems, objItem
Dim fs, wsh, strPort
'Create objects
Set wsh = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
'KILL existing instances of shttpd
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select Name from Win32_Process where Name='shttpd.exe'",,48)
For Each objItem in colItems
objItem.Terminate
Next
'Toggle right-click if no arguments
If Wscript.Arguments.Count = 0 Then
ToggleRightClick
Exit Sub
End If
'Find WEB ROOT
If WScript.Arguments.Count = 1 Then
'The argument should be a folder
strWebFolder = WScript.Arguments(0)
strWebFolder = Trim(strWebFolder)
'Be sure the folder exists
If Not fs.FolderExists(strWebFolder) Then
MsgBox "Folder " & strWebFolder & " does not exist."
Exit Sub
End If
Else
MsgBox "Too many arguments. Only pass a single folder name."
Exit Sub
End If
'Find SHTTPD
If fs.FileExists(FileNameInThisDir("shttpd.exe")) Then
strExePath = FileNameInThisDir("shttpd.exe")
Else
strExePath = FileNameInTempDir("shttpd.exe")
If Not fs.FileExists(strExePath) Then
CreateShttpd(strExePath)
End If
End If
If Not fs.FileExists(strExePath) Then
MsgBox "shttpd.exe not located and could not be created."
Exit Sub
End If
'Get port
strPort = InputBox("Serve on what port", "Ports", "80")
If strPort <> "" Then
If IsNumeric(strPort) Then
On Error Resume Next
strPort = Clng(strPort)
If Err.Number = 0 Then
If ((strPort < 65535) And (strPort > 1)) Then
strPort = " -ports " & Cstr(strPort)
Else
MsgBox "Incorrect port number"
Exit Sub
End If
Else
MsgBox "Incorrect port number"
Exit Sub
End If
Else
MsgBox "Incorrect port number"
Exit Sub
End If
End If
'LAUNCH
wsh.CurrentDirectory = strWebFolder
wsh.Run """" & strExePath & """" & strPort, 1, 0
End Sub
Function FileNameInThisDir(strFileName) 'As String
'Returns the complete path and file name to a file in
'the script directory. For example, "trans.log" might
'return "C:\Program Files\Scripts\Database\trans.log"
'if the script was in the "C:\Program Files\Scripts\Database"
'directory.
Dim fs 'As Object
Set fs = CreateObject("Scripting.FileSystemObject")
FileNameInThisDir = fs.GetAbsolutePathName(fs.BuildPath(Wscript.ScriptFullName, "..\" & strFileName))
''''''''''Clean up
Set fs = Nothing
End Function
Function BrowseForFolder(strPrompt)
'Uses the "Shell.Application" (only present in Win98 and newer)
'to bring up a file/folder selection window. Falls back to an
'ugly input box under Win95.
'Shell32.ShellSpecialFolderConstants
Const ssfPERSONAL = 5 'My Documents
Const ssfDRIVES = 17 'My Computer
Const SFVVO_SHOWALLOBJECTS = 1
Const SFVVO_SHOWEXTENSIONS = 2
Dim sh, fol, fs, lngView, strPath
Set sh = CreateObject("Shell.Application")
If Instr(TypeName(sh), "Shell") = 0 Then
BrowseForFolder = InputBox(strPrompt, "Select Folder", CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName))
Exit Function
End If
Set fs = CreateObject("Scripting.FileSystemObject")
lngView = SFVVO_SHOWALLOBJECTS Or SFVVO_SHOWEXTENSIONS
strPath = ""
Set fol = sh.BrowseForFolder(&0, strPrompt, lngView, ssfDRIVES)
Err.Clear
On Error Resume Next
strPath = fol.ParentFolder.ParseName(fol.Title).Path
'An error occurs if the user selects a drive instead of a folder
If Err.Number <> 0 Then
BrowseForFolder = Left(Right(fol.Title, 3), 2) & "\"
Else
BrowseForFolder = strPath
End If
End Function
Sub ToggleRightClick()
' Adds or deletes this script as a right-click option for "Directory"
Dim ws, fs, strKey
Set ws = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
strKey = "HKEY_CLASSES_ROOT\Directory\shell\" & fs.GetBaseName(WScript.ScriptName) & "\"
If RightClickEnabled(strKey) Then
ws.RegDelete strKey & "command\"
ws.RegDelete strKey
MsgBox "Right-Click option for this script has been REMOVED",,fs.GetBaseName(WScript.ScriptName)
Else
ws.RegWrite strKey & "command\", "cscript.exe """ & WScript.ScriptFullName & """ ""%1""", "REG_EXPAND_SZ"
MsgBox "Right-Click option for this script has been ADDED",,fs.GetBaseName(WScript.ScriptName)
End If
End Sub
Function RightClickEnabled(strKey)
Dim ws, fs
Set ws = CreateObject("Wscript.Shell")
On Error Resume Next
RightClickEnabled = Eval("" <> ws.RegRead(strKey & "command\"))
End Function
Function FileNameInTempDir(strFileName)
'Returns the full path and file name to a file in the user's temporary directory
Dim fs 'As Scripting.FileSystemObject
Const TemporaryFolder = 2
Set fs = CreateObject("Scripting.FileSystemObject")
FileNameInTempDir = fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(TemporaryFolder), strFileName))
End Function
Sub MakeIndex(strFolder)
Const ForWriting = 2
Dim fs, fil, fils, fol, fols, ts
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(fs.BuildPath(strFolder, "index.html")) Then
Exit Sub
End If
'Write the index.html file
Set ts = fs.OpenTextFile(fs.BuildPath(strFolder, "index.html"), ForWriting, True)
ts.WriteLine ""
'Write the folder links first
Set fols = fs.GetFolder(Wscript.Arguments(0)).SubFolders
For each fol in fols
ts.WriteLine "
" & fol.Name & ""
Next
'Write the file links
Set fils = fs.GetFolder(Wscript.Arguments(0)).Files
For each fil in fils
ts.WriteLine "
" & fil.Name & ""
Next
ts.Write ""
ts.Close
End Sub
Sub CreateShttpd(strOutFile)
Dim ts, x
If Instr(strOutFile, "\") = 0 Then strOutFile = Left(Wscript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & strOutFile
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(strOutFile, 2, True)
On Error Resume Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D80000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000002EA172126AC01C416AC01C416AC01C4111DC10416CC01C41E9DC124168C01C4105DF164161C01C4105DF184169C01C416AC01D41E1C01C4108DF0F4160C01C4182DF164165C01C41526963686AC01C410000000000000000504500004C0103007F9641480000000000000000E0000F010B010600006000000010000000A00000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8002010000B000000010010000004000001000000002000004000000000000000400000000000000002001000010000000000000030000000000100000100000000010000010000000000000100000000000000000000000001001008001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000555058300000000000A00000001000000000000000040000000000000000000000000000800000E05550583100000000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0060000000B000000056000000040000000000000000000000000000400000E05550583200000000001000000010010000020000005A0000000000000000000000000000400000C000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000322E303300555058210D090209307B07C0109CAAFC48E700007E52000000F000002602001F",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ECFFB7FF558BEC51837D08017E08450C8B40040FBE0083F82D75470DDFDCBD3D40010E4175382206740BFF30E80200C8C8D8EF3661590A701405100CFDEEFFDD081D5B4683C41050FF158CB14000370275376810D0D9FF66AC0A1F049AF4595985C07416681415EDBB815D75630550E7682F1125C85933DB6A0F4E14220E02DBDB677BFF757475371D0C8945FC4EFCEB768F2D3C0544681C5F6824046A31EDED979D983BE418833DF8ED1100751194F765B3B527063CFC0D43EBE6FF3519FFEC4236305010222A995933C0C9F68E6D87C32E5D086908A32F13CF6EFE76C77A8CD74000EB0983C004898338EC7D9BE10074200105189130A9E8F20FF69F056A01",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("58EB04EBCF5583EC2C8365F000CEB9DBDBF03BF4EB0E07F440080E06DEDA17BAF00D3B160F8DBA01B112144839FFEDC8560CAD08031B8A008845EC807DEC5F78F8F6257405E95F0352A17C7938D31D6880004C43E161240FB6CA9480BFFBB21F29E8EB1E178B0D84168B090FB7044198FBCDBD25321FB7E8000F8428644E0332204702E40259B30C20E4E4D98E6CD9E11C882D54146586279BF878126A04856DF7EE16FBE0EB14A162014DFC654883E004156C1F96056AE00B78E8300EDC7261A63B8C0A5749F832C9805CD8F8D823CFC8C8D8F8D4F8D438FCCD6F08DCC1E0040B4D10034DF08801A9D92FB477AA231198C60025EB100A36BC2CB4229D4D0988",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0896019377110ECF148020E4F3F4837828966DC96D6819086C280B0C0D56BE9F39240EFF500C592160104E9EDD3D340C10508941340D24B35D701897333D10F400990CD09917DE168D4401FF04F8EB079FFCB7C6C9B280F485FC4DEC83CD85D8078400DB196857011A8308B3078400D7F0EB1A13D3EF46794E5701F0B075291F9C7DD85F340D741E0A0A7413353D39D90B3FFD7D068305FFEB5C1D7519426BBAD75A0B0D2BB743D9EE5D7638232DB7A773242C69F29C3D0D751838020C6D930C1F6E0339F7DE8A8D874357845122C01001BCB9FCCC6C0A041683C00C397472C3A66D92A713085E755C6DE17D0BEEB8ECB186252A800B952159B71B160E05C40D",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("50179E341B38DF15D81305D0FC3A58CD8CFC029867255821DBED43EB6AA004E02FBC0E77AEDD100568B83B1CFFB0DC9F1FCCAEF70826B25FA3E881E0DF66CD6719C780F40A0C180C8948309A8CBB649B2F0375595A60C37832D678060C10002A1A63C2486C0C0F090E121E26CC4A0D7314C9C95B07E3093FEBE4E3F070B2C3D758CBF01097F0E32B496BB98D5F2B8DF03B481C14EA04ED5A1EC2015EC00CF102EB49676BB601C432098F22724DAFB577040A50480BEB68B0F0F47404360CF4FAC6B231E108E8EEF4040C70EEDC73FF161F28007E0D813F7BB6E04821EB37400175176A0AC89F2B375C83CE78B1842001ECB38DD9EB171FBA0E9F0715591883C0",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A759E8AB05F993604BEEC3DB6A24418D45B05A9C0A4165AC6CC33834AC3B3D05A4BB2DCBB2A4A0A0A82DA85003BF699A66A0A4ACD8FC506808D8402C6C23678C5820C206068ABD9229CC311C745CC80032852D302E576225534CA71D02A503BBE9088A7DDD27C646B6D3747CECBCC0F8C47FD946C6ECB8B405A8B0817DC46C0735BA77840087C42D0925EB55ED6EE9B815467D2BC4641068B0EE68DB1D385B585C47024020084C3ADB61D05D1674BC4F1FB02E62FC00B5FC0C731F5234DF2524DE8560B24217EB05EBD4831F230DC2C8FFAF14E170AE2183B7DB701CE5EC0A68C0383FD7D80CE744EC18C8675BD6619B8E88B268C42148F7F24DB30DEC1CEC95",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("FF75EC6A3D751698314C454CF43112B7EFE361390E7308A1FCD2C043D7E289092B33F0EE3B038D8FEE7E50072BDD0CB792B664DD05672E754DF0158A51E3C180E45C261F51908DB77B67145F0A2B010FDA230BBB1D9A0A630408D624F8F8F356EB8C408A6BD3BA40B340E432F3597A0E8B8044875EE75948AE4B47FFB06C6E3660902417825348CF1EA1EE9814A39C105998EB1F9419EE769509B917C700C84B2034F03E849F68351C1DB524B23C147E690BC46CA90CFCF25C32F20C68D40C0C0C963C9BCD0C1701D8D80CB3DE6B10C6FA4F471E33C60EFDE873F7D81BC03B2C3C75B620ECB6F40CF4750C53E10E19376484EE1168DCD8F101CBA7205B7B0BBD",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6A141065400D1BD81C5B301C0B13300468F09D4E7C61330CEB770D2F189213B6DB38290CD94D656C5916B9F8F01008ECDB4994910C08FA2414F887039F2C048B492401318DC61E781601081F243906061F0D9CCE1380F6E9E9C10CE8F1060FC0D9AD5B1610083B25743B1011FA4AB848D25EF800F966876D6B0477F8156804A4163E3437550CAEAE054E7A072EFCE7E9403835657892C881ECACB018016CDBD67FE38554FEFFFF7602AD002D0C59CB0FCD18898C66C7028963EC6EDD10156653EE6A2114B2BB6AA3D853850637EC200E4457BBADE9FF635A04E43C461D46DB5E85B60E4BD3D20568611B33DB53AEE42F241B2F0ECBC8D86DE81CEC5015287D19",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D790B347C8292C4CB1066F23C43661F21977B6A67BD205B130D73446CD9AB07A086844D91F147DBE6F7BF7EF2CDC838DDCFD86FFC32C32A390D9B9BFF683A5FCFD06E0FD2D66709FDE8985E4139F0710E4D8099304E9391C742DC25770DB19D83742595049761862CFFC8B137B560F1606A59F7BB69C0C8859DBFBB08075DB2BF50C2BE0324032BB3658260BCDC11434369D17662229FFB50E13DE81FDCA6032570F09B84BD8594A8E8CBCB5BA8FC5299C8C13B8C785E81A1090B0B33124E8A7EC2BE16D36B38A0847D483BD0519F65E3B6C211D10AB113ADBD81DCC5DBAB52975A0BA0E361F096F421B188D0916095995C1B119B7E5305D8B5D073EA9573B08",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("73F89A8B878D85E94481044BD7DC1C75D2606FB9200901407318245526541AF8DA54271E00D50CB3CBB28D4DA62F10087E0809D351924A6EC36098926C1D2CDA740FC1FC663A4BA6CF51F89D31468EC42BDF14136A29974CD309514E007060D978C69001CD10DAEB39C7DEF640137E130D141B1312F79D84651F5018122510321AE1C1C819472456572B18C0271BCD07B380013F59685A68887C33DC40E0E9E4B3C52477DDA8B483E4A4914B6EE850107FF8B1276904BAB385B88034DC95EE2D0B0712F31110446D29D73D01CC68E5F7752F0FB0F18B8D643240906FFAB38D70D9494B3DE04A5C0A39B2873E3946A8B4C7CE58381450683881E4D9075C19333F",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("950A2C6043B66C3F69C4F1766A10488588E10B1206871CFCFC3BBE5B85DF6E83C7106A0560BEF3A5160D707F1DBC7C29A10705100E35BD99103E422881FC0FB745EA3AE0208C1A2CA53C59F1A03BB67AAFE86975247350B7BD2397B340820C0001053807D6F806D99381D8800805EB167B8FEF0D101F4014B4150C261B61F2DC0084346040822CDB4A6CE004C848FCF1F785682A59281C7221835C1C1C1CC54F706C31084035085F5E772819839118DE2A22DCAB5982F0ECECDA052884B9FD512C3913741C18DD1C6096BDE833467D06C0099AC00D25D07E179A4C27541010730C62F45030B3F000081465F4726092696210132B3C74C03632A16D149E3DDEED",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("75A2013A1208504C3A5C9C06EB9CB435B2735B77578823410C05398B7545961177B59F7CEBAFF23B2B0F94DEED3B825C251499B9E80375F7F9668FDBDFCB0D69D2078955FC60F8507E23B3ED1EE0864050621CED6CB84A05C90DB16C624092C066C0C6866CE02C8710D520B08119401C1875F168CC9ACA329255700D7B36CA15E7174F4B07725B76FE5229D800362B84D9701269F8AF0FEB7882A62681BA60427548265BC803C80072F89023E4C848081448722027D80029952D6B8FF1113BCD3360433226160F4081ADEC4B0618832000BD3806BB56C808471458DB601B1F4D4D232B2F5D102324817208D6C1104E2461523ADBADEAD5E116BD9B5AD904407C",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("03B3E13C21183E040F858175831463D0E485080501C192A5BB9FEB4E2D08E8B3E7C9B267ECE810324451BE16C292FC4BE6812C35B2FD0DEB1A91E418B3D93A8CCD8414162E7BF42C7B4636FFF4F8F810080FF7658AF4746C13863270B8304E752A00150356E92C96FDB406ECC03003E78988DCB02439020CF2000150D217656CC4495F99DD867D4A22647521A3F7A308DBA1796EE7269692300101092C2507D93E18AC594010D800BD301232C4297644CB88CB88532934EB926DD09228AB194C0D8CF8C09627C259EE831D889D562546BA37FC3358C821C48AC09A01FB3B48287F33DD1023998790B266101C650028E2810DC66359A220E01C46EC1A42766BF2",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("80F87D03BF310799C23DC76894F0247808DE75378A8E4FB1EC752412A268F067199EB9164A108304CDD1EC779F8A3C121C440A107D176804DA256C8767AFEB550C2634A22310BF4843F2F5310EAA5F59EDF8A027414416447B6828161216F232F42E86324E086E451256594475C18BF00C01010ACA0AC68605234044CD7348B8C3F6B007483B7F76C90AAC9E0D52670A0E8060BA7AD960DD092008403C404496D4434C4B72F4332E553E2B4720740A2DF4737292AF58E464F4207568B00F48AEE821476450EB309E16459B588E947CE0EB18DE8313AFB82C54B140A7C67A0DB279D31D4034C585CE063C9140DA24FCB6076D83143002AFE4E40820DCE03E7D1A",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6850F972B09F7092C53C01771208752302C8B33D4001763464F9AF90AD0B437F5480F04046CE300D01242C3838981D405E176888EB6831D010231470F538D5828361C2EFF4E05C50B8B2C7901D634B2B5024486905EA8234BDEE20502B2044209C6CA1876B5C952C6B1C8603034D023A00D24C39A38C055F0C640C60D0860E0C39750E9B3181363208B88C40CECE36BBC06A3FB1EC1CED4C48C789464C8F884C3CE2257B4C401EE477051BD83BC50D1312D193994D5F01810D241859B207FC60313C8985E8BBCD35FAD9DB608B95B5130D03F081FEBD40163EBA72A69C233401EE3D9B3D3568AC25316C2751B9DEF4BBD5140EEC0493CDE824A90C193AF6B975",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2337742F9438039805F26CAF4B2C51F0B406F82CD8180E8D523D59D8D9B2CFA074E45AFC599A6A33C1667A665D496ABB5905731473D1F90EB4081D1B5934CB4668BC29B210CC836FA2200FC2027918C81393BA42FDB9E834024F080375278D035F8C7A7864F5A4B583778BB7B2B138622A01F13DE0CBCEC4F840C8596D0CC638B10305A20730DC2979B667B07E91D4F51BAC78D91FD04484ED48752FA65BC967F0C8001FFF291640BEF44FF475141E92E6D38D08DB9B6668A4C003B9D011BA01833F4869F662838581C0447DD27CD4007218DB2105ECC00C0EB0702E0E61092FB2E6480A3666763BBCAC426941755E5624DBE105300757EB6D6DE6D942884A74",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1D258F0820DF08F1383694AC7B74178E85CA3025A92955883F5EC0B4463F8405F376F82FF9F8C3158C946844DBD704D9C12E19FB100E682D642CF6605750AB68FF3F46B0666CCDBD2490496D0C2D7759B617BCE8ABC475689DB2ABE4935A3C744743463820858A59C8CC1A3ED97808DD0B883959658413D82AF969F4A698C00E1B212C4C8C6DCD1869F7926408082006905D9C08008AB4DB36E4E39CB03E7C9084C0610F4203928472597EE41953325853F20080D6816C08D06D7B8511B927000374A48DE0542179B61B58747F3BE030C9C283B05680741304C420803C7C6C3E59B2F0576340B03FEF786A36D702CC21C40A6DDC8499A48BC7F8F8C39A8D7210",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("71A104218D8A0491486571562C699E84F4F80AE0A876361361390E717DF12803A971DDF88A6C961EF19A0C9C4C8037893EDE10C82006A143145F14971467D9DED91AFC501DFC148CE0C115606348EC9880598CF0C430990B3037D349086CA43103352140CE0C0B797B06985C4E390A2E7416837D930F2F740B20093FEB4E2213EED6EB9A51D14C0CD07248186F9440F82B8CB572733B0703C705DE438199136848B50AF00C6F126D8D0D7007654FC373D70576A00C2D7DBA3784794C25F4747E6C027E831CB50E6A5C9B10DC643DC834FD0435951E2C5BA8E1141186C805D91A723A14103AC46C76426D54505460000BAE938008C5966CEB0E318B767624AA4B",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5ABB7699218759072321263234483508E2101BFC168264877A3C16F902F290804148D3764838B2090F2F753B69631E43C1BAE53085400682A2A6C09DD0FC5950A158B91524FBC6002FEBA9A4F440B2FAA8490E08351604BC7A0107A6CD98F89A286099402D3AC1B33146D07DC5EBC7BA82F02E6033C91C94C18BC106BD0910290F9F605245AA3FFA3000762028EE87D1A589F13B760F5C3065A6DC46C82428B63B5D5250E8278FFA5704D6419122528DF7F82868734D039FF03C181520980B171C9EDC9D0AE87032F13D3327DA325DC980ADCE82346F20A1A40E2B047DA0260BD8163D41063923179E0914307724AC2E992455A06E1D099B48CE865C320808C8",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("108453C2C30E105D2BF8590232B23C8F1C460C0C0820440E6C7E0C14400E420E1C560C3096C0E40C2B24C123B3F17844251F006DC678EE937117C9343DA56B593433C70F568082579AAA08598C4541266492ACFCFCDFB6DF92FC4E703B19B63C7C1EFF3501DCC67807A76C0BC0B6015CC080F1743BB3B48C1CB672180809400640A4A10CE884F4108B38ECEED00D7739646C0204153838ECD1180402859BC044416E66F40F86A00699E49B7009F8F4C79C1DEC09CE0E1660500638859F9C9C444C58006A68288A19C148965CBB8B1656F078AD209546560C5A4FB19711AD3E01C5EB71AF2739E110EA61FC2401463A802553FCFC170C0669FCFC6F078FD83080",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("5331DAC2001EB14829DB45390B58E251BE3B312C32C96107686B12048EC802921C146A306490DB12247F1C9FC143466D187320E2837C81072BCFB63CE9110CFF7495EBD36569184247EE083466E7909310080815250109D9CD0835D8CADEB018F02215B225DF17686738C0FC3E3E01BF34651C834DECFF5D2BEA6E07A0F0946B9B6E6A10040CE90ACBF00E1270B87AF002E579F268E441021AC87F7CF46A0004944B8C458D008CB503F253F075792A0E2C7232039D6AF223FCB1BE02123055CDB90108B670082C5B3C5026EC647B39302EF026430879E950C133D68904FF74D56CB0A5EC28430B3C36060D3B5821BD04142A362460D3288AC366B1891F0BECC4",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("106A9288D49C60CD076D90E44AF0F010626D106AABE4685C9B3382331EDACFDC24DC0BD95C21C628DCC02168B6DC1CDCA93B16880FA2471FD8BFECB30F6759F4F81B682C3B8DE02510C30574D05A8947F20C683CDC2EC7FB3340CECEDE212B7422082D2A64B6079E34F72F4370270CF8964996491AF40DEC3E24DF4375164C80EB6C6A1417CA3623ADD8D45675187664CD56C3DCB02942D1307730CBE0B43DF1D536C558C43923D17C06853D42ED05207E58D868B843FB8E6E8AD4C1E018F1C1E1100BC107A2239665F4080BBCD476C1FF4734E06A20592B4DE083CAFFD3E23323C2238C1DC6190C100910F5144D9EAE7A0B55D414523036E3167E1F147EEDB2",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("451E2D50A2081281053382A646474609F97848B8D7EB04629B0468D42A0CA97EB61560B05B3CD0423EB462140CDD6A4826D95F10E50C308E4935BF0564B0FCD9F585AC11734C1C7A4C6673260A5F374D0580188033117206A50B2CAC7113332FF0543837564FD20C86A42A12971DD921E6505A292A982024CF241460102CE0049308BA68347A8D59349228FD01F7DEB0EBE31AE3464645E83430BFCD59E720FDEB416870DD34D0B04B9692826D2424B285E4C05EC874145D7D38A10218245BB693E26DDDF8081B44770C82378BCA652D90EB0C604212A3F04A8A419E66F0F0F0F062E9629254E30F0189C392DDF8BB7D2F7E7837355D36B0AFF477F410464AC9",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("C8126391EC77ECECF7DC21CFECECEC0B150742872D897737C760B7F56C8CA49CD33247C0369297EC0FE27E3028FC7E281830FCB8E1223FA6DA424574B0F0A4C322E8C8CA036A24F8A458420152116890C69841C85BC1B61C9028DB2C11AD1C795CA0635B08182010509A2BC964E4E98D2C2D94FC2C7C3129161694562C1E8524926E1809F34088F233194F3C0B442AD50CF4843904C2C7F8921CC80861F8F4399049205AF8F465055B09DB118E4EC0B282875EB054C3EE10340659C3FD0E27F5295291E3501023002C864D16AD130EAF1E11CCB1BD359F4BEF7C3D9E91F82A8E55ADA4A22D542D7BA3E8A8D5066BF5A3B456908AF3AC290EFFB0869EDE3D3B0D",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1905F018EB18EBC129A81E5E1092F74E4D24597898541B98804FFD5D71F7B78A85068885E80568C0DD9CDDE0B2E56163643F506B7F8F3A0111F727FB9128B6C1365F628D3945B3C12C9D10F2D8846598C8946C6E68007424FCDC3F8835080420178D8D188C607F0923C15058319327DB60E7B907608CA7E09F63235CC27677156830DEB484DE14504BBE59F73DA74B5B0A40B19F88B30E918979EB0AC707560AF6BE8843B5097B3B55D7C16C131026E46A17B35807310B9989080EC9C7EC070374690B1AFCC8560ED817118B4476DC50B26733DCFCEDDC4461273BCC1508081168BC8AEC16D830187D35B88BDFFA88DF63D58484A4784177DFC78C245A158C2B",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9404A180B0235BA62A69477C1089C2CA0A8B16F101F54D4EB2F0B41489E15E036CF7264305990CE053401E3B48F7741D250C68188E6C273B0C116A0A7678EB90438361BEC58CB5A0AAF200CBC09C28DD28E00192C4000494034346C60608170C0C64ECBD8A0C05DB171456081C38140425590E19D91724242428880E19192C2C2CE01CB2D01F44F4F4CBD808870D4438080C14DC98653021221A60FE67B8B3D507ED601A3595895FFC7A0E2BEBB6EA7E13181D9EE41A0DA52038E9B0B3AF73846B31C12650EE156C19980EB3488454FC7A89D9EBBD432E91B0A03F6325B426A138E00FCCD7092A961CCC0DAB3C647D98C1C26E12CB18076658964C595CFA48B8",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E48E84E9DCF40910F00A0E8B9A3D57C40B74070DD587BD9BB9833C81C50E8B04816A6DD9092B1D22D1E95BD8038BC2EBB23F2B851DC821740D756BB18F1DC81489B1EB526A5C312B1D901B8588B0743ABD1FFE318AD81B8A2B0841516854E081550F2BBBF8FA29ED4E9FBD0E53685CE0FC1A3A043DF3810E5013ECFA05482816B6CF3696AA1752A1D97AEA06148395077A3E78D12380C0BB308AE08DB523203732879FFB4184B03D0B91A21D8DF48968C11D88063D257523025D4DD61F0B0A1FB6DE997B1A0835F89868510A652420BD107F907C25CEE8ED85B2A4E408B5B044633B9B18C168763A7AAC91302403C8113C28033BB08EF304204074C4C822C6EB",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A7B10610492294EFE9E0C4AEE2877E448ADD18A9C9255D58404E0927FAC8DCFAB0BF5F0C6632DB3BB738C0B0BF050BB487A47833FB2089753E5730DB16FF1424BC1805850C08B8785C9842427A2D762DCFAF72E4C2C3C08940B1C0BF94B0D853986F7D175E0E86D337B9C144B9ACBF07D8C316F92ABE2614F718236C8C2FC8A807DCE0ACA9014DCC5E0F66C5E0DEB6E4214700C03DB8255CBC6FCADEB82B2B1C4716A47BCF23840539B190DCB11D3A7A806525BD409832056BB6300DAF0328672C19BCB773E1901E850E5F3176388C233101ED0147111222C013CDB033DB7C9EFC0B0594980D085F6490F88C4FC7CAC4BA13DC086E2D0C098B35F97E86072A1F",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0BC8B615F89E05590E14F83F00EE5F9201F91FB4B455044E82698AEE680CD010E15242424EB8CACD863C10A624E16C0DE1C573C9077ABDBC21DFEC8DA91CF816277CBC3EFEB0E8300730E9FFDF2CD883352585F838FCB9313026310D28E1E10160024CC022BA2DA1740E5CA3B75493D5E10BB42E039251B1CADD2C1F587FD9A3070E3FC1596808F46910A2E6F4FC6A1F6A1647CDDC79E9FD00511C5D75A11ED433EE78EB12CDCE367B5118779C780124A94EB588F5F2A49AAA6F7506C6005CDD483549753CA2010B74507A5B920C282444AC798A5D52414005D1A0ABB1B33FEBC4EB955DEA58C1ACF2A721BA052154B0A6A8376E407B05146EEB67DAA8FD5D6F",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CC3C5827A8B6B58DA8F260D404419E0876164739EADB7CFE920AB9BA6D2C2276EBE28B5F2A1AFBE7222397FCD8FDA4E763198412C0034C7F102DB99009F8F833D7E4960CEAC7F70D8D4243FDAA8D373BC1C3FC30D587510D1B773A740F0CC2F7223DA3A2CDC9F019212587F8B3F04811C639AC2C52C801D98BB0180623EC01C1169D7552C8237B1B82F0FB2B39C8C1A4E8F9F8FD8534CC621C450BB450882443B8A2C4A6911CDBCB1FF7D1E0009322484683716882276043A81DF419C5A4784F5EBC4125EF0170B2FA7B8BFC4A447B45A83E25058A519C266BFF86500A48C08D9A662CF022D63DAAC3A81A08A22D3B97CA31AD43AA5A2E6A16CC1628142C86CD",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("82573D16C86ED8AB851F8E91017FD858159208E25D4F7C3659BDECB40E58C7000CCA4C675FC03AC5F85E45EC050BD277907B3B7A2BEC39160C0DB109A7124B93190081C3C01ED60AA47511307FD330B75145B35C2CAE3490CB62AE4C392B0CC18C76C05370E1E29131215D34FCFC33D9911CE4F8FDF4FC8B6A670B568AF5261654AC8B669F8D89011E680F0A08AFF5FD80A05402F114DD0E1E4D88D96CE42252398BC65CD9F427A915158338300EB91E4432EA462866260464124809F95E4704F94B59E00588B0574482FCB55ECD5EC1614CBB46210C438A119361E8814D08C72E3050ECEB771F003368CA387EED30A2E7660480ECD1659106CE0C061190C607",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EAFD28337886466478F666512D618406244B4ECECC3C17D8D4C257A0510FD01AC489DBECB537B54A05380B254024077220C8D88251E73B6A442280F8B9B121A908C71E44E12A535DB309AC01EC661D6C668B1DAC5DCDBC0BC4E08CE08CB89A50168017D9F0CC05D93E1B18B40B2978E19F2267015E647C050FC5EA50CD780CB7264130F7CBF86A02687C3F16C1733F0935740780A5E612191D8BC884B9E301EC483AD92002D6C2E44F4B6E0E014119EC0FBE019A75C48574021B1644BCA77B211CB374743A9B00B31DF2EB9DB70388146B135E8F00410C90A1A6C1D24E708C78D91B84EFD90B800FB50C3548BDA48D4884B8D0FD7D0293110E6A2F3A88435FAC",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B7774DBDD0C456F6892B72EB08C3E14131C6894070613F2E4FEE4DDD0E3D1A62505615B7E85836C15DB4218224CB06321DF872CD3C4591EE0455C050BC65C5B2670D8C703CE996A9B6A9B449D344B4425F519AC6AF2D14F984E73230B0FEB2C66C4482A0B397BB064C84208F0250809345827C526F9A0FDA8FD8B13F11BCB14E4DA3D9F760C2364BF58700BEB1521EE19636464E0E0F0DFFC99239B390F0CF08602666764A1DBD6F0004991CD14BD80C83CE8D1E9DA91E88ED22E93E464ECB1A2C8570385EC64E41D8E9DBD75541A3B3C7D4646988D7DEE245B102B1C50232C9C5AE6FE76D368349E8DAF9D0D124D40E5FC91841719D96EF8E80B1646AE9023",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DCDCDC046C0749854A237B4C58F426AF0E43142761C9219CF852BC009B10E72BE3F00BD45B914306F8303B90F0C69A36A1845A032EA30A8C8C1CB251ECECF4ECEDD8D980571A3B3473496D849C349C8B4AECEC18B1A8B17530B34FBB21E139BDF47F548EFF4B76CB1A2F60A6FFCA4192879799E80D30B21DF871B030DB30C0D66A0C4E3E8265A42E080C820205A1F71430EA45391EA480C1AB0CC261046289CCF6619D02EB482228FC14CC6C01112C0C8CC589F794BCE118E1B82DB951CE08E2255D251F3C1840486A2836D48D7CE5FB45D8665E607F4CD4E8958367BA16F8B8D42900F0204D4F5CC0F81A68C8E12C4217023D477201620BBA0D5200CF59EE11",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9A7C8F22A7CCBB8085E4B01848DCC5A4E95AF7C705103C5846091864E08499661C07B1A3242768A09FBDFCA31464F0B6D95C04DC68280B34E6372002F33DB300045437A00BD36CB31FE6B8C8826DCECCD90DC409C0EBD57FAA82546A1FF0817DF076FCDCAE1137740E0855741E454F078013D8AA8210ED65E22110858DE6EB697BD70C8DAA552C8F50AD7C5A0859E84E3EB77E0BC22C4620A883D02D30F4E2996509AC43CC006387F414B0679D4138A3E7F4F1B4224231F208DC1411DE317EC6DED8C210005D9401FD4BC328E75B1D8CB9CC0B110A0F4C3FE00C961084779A3037FE05AB8C62210718E25096ECF4053A24380118166D29182D6A2A8FCFD65AC5",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0FD640813CB56464647B5A6C0C7878EDE1482E4860D50139B1B0A79178081568234AA6EC5DE150E56888E2B418929331D794E27A4A0664EBC601B4AC04614732593EB83BAF23B92CD600FB29D4C82E648D11B6CD1200E3946BC45884D815182563B21B1464BD33027E3018DB65F087A469DA011865F8406830188A916E6C0904703733D6F05550624C44551C2CBCDF69A3084531FF350A6D18B00939E1EDE85C10D0C99145EA0DECAF60668B725B50297841345EB4522874181644EC64F3833D97D1581003F9FFFFFF7FBAECFDD42CBAC3830D7496A223E26CA4EA080ACBBE5BB7740605054E83252A003B2A273D65345DC2041F1C5291CF8549E8FEE4FE2234",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("80570C808E76C839701147B61D5457C8262298E3103309D0EC6F21A8F0F4224DBD0545ED0C28D904122B166DE843B5242EB552684A02952431E7263B4D9C6461853A2BEABECD5676EC81BD0503967E02DE9B39D30B7F09400813602EFA5E2EABD9E1A0B61306E848A89131F8E829460DC98F5E2D11A4E3EBC8140C9BB43882ED903D0C3E53F95774239433CFAE7D17D3411E54EEE41522368B38E9AB1222CE08C39BBBEC521B3D7F386000742160F3E34771E0814CF0EB6CCA0531AB17A48554E036876FF4F448084C12E48E11761A07F5F49568209832D70966329CEAE9F167D76DD1B2D70518791274B30A0EBA9E472919E4304A06266CEC36D6A01705E119",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("70F48E055D72EC5C5D05840683E0892ABCBF7CBDC882D90BB80EB4183FB45107F314BAF6A40768E02A4E35736C16B584E0FBF13035D700B6C8E1EF98E373BCFE5666D64F8B8D196871B616CE07CCCEA35AAC2B9400E9BAF4B29DB1218C4AAC06A41B416C72C02C3B597236469D6AF7C074B828D0030D261445741A2CE845F540225C60C12E098224AD694E03318ACA2B572C1CE31505FF77557237B4A0380587516790296AED183B416F7E2260234FE50C305E9DE2210CFD1C6A3830B1516F0843501F0757900CC84CF3E454B99FAAA90F834245A7E3549DB51FED4A20C12455670A2CC0D93BA91A46E9E2F821D813201E3D740926EBE4086724E22D9BE4D0B6",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("57E491DB00BEE40878D22D21B84B014F0CE4507F1D16658FF20563E4EBDF6845B08FC0C135AEC2D0C50A0495E41E203EAC0BD0F07E22752BCBAA5E12A5E581F61222621F60EB2D239049AE6CEF14748803293AF0DEF09082D9841E76C56CC36843C35694C2B1107E8527BA24203377880EC008A130D41FFC8D04C5400585607B6E80DC5870E03FD81EC5630BE520FB864E4ECEC63028061830107DC86622683DB8206A2060C26CC11737201338CF36D88B168B7418A889C146838311D0839C28A08A87885F7BA0404B9C8868B827469C086ED4B2B56463EFA4983DA42D605B78837DD610A0837198E912E068E8934C4B032B638C53A496A416D2A77BB7EB3965",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("9C28E48C99F62A47005EA15E0C74590E9F3B8C28F0EC558E0CC207CA0576491049D7DCE09AAA96381464C1F80450B7FA403EFC8A7B8801F44AFE867D1A83E00FEBB367871F46D3148360047C060C961DAB20F1EB1449757814986732D67534C809D40D3AF7D506BDAD9B0C3741990813C49C0CD93B5AB3AF4D1010C9914C90141421011CC81440AD8034133208FC0808B7CD2AD680A2F23B7C87A7CF1B1A08122A083A7148D74EF8F89ECB2DB0240A48E44EE218942406646CFC3E5812E6741A0BB3F8CE804382B1FC3C009280036835902AB124700D88558C451D6C185F0E689179CEA0840FE94CE03A27279B06B8B4DCB913C80EB150E46858189778CBC220",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2F39D7B4FCEC60AF3C0D08BB685C2B4F49C58175260408686005739F90E4EB4B687412846CF1229748DC05A42808D93380FC784CC3648B07A4F80F1467928310BCAEDAF8FDB6D9861D51011771E46A3A25BC73484C1CC7FC054CF7C67E1DAF8B102B2D33E8ECB5F7CE1140294071073F911DA13664EC5C5518C96646B641ECF0B010C56889D83B50C79A555D02EFDD135D12B56820F57F49F41BB22F0C3E756EFD762054B3607D539D3B41CFC9B8B800B97A04CE491706E4BC30BBC2051B140E45438CE40B49760122DCFCB01B53562A0822191C0C99461662EA2DB87440872207B2E0E489B6906CC96283C89EF0258C951CA09F0024299A1B04875EC67B7D08",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("F341D41ECC47914E2A3B3810519CE502234F209A4529A0BA2D73139815A3717D93382C8ADDEBCF0F8020D5563116C3A8FD3E1080269754030EC417C51055E4386667AE9B2C692E18092413B277B02A848BF0190FC445D6F13BF089B2232B6F5603B48775AC5EA3AD43AA92556BC70D2B477C1475CD31F026B8618D15991F30899A4117E08EE08953B6BA439BC1B220527EB05F33A019817FFC7CCA341CA1080C0C725A0C2D0143FBED030533417346E4926E4FB9F823FA2364B0E4745768B4E4B50674020B6C3E3483E2B038733492086B8839570DEB3181025A52077C3D10DC93410A82B8C45DD567746B6D28CB700310001D80F4D8FB80D44BE0E111FFB0CC",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CCC36852218160D63E1B12C14954078B89C8B2085CF13D4C6199B0917862445962181464080E91381C9C2E849D7C935B1B540C14A7ECC8D975301014001B083B1E236880816772F8240C08713202C62E24327622B34D2088E7712D2CF46172487304715510EC848D107A20AFB659158AF726EC1478861569AC60F63A7F88FC4F5B210F2360163A24DF25791689E2150C20920133873620208004218C6A5DB49555701E0D7C350A83602F15A8555216CE5675E18887DE4302D54BAA0E2347DCC3C861B81629184ED450418258B81EE6C66214D220509F1C2B623BD2F40E76F07E4540106952148B6C15A748B35C929EF0F4F0160962D7F0887E06EABE2ADCC832",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("20F0201CC12A1830D500C5C156F4BD48790844E2032B09B847D93CD0DF90C67E64ECF073636A0A791CA3001C819917C90071F7176AF80D0F95C1490F8024085A920388977998045B1378AEEC46F5176BD2D785EC013095684780151F826468CCE442AA7516AAE412128EEC1DCC61A7650768DC24081758A94738EB7BCD1A4C7C1547F2EB6068F82AF27C28C628025C28165AC7DEB2CAD50EEB25D98419B28570E53C0E860D7B08FEEB02C9C8F6B5452A45463C3E100A8183403140A46A18D02214B3215359750679173D89B71089480C149309F988C40404861199900404741EA6B704A1E61D43024214217FAA60C60D06B7F40F8387E21687156CF6740CB426",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A9663C52B322ED3D756095709890809F4B2CC5662186DB95F06A26E8205656FA50F0847050C4E123BFC0A160C61F584294E417CD65BBF146C5091AC9890028C50BFA9C25E862746E3DB0F87007EEB905C666A60510197118C164CB33360D61F50366244FEB63C5CD8828C52A54BB57EF8380425C402FDB6AB2F8CC0CEBD76523368977C3F60F093BC1759B4487413D061B99A01A84A003467B88D90EFBF02DE888D014140BD4818C4430A330AE8C85C04C31484D1C6104A3F1420C1732C8850C0C0C0046682119F08819D533B36A0448D64034AC4E13F0102CBC6DC9FC240820B6F00E092BC2BFCB2D26B919A3B720E5018542C05941A202CED839CC712E0D28",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("50290ABA6B30023F0503740E204941C2D22A1449062155029BC5C90EED157418F35D8482400F38E5F641132607B61F44C0E7B065550F9D14D8B222621DFC25EC90C0CC18180B4F6C6191A5298470F148036CF224DF6CE0D3A113B3E8A0BD4725047C606B44B77F2C6FCC20D8EA741F02E693863D6018A8853142C064105D20CD2EDC8B076B461574DC401C220EDA25B6B03F275F2C2C007D54AC78CD5485B06D2D5762EEF2D81150091C83E868C42A250D6B2483C08C94238AC4E95C6137CCA40138D81B6A685B904492B1370BA52C91AFA00793F4901A00DC03E7E80A307EDB7B1F2B49C740302EA50B6B308A20272B16C800F08A70B71B68ECA37274D87B48",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7B6A030DD009E190029209B62B1C9E885E91CD92208B599141019F8F3956C62A32198A710898CB4FC570484D02C3DAF8A06C872C7D64D0EBD02F2ECDF6B995FC3B724EAED9494563266812E8E890E4E130F88C46180955125EC4ED4C922E2BE0481CC0D045895672390460B155102F27D53A2057A094A5A25FB44188C66A0F2E8713FDEE8DBDF50AF3AB66ABAAC7BF842354BB145A34E7264450410BC6700916586B2B09621226B0314A48042D8D2140C4A214F5E9875536825DBDDA6888CC42B35459D0AC36EA50C3020B43E4BD62EC7D868B8F99CEE2D96CE43B2833C898F32D10067AF002750FE7CAE69E897AC87D8011103B352C768B05958B200F0E7031",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8B86A16860D148D064E714F4DE84153D210988E7E2924DD0894E3F34FFBDB04615AA2345B4FB12A09620961C68986EA386F0067443FA941B5BCE06B5A808540558271E35EC054E76DEB0881EA96468A0E7A20F1079AE30F06AF020BDC13688E0118D42B5399025DE8D7825F470052CAB094478C0223A3C6A047BE32E9241E85F87140C460E39244410081C0B19E4421C1C1C4901931CB80C2FA32081B204690A0CCED5C0286A5CFA17D18B61F51F05978D8FED8897709FDB04057C191601B12381E8320C21AAC22C60243E20ACB660BF8DE80D0FB319A93BAC339C70A1DDB02F1A0C3464CA3E07FFB06890651482255DF5ACE8AAFC255DB1A414052DB8B2462C",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2DAF52EB10CC1874291C080E90FDA2BE8B95F4430110183D6407F883A401149C1664010CA488210036A2C82DAA947367C8E846D84A7208061785F4D7642B17E2103B0E03B197003C3E053020EDE599A3F2332C0C031A38701B82DE2B0B2A6A222FEC0821035ABF71E970954FCFFA067552A36A5CE100E90035A44915DE28C0029C277E7714DB3A6A37010BB7F04833E3ECE7B6CD160A1408182B18EB365A1CC959E109785408147248ADCC378DFCE1A921CD0C0C0007EA56C612E0BCADA5CE42C5234F4F7348110F8936722E60510761D2401C8C286A14707698111F27520B52218A82AA9C23EF900A834274202A502F9A018C87F8A28FCA557D289D0C82927D",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("8F9708401EEAB2B3B3291030106CF353C19B2CFA32343C0E414380A80D0CBE53F50B460818E2183009601036B329F9800A27205FC5007A18B49FF815306049FC43B48CD3749FFCC6A411CD4E88A4560A370EB228922ED1F8884E3042BB19106BC879B3B508A490A16C5EF480D98A03D5DAB91432913D164749F0DC64558CECA4AF08071E2930733D1F54CF258C1A7C8C4E402157D424EB18CC738035EB16152E5D7B4084B06D6263ECC107846345039CCA3CC90200753B040017041F0AD4A82F09541EA0009B0606D1044D89756B61C12230606D347BC41B2E7C54D1ABB5845802569C09E8D55717F821DF811C06E5FC7E02E01D1669CCC7FC3C3D1DC0C38476",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("DB2FBE1823097568EBB47F142381370536FC6810E9E8089850B1103EDE56EC58F0F5064850457BAFE46B1A23194024EB63221DCCDC6848153D79C8AF7BB18234BDA7B80806B0836D821D23684C451D9257B2E028710276DD09500BE40C45DE2B6E0D3B2A7D570678B664458654205322BE3760136C1ECCB115A016BD83C6A7EB2E8A4DF488A123404508B4CAEB7C50128A9A04C8345CC2A470C3D1AFF451F0E7823F9D4DF0FF28DAE2C1E30938F4176FC8F2F1C752FCF4FF456F24771E027515FF5EE0E3596103881B3B430F83AF53B208E17765DEB2AAB3A582D995198BB96BC004FC640501747A593AB3C4466C09036044A56E83FC7994363C0E7F58911F27",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0C02FAF88A55F08833C264A5548C1240D70C523C0087AECB1BB4B3D0BE622103BD3AF06FF73D88FC609A1F81B833A0D96BA2FF3A1BE0299ACFF424DD79F5708A903E622C448D15395C2125D503CB87825095185889D93544E14B7602E17C2D7A418DEB6FD93BFA2C05123B0584CF77384EB14776BFFFB03580B797D52FB04B88D116D2EB0844EDCCC6EB065DD4DC77DB8743C260E648CC7337B844EF1CC27531CE1064750329AA1E11132D10307CEED2CB509F633DB02235C27F2ECE3E34497056780C00102868B348C4E2754EF5264469F10980A1492B044234AE34E93079F888B7036DD4C3F7116D54D40D2F03117A8C8D9039DD7656B28458F196F8A11D98",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("3DDF402A0D10F02950EF60A5A70810026B5C75112198BD217C1EFC5A8EBBC89A94B0038E108099F9425DF806735CD3CACBCE8FB1011012FF74CD7DD9127A29BC0118092C1ED69B901AB41539EB9702389220BB44348063421560CDE0BC0A01FE920C687CE98BE01089E4100B908BE4127AE811AC0482BFEB5F68F80C08FB4A2E54BBC8E93068E8AD1424E20D77A6802441634D10E78E017078728886EA1C1206B0014C94EE77C50AF30B557D9829A4A8750634682DEE10A80999EDED28B5B008370DA26111CF0228ED1CA700227482E8654641D9F12C4FD08D8B82FDFD628C838D8624EB585F239B4518C59EABA693CED5464500321B57E3C56F09512A08EB13",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("529DE04A3633ABF8A5042D837785123075599D32ABF1FFF420F27B3F3AA004112C0900108C1602F5353E381F9608C6D287F02A0CEAB7B9517C8110AB818710EA1416F20C492C3044292B112991B6156A612705335818CAAEAC295B6812783EC9666E541EFF34718CB2490258A2A01C9185689B663A1666E4EC01AC01913E3868C084F62554A4435168D01EC2C8164627E01210A85E1DD9F45AF0BCB9C50CBCEF7E052408EB058CA00310AFC8C884BC1E4C681C0C5086AA917C50682C2B5BC296DE76155B463C1C6A501CC25930E7D8E613840C59072D5827600C2143326874808443C8909098EB1F1E1959AE2431202468A48C6CF74268B80F68CC3934094067",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E75454ECF623640731D0EB743168D41D450B896AC2D10BBBCB2D23EC68D878EBA820021F06F12B4144256763D106482BC8DE482A821D9C06893301806AFC833E20D9E9A481046A13AA814411F9C51D260010066F96CC110F22095D7973CDC8E8E8E81F3BE83B8880D106C404E9A99A83BFDFB92C2B8805494989F82A3B7B0409919CB9031F052D031851588A007DEAAEB37E5F7CCBFE0ED4701E613E7D4B36EE20987CBF081F8C8204C821DDC012D20808620F6A680B08EBC855CDAAC1AB248E00C3FA74480C22028655B5AC72E49ED8584DF25524195B1110610FBC7A3A75CA6DCDFF59002C7C83E90700ECFF6BD511E286B7CB4040350DF3ED0567A9ED0EEC",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0F8E9ABD0AF9B0EF3F7D326A054509A12CF7EB5FC2021396080B8B0507C8F2BD4AF2EDE4F0B3600ACCF0FB7CE40DD020C40CF02D10E0B66427805F22162AE0964AE458E00AB150DC36DC8B718859A7190AE145B2C9744072DC9502D8062708C6F53D2400102C0093F020C2252C0C29F65FC03B04170BFFDC60200C61BD2CFC6668D702E8908A099B92F618C801C5FB92E3538F0409AD82423E16135A1C6A11186CBD305F4C486898E8C8817433DC0CE4E0464EBE18BF60C70497119C2CB80175A808F17C82252A340140BD182B829CEEEB8E04AF8984114BB5074518239213727C40C03BD102D8CC1F058FCD06566DC81D80A405CB9EAB7A15091C2355154C40",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("73985EF032D7ADED8C174281F250131E08EC17C0E059401D04042385096EE1262BEAC4EE3EB0FC6CB18841006A1188DED147F1C711984E817D1004149B600B9173F1881367A17858F345A563B05842009EB013932D043C13F16800ECE820D8950D08B90415755E00B188D906150B27A12D22625EEC9E40FB23179645F8128CFC40E402D192FB0592FCD149FD9E1A68183D24EC08C0DBF03E19827781BDA0B6037D1B6F07B9B25F0B6828265000104C6C3D2F208B85C17F406BAAFDF9CA2B24DB85D83508B81B76641BDC1ADD1CAF342514B5D49BA4CEA8A33C210859402EA848FCC6BFC85F02133CFBFFFF4CEC0B9CEE8477D82B5739B5143D171112C243D3C4",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("4B9AAEE250EC3603BCF6620B558F442D051AECB50408BF6D200B6636537C4B880E0B8CC14C10091D1006637602180FCE2A6704149611309D230DA98674FABFCC5202D127445C5953F560C9365727233868A8EC5A520D60286EEB2BA4001AB2EC113D19C49214EF88F7590C210358DFF85DFF124901263F000123453FF606BD670814ABCDEF0908FEDCBA98E06CF6230C76543210323914C240359009872C06F08C8504C10017F2500DC5200D2414885171371426C1E81D6C5F9AADB5D20D1348FC0383E03F45027358737856A5D870503271586C0C03F8666250162D21DBA621F88D8A8215FCD819A2776A84BB108A8438DDE145D00D8710D5C77393008B5861",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("172D73ED2D3E40724970483B17274F814C83C04083F5AA94BDA563B1A849F0160143630103C1E07DB27D3BAF0949020BC10B1001C1E1668476B31555120BCA165B08B18A2010411648F454944824B58E05030908550A98D16089F4651B9EA2115C3349237AF03306FFE1ABC11401B6840178A46AD70F10B3BB6D870712C1E9197B735B043A4B4C3BF4193BE2CDF6E4F441043CF056B7C7E87736B74D4F3C0C123C14109DA5688461F0B73354B30CF23CF808F4DBE6B618B03124A13C11123C780FF5CE0F10F5F4AA5D17E4FB10F43CFC66F83CEECD6D11E2CEBDC1623C16123CD8B0889E0AF89FF2908F39069EF3AF0F7CF515F293AB142AC68747AE427E7218",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("134630A81CC955C84F019546FD203FB90AF9D898806924AFF7448BE427572128B15BFFFF85FCE42A2CBED75C89AB909F5C302211906B7215F29334937198FD384FAE427E8E4379A63C2108929342C9B44992F0460EF917F362251EF6051B4272C6489EF4C9C821FFF340B340C009175F484E18AAF8F351231939E45A5E260E12FC5BC85985FCF2AAC7B6E903202387140C14E42AE4275D102FD6289F5C85FC531444023C81E6A1FF5EA990D885F3C8FBD3E7E427572124E6CDE12185FCE42A38D60737C3AB909F5C0C870DD5F47215F29320ED145A45344FAE427E05E9E3A908F8A3F9C955C8EFFC1CD9026F67253FB90A308A4C2A8DEC97315B3FD44239FAFF",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("ECC3001939041C2C72C84FBEE52081F671870B20B901321538B99091C37E22619D6DDE1010FCE43B0C1ED7380C38E5FD1C2423871709049381909F44EABEA4107E3210F2A9CFDE4B1C604BBBF6C84F06422870BCBFBE02F9C94034C67E9B2840C84FB801AEFA27A1EA1908F9C90C8530EFD4182703213F051D88042439FC6C20E4D0D4D930D7E599DBE6909F0C843CF87CA21F50F29381086556ACC49F5D56F7F0F7D0180B5101DC4422298E64E490F4061AF4FE2DEBF93AFCF812E297FF2A433B9291430A16F83BF60B8BE7F0FC1DA72394ABE8DF918C1C0F11FC3BF4C8CF06AC0B4D14EE39A093FC87543272150B9693A9907FEFC3595B650C7E3215F292CC",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0C8F287DF4EFFFC84FA64204D15D84850AF9C954204F7EA86F53213F993CE0E62CFE18642AE427144301A3349F4C85FCA111084E10827E53F293A990F72C35F23ABD427E321508BBD2D72A42C94FA62491D386EB138A5C03DE82012514CE01E3CC7A414B36A08CF42F3841CC790E71AADC0B16940C69587F7A8A1A0B63FCEF80505BF004136A3F70F8A05E058FF00873469703390BCE110A0A0C4C0193910C0CF75CD46CE222336BA5E4C2DE4EE80850490EB0A5E245C1C5500B06BBB2E5145461040B84234A566006E1B781153075FCCCFFE20E6AC425908A87FF6810DE11B797EE6882AC0464A1B050648925EA6F04F007675356578965E85074008E6DEF04",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("CE66023E9E0DB8A206BCBB1D44AB99FF0DAC0C8908FD1D796E0DFCB0A8A1F80C00A3C07F54F0CF0D797D833DF07A0C687EEE9F69AAAC43F41968680CD08287E2F7D908D02862A1A44045D860419802DC35A00C97147C20C0197815ECDF36E47B53320014E86D4D4D106CBBE08575E002D4231F60A8A0B564A0EE0B61A226558ECF0B5F7443294DD050D95C2AC317CCB6B58BE02BD03FE01554B126DA8C7C055028513DBD1EFB7DFF8D4C2408721481E90B2D0485011773EC2B1E3EDE36B5C40C8BE18B7B5057189E9BEBC63BC44DCC000FE4B0F06FBEDFF6B230030401007B8433C0C3C3CACF8D6C31080C052F04B2832B88C200648006E99AAE030768040F70",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("7437D9A4E917067C00100B345D374801841B0E0F02084D3348D3980C30A8138334DD602B181FB80F28D30DD2740FCC09381FDC204D33480840E80AFBBE20CD48F47F5854D11F90A61B6407500F0C0C9B419A661014136024D1B3037206990138D1DF837467BB40074CD1FB500B5C60833483346C707C80833483349094A0A483748335B053B817C4C8833583740BD4D8E8BBF00CD69D7DB3D21710071C0B200CD20CD22C303C40CED23CDB50D29B54D2D20206E906E917888C0BA0A406690669C0C4E4E8D72D0769FC00D318030677CE3667BB0738D3173C50D35F5406E906E9176C700B909406690669B4B8C8CC9E6C0669DCE000D404D4C19AA65910041824",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("17419A41BA280B383C4C76DD919950005C13640378D4419AEE12CF7C1388946707E99A0EC00FCC6C3FC7E4186CD3750FEC03FC691AFFD5DDC76C67830320D52B33240F2C768FED200D4107142B0F40D56CD77DCB8FC3580F600370D58BDD8074E7052788061398BA878034A0FBB80FC0A6E906E917D00813DCE865BBA7C904D61F140B20D63B9A01E9DE0A8B1344155CD76C076964215F0716900F7958365D9803BCC35C0B17D6D29DF4A4D6794033DC13E8924DD70CF70D63F804D73360DDD3BB200F28131066E3204D3C400E3D2F17AEA1E9CC64D70388413FFF0008140790001CDC88EEAC93F404E140975CE317180B2148F79A6807771770270AD29DF17C",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("E343280B84D6BD20FD738CE34BFB0B066FB7679743B8E49A7003DD72A38CE6974DB3357803D0EA90E60879345DD32C213A980F644B35DB66D96D7BF0167C0B7E30979F3BDB0720E8BF280797477F34E8DB41B66783F1811F3865840B403758D33404D44817BB0B1C64394850028558C685F16C7761F760176B8713FB8AEFF7E4D6BFEB0FB7951F980780490B0AA98E0F67EEABEBAC8510850D2204A8204856E7DBCBF22D682D656C7015312E3431F3FFFFFF7368747470642025732073746172746564206F6E20706F7274287329FFBEFB5B2C16657276696E670B00457869741E7369676EC4DF45DB616C1164D3455400504F5354006C6F0F5C550644454C11",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("45BBB5F6BD9345414413432F54022D4C04F7FDC07E6774683A201354797065115563B7FF33772D4167121F49662D4D6F646966698D2D53957FFB6D7B632441753D6F72697A617469B67BADDC3452656601304F6F6B2BBD3DECB33B4C6F63220053D1747573B0BBD79E1752617F227B6E656321AEED96DB185472734A2D4567736FEF826B2416126D6C1BA478742FE40973B3680C060F747874EE4D5EFE706C61696E6373730800AF7BBBB5694D036D61732F782D0B6E1390B717E4676966090F6A70679DB0EF7C6A706567050013706E37E4F68623090F73760976C3C26C2B788B18723C0061708C8615BAD969FE7562AC187F6EDBEE007761761F75E06F190B",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("6D703305B9B9640F0B0F69646DB7E4F609001F337589757269D1B6640B2A6D138D2D5A0AD95EAC040E5F1B006B4F586164939B6D73779864424BD8822E65172641FBEB1A8D15873C6D377A6970D35A2B7421112D4C8F2109F96B14651C23786C73C88ED068532E13677A3BCEF65C47DE2D141B092EE65616C81F1B173372F71656166EA41B61726A7B43E64211AB725723F412F22874660F6CE12DAC9F130F42664B6E582885C93F6BDA652D664BA6A3157A0C5F6DBB64B0C9188665D35F6D13DE87D99629660FE7732D0EDAB180DC1376690900622EA3E45E307709A77357B115BE1F09576562200C20ECC5635BBA7DDC7179002EC36E35785FC26CD97A4EBE",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("52CF0B20692EC883257B442C0A09706870141EAB34631F9B736C5FCD9DEBFC2B010B53534C2015F165DCF5F5624D17AA73534C69730AC0D9CBA81138F0EFB0CFED915F6C1727449D2011E39D037027DF8F6366675FDBB5D7DA6B6917523C0A53B6ED2DB7CF742C975249203220A17019162814166F196D705CB9B5EE399E5FA51F4347076B3B67D876738184172C70D7C77BAEEB980B5F69E6720B270B2E9DB93683053F6E834164BB67E0D0A1BC4B22122076853C731B1173F75F5353054E2FC27336056B0F86C974A75F650B41E60AADAB5108885092205639C7D9866D216D790E2E66F2E76EE09D3767D0BB6C6F627B0C203684A79073542378272770CCD3",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C2016C03606497716630A4D36FBB6A33E142057614E4E5420150E58E90ECA284E6C6C7C1F09C746D337293379DB611F4851E1A07505CCD26F4B60C31E1CB8B77720225A22735BD3EE006E6F876363175FA567E30BD6B6991920826872B21AD7B2D760970B1ACB20380737F95F745CE363B918912F1620035F70D876AD06FA245061D83DECDA2DE782E0367B450941B7B57663DB9B2FAC6E354950FF4AD1E00223A7737A756244F6ADA18D76003984640A4E756D62930D730DB7C266204A6B09186E0B78C20068A0EBA403F618669AA8B01783F1BE6B3BC275536A613B68BC485454502FD8848925A03161760D0ABC65B0902F751984D65E485D313213010F7B",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("73E55B0C2530336457462F2533B5CD17D95C4D023A132020809978212A33F0197042BA6F2F2D152D90D8A669BA525303989CA09AA6699AA4A8ACB0B4B8A375A369BC4A2B00462E33D1BAD29203410B077913A50B8EAE21036CC3C953652CFBD2D2A64F774E6F1B448000202C0003EDB084C46713634B2C0A2E1A228D11AE581DC3DC96136D6F2390AC29D66C1370002F5630F0D5C3204A732BC1ECADAD39B65565020E466359F57A01AC7961604476E8F29D5C5F6A28293A0F02CBD061E5206972773B2DB3EECDA26360736C5F68B7750B7B2E0F845F277718B6C096B2179074396433B6CD625763D9176178071A7AB7DD7013746C036D64FE1371456BAF3548",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("A9948889B302ADA9001C42409E17ED36430B6F65430E4EB0496D48F8C0D1F96D3A754337761F63582F87256C752E03256EAF42EBCD4B13A52692A508037BE30F0A1B32D37B877024572F565FD086B9971303A715633B5E3353D3D5672E2A092E6DAD1B027513464FCB645984CE32868F20CBC62530DB583B4B1FEB773869A409001D201E19B366B35864231933DFAFD1DE64120059739853AE6D0D8D4D8BD750E06D7467B02DA3D26C795162A82F6C6D72615B4C8192690C5676EA1F8F8B7848B28D2F64336DA0A1214CA737266362CD78F0200FF0FC446A48CDA728374D9ABD1E63E9662B221D1E960363635F0FED966D147566001B19642E56DB1A8602EC5B",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("2C5DE0E8F85B8E6D907555DE205B2B7C2D5D705B8C959E015B1C5D3FD6C0C9BA6B671F2B20872D364021D3BD3CCB621D7148C98637168B6DD7E1058B106317F7A51A36923D3779036B67643A6AB9C93B73012D370036171BB53BB5326B2F6C17A654E6011B534F3B976227447C48616417F453E42366696E874354582F610DE1A36E73AB0C4276640F61239148490F371C2B0770BB073329EBEE636834070186CD56EB575245C8F5C6ED5155450A5F4D4B484F44931A1F3078C3002732303020C88317090C283213F76DE3EF3C083E3C622E790568313E533C44B8DDD244B92E983C2F1097AD5BC2ABA862AD6296643D312D76A36D0E722A893E4F962456E8C6",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("730A0EDB736325136F4BB912F48670DD3D323E823B6B95563B172F3FD3DB06FC3E4E554C4CC73C706479613DDB1A1FB8272FA16717AE278BF91BCB51B4EE3D8B703E00D61AA4ED66206D093D50370373EFD93E8E643E23060A1D89160BB3709BDA3D68F6DAB37828FC3D6FDE8D6E1D42B6B527643C281D91BD849C2676502B37D8168E8C3C742673ADBE606F30262FA4E8B32F8C30E11D401C667C3E98902478D76F770ADC41123142286329F5E9ADABD50ED13E79686B610A4D8CC6C150520F0912548CB6C60E0963A0022F998E515D0AB36741203C248B511B1B163E0F1007B933D79A4150061C3E2E853681ED2F4F096372220CC560A166CD6C96986E168C",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("24371371F0060B0E24232E81988DA4249F0F9E132C41C2EE8B6151F1ED10321B0F065B5E0A237070B9F6E46C2014270BF600437B1108668227CB3216CB616288484D53C36BF66D0859172D03A31875B443249D2035FB20B3B1EFF61322042220670A2722036CC8B743074F2F25593A47F6AFBDDF8F2D20D8449A2B303564439BB9C20B7BF353F608AA519C255B649775707AF4FEF5C70E2A166960F39F72232173002FE060C60BFA0B835A436B78017E43067050C0105E868FDC288CEB6FD1C40C539B34D7678743017E807243D75A1C662D5C673957AD781242046C325B7792B35241EA2C18008A2F3BFFC561B6D22053434D203F9B25EC25750B2F3D7B49EA",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0532E63637DB7EAF990EC4C7667525792E97AC1E0C99048FB26501B07B236C655B63B61BBF58741C112E362C871D78258755A157D8923CAB1812343EE7478490A4A2611307B14E036907613DEAC06D4F076E116309E570FB352066AC1348060071C6C4ACB55807200626C08D9196734368086B5F925E32305A82F843B98F91500B7F2F14557CA8F43B4454EE003A69EB5FCADFFA333435363738398263DE93A21D868755A439CB80ADAB650C57002D2DF57DC15C6443A6222922AC3DC62A13443DFF0BB236C1AFE92204228B2E74FC612B811DC0CE5B43AF772B17F64C7F6E07022E333238C7131460125617654A240E310CC5D37803778F96AD0F4B0952595F",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("157A766B0C0A4E472B4D4FCF70F9B0B61A53160B414444B8E503326097E3C40BD0DC20033220E8F464402E3904E6101806644006243C5048D964406C00826126BE7B661A0B61356B6007070B5EE13007BC0B602377E1E162B042CE0B67D3982DAB61B34F0BE31B58B8CFDB0B76396193386B5F2F5F6F532DD888A5EB62B279C7B6E30D6B5B1337FB5F506FC5A041C776404BB57B984B80841B455F21667542CB00C71B8F220FD2E372756EDD93097746FB68D31BD82C0EF10AB73B6F860D83D8121E276B1B4D872C115D4B33B66B1C5A120C3F16E839461225CD141C8A5432080C25F2C1091E73017759D10E565F474D542B62794A96416E73A7412D03CB0D32",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("36835F1E202F0C61688868F3610FE4812BB5CD2B636C3F03E98B7424E74491094CEED6D9906874031245B248E8D4A09B95E73186B0C300E441398CE766679C739D2A4E9721DA537C212D2D23AB632C925F81D65E1371063E05002FD7BD720722076E88AB84573103341790D353836D6F69035723413AAFADB555036F0D6D37675E6DC1454B8F764450CB4ECDBAE6642BDC2FD7D9AC09BDAB1F6636689006890A7387E86A9A6E84FFEC0706F4095C0757402F9AFBA7F5CA822BDB6B750A4BF66667EF7307277FC02809CCDE62137860AFD436E35F94619822430DB92C9B704752528B0C2B9B2385D412DCA5928094550837BDD3A4E607A315E49F050ADCFAE747",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("41E957410906C19EE96F0752464143453D3D841F05965A030F5602BA521181090CFB4F434F4C3DA38F373403A5F6444903C54A49F609730B3D3DBA374F52543DEF0E587BB20F4E414D6157524FD6DA36560F445D551A841160361258BF1467C35E409B100F67686E67038175E3674308505426FB59C0770F46494C4513500CAD1BDCB9485F09414E8F0D707FADCD68EB8B8E54595024F6120627003324375B76E22D0B464F3D5D335AEFCD4EAD4719F05BCB076CD8767B33234D53514307931BD86BED5953C6F80BEFC086FD3623524C4C494207F3E716ECC1AB9AC3415589099378AC9D9F1F301E862D27BF5F6BF4A08F37006B00FB65B42C4E873B8B58DBB0",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("D426F93BE926670657C52DD6BDDC036B6746664D04433622EFD72D5227C0AB972F813C97F0BDD88ADC6622012212A0010A8789613C12F6167A266E620A3B1410C533C0C21636AA49C9A2842F454314D24A5A204CA28302DB3B1F6875F83D1E2C09DED3662D380138450568E092D130E0EC19E898B392123C836F033EA13ED37B4C2D6CAC2D6CAE676D12662C7D241D6C49F0DA07454D48044BD4250F3CE93E01DA8D9A4E8F6C702D094182C28231302C56812181A34E3D54EB0243930D1053B09020084946796724C1345B473368481100D251800128757C74C887A01747077D98D8E860758C462577412C4275B41346604383208EEE34580B54051E52E06FF6",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("687B2D0957590A266D063C807552B212DA359801C1891E447580B771AC8F6548A2642FC34EDDC0DE5443B31C729F696B52074E625A5766B7E0A68D1443B3546F4D996942566A3317AA2303C7244BE6DE1B0F441A2530D4056D583A14714CACF86267B557AE7B417F88D1A1580F587A4FB3B05C00536C7024D500446D33E00135430E4F3BF405738D0CB968420F0D3B56052B3241E01BA9C69626344313720FA56186A0535335A5B35653816CCFBE749A1CE05EC0B0651AA8A026042C48E8312DEA3ECDD62EA8E2745F62266EB7115B8C5F0D66A56306E51670DD7213661D1D620EBBD69A7303504CEB6DEC666672C3EEB66C60681D76736E291CB8AC2BD4D4AD",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("EB763D7762F7AD1D8507156D6D6F761A7763DFF60AD067F307866E2073EACDDA73AC077E2109CE3DD8BD6B096D6B77087E618E9A836373093BA978A773B86F1C637007AD387311C39C0F6178060D80731E3A1C01041ABDD6A249F94353ADC53EFE365863700774133C0255EEBD57982B0E35EB626EC1E66E67F618276D190CCD19DA615B0B7A769501DAF63A8B6A1011B60210ACC1481BCB641960D8770D660B372AF6AA56114A86A670277C4C5F689133112108E60A1B4B6C3DC3CB778810291B4037F418647E8780077374F40011DCB31F7079E58098F1B5CAAEF125659DD9160A07FF1204693363BD37FB0543706E53084475EE1D865C9C0FB30F73601F19",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("1CD1CD2F6C611666C0848327C6666041304C058CBFD0E06685C12F52806CC1D452FB066D621CF55FDA59166C10DA5A0E700826DE04E7A8FB85A69CB1ABEEF1F881B35F43656BD4C466B3BDEDA0A153680F5FAD61A95ABA6F4940411BD082759AF9A82F91151CDBB6F94D94751041016DD0B686F50B417DA472206ED9A5C0E3B8636B2A576C56A468850E260B93EB90DC36734D039630F7143811F36C691220C5B2585A1E5A7520853B4578107F416BD6359B65BA34662868727BBB170FFF6F7992D704016559B6CDE4FF0F02160A04966559961305060C9701599665597309081012655996651715020D036D81CE820E37454F010F58FF21F07F964148DFE000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("0F010B0106BE0C8067C1004AFEAAE0587076F6B00014100F04BB16043B2C3CF027C9BC64B3C8030F070620647919A41CB88CA02B6C37A73C021E2E846CB0C78200969C90A0986DE12301FF602E7264B461FBCB8630C83E11200302A4B9C59A402E2627C41ED00B862919D0C05CBBBA0068502DCC450000000000000024FF000060BE00B040008DBE0060FFFF5783CDFFEB109090909090908A064688074701DB75078B1E83EEFC11DB72EDB80100000001DB75078B1E83EEFC11DB11C001DB73EF75098B1E83EEFC11DB73E431C983E803720DC1E0088A064683F0FF747489C501DB75078B1E83EEFC11DB11C901DB75078B1E83EEFC11DB11C975204101DB75",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("078B1E83EEFC11DB11C901DB73EF75098B1E83EEFC11DB73E483C10281FD00F3FFFF83D1018D142F83FDFC760F8A02428807474975F7E963FFFFFF908B0283C204890783C70483E90477F101CFE94CFFFFFF5E89F7B96E0200008A07472CE83C0177F7803F0275F28B078A5F0466C1E808C1C01086C429F880EBE801F0890783C70588D8E2D98DBE00E000008B0709C074458B5F048D84300000010001F35083C708FF968C000100958A074708C074DC89F979070FB707475047B95748F2AE55FF969000010009C07407890383C304EBD8FF96980001008BAE940001008DBE00F0FFFFBB0010000050546A045357FFD58D87F701000080207F8060287F585054",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("505357FFD558618D4424806A0039C475FA83EC80E9E5A6FFFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("000000000000000000000000C81001008C100100000000000000000000000000D5100100A0100100000000000000000000000000E2100100A8100100000000000000000000000000ED100100B0100100000000000000000000000000F9100100B810010000000000000000000000000004110100C010010000000000000000000000000000000000000000000E1101001C1101002C1101003C110100000000004A1101000000000058110100000000005E1101000000000072110100000000000E000080000000004B45524E454C33322E444C4C0041445641504933322E646C6C004D53564352542E646C6C005348454C4C33322E646C6C005553455233322E",x,2))) : Next
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("646C6C005753325F33322E646C6C00004C6F61644C69627261727941000047657450726F634164647265737300005669727475616C50726F7465637400004578697450726F636573730000004F70656E536572766963654100005F696F6200005368656C6C5F4E6F7469667949636F6E410000004C6F616449636F6E410000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2))) : Next
ts.Close
End Sub