|
どんなファイルもbasファイルに変換します。(※十進BASIC読み込み可能サイズまで)
!'binary TO bas
OPTION CHARACTER BYTE
FILE GETNAME F$, "ファイル|*.*"
IF F$="" THEN STOP
OPEN #1:NAME F$
OPEN #2:NAME F$ & ".bas"
PRINT #2:"OPTION CHARACTER BYTE"
PRINT #2:"OPEN #1:NAME ";CHR$(34);F$;CHR$(34)
PRINT #2:"DO"
PRINT #2:"READ IF MISSING THEN EXIT DO: X$"
PRINT #2:"FOR I=1 TO LEN(X$) STEP 2"
PRINT #2:"PRINT #1:CHR$(BVAL(MID$(X$,I,2),16));"
PRINT #2:"NEXT I"
PRINT #2:"LOOP"
PRINT #2:"DATA ";CHR$(34);
DO
SET #1 : IF MISSING THEN EXIT DO
CHARACTER INPUT #1:A$
LET K=ORD(A$)
LET L=L+1
PRINT #2:RIGHT$("0" & BSTR$(K,16),2);
IF MOD(L,25)=0 THEN
PRINT #2:CHR$(34)
PRINT #2:"DATA ";CHR$(34);
END IF
LOOP
CLOSE #1
IF MOD(L,25)<>0 THEN PRINT #2:CHR$(34);
PRINT #2
PRINT #2:"CLOSE #1"
PRINT #2:"END"
CLOSE #2
END
上記プログラムでバイナリー形式であるzipファイルを変換すると
下記のように出力され、また実行することで変換元となったファイルを復元できる。
(※生成されたファイルのウィルスチェックは不要)
OPTION CHARACTER BYTE
OPEN #1:NAME "sample.zip"
DO
READ IF MISSING THEN EXIT DO: X$
FOR I=1 TO LEN(X$) STEP 2
PRINT #1:CHR$(BVAL(MID$(X$,I,2),16));
NEXT I
LOOP
DATA "504B03041400000008008596C53CE791CD643D030000240700"
DATA "000D00000083CE8C768E5A8EAE322E4241537595DD6EF23810"
DATA "86CF91B8871C12A288F9F1CCD807AC4429D55275531658A947"
DATA "DFFD5FC6BE0E490BADDA54F1C4F6D8F3F3CCF07CD8BFEDCE87"
DATA "E6F0713D9C87DD5BF3F2DFB0BF1EDF8766FFFECFD372F1FCEB"
DATA "FAE9B45CBC1DAE4D73D9D272F1F27E6E862D37D7F78609DF4D"
DATA "D34C8B974ED7A7D36A6837F5C43ACA9FD5D073BB5C0C38B519"
DATA "9AE5E2743E0ED76675E985348A646A379188C4968BE992DDD6"
DATA "55DD48B2B294E0528A654BE222D461522348385126CA492879"
DATA "1673A2F5E5DFF3CADA4E739AC47160CA8543B21973E03F0B41"
DATA "2592BAB06831A1C24E9ACD7108479772509142D92D72661231"
DATA "8A506CD064893DE710566331A3345FDA4EA63F6D23A7529812"
DATA "761777C15EF851221522EAA04696DD61845351A94BF55A4F5F"
DATA "E68BB115CFE3A732D3CD0B87825056D1C8388A5DBD145511B7"
DATA "84BFBA96859D3B89526AEC42C9092B82AF0821875A30361917"
DATA "12B56F86EFB73D428A8D883579754F12F5054794440AEF3D65"
DATA "5299B47AE4C51F835CB20902142541DBA81ACAAA9C5368970A"
DATA "4B241783D182B88725A740EC31FFDD8EFDB64EF4FB359E79F2"
DATA "63CB9FFCED7EE7EF63FBB15EF97A68C737A8BB8D328D3A8D69"
DATA "1AAD7D50DDAC14AAE31BAAB751DACD303EFBFA3C928EBB76DD"
DATA "13547EB0BDDF6F2E77300333B0EBD918790114D6B18DB94C15"
DATA "6BCE36E55E90FBFB98A6CA18154F881760AC94B32773260686"
DATA "563A4526011290344F5A6B0565115A6B451354A753BFD8E4AC"
DATA "25A2A8691076409D3A5602EEE0B502E220F7CE1A1C8AD24C53"
DATA "86A74C33908247E1C82F49AA947B749932E863E418A4A0DEC8"
DATA "E28701AFDB1508F4C4815AB34E501CA86A1593F9065437E5FB"
DATA "18C0BB8A397B44F6CC5D169417422081EAF559AD6DFF68D3CC"
DATA "01DFDDD1F2D9ADE89E96E34B33FC8599BF0FC3F83DA715AABB"
DATA "DD233CFA09CB6644EBFEFD5377A2E5755C390CCFB8E9119A7A"
DATA "FC2FD48CF5BE7E6D2B3B50AD007D36E2C74EBD1AE6885E2ED5"
DATA "D7EAE1F1782B88E1EE3E5C7859AF627D3CF6DE4E82CD429A05"
DATA "9D0599059E04B8695FC3581476DB38093A0B0982DCB6CA6DEB"
DATA "E4DEF138A7A51A0E7B46DF3EDDF9C5C9F12764D23B9DB67D06"
DATA "E0815EC2EB617E003FDA490AB49979AA9752BB5D41C39EF630"
DATA "A144D06ECA38D14346FF43271A97D026D1D3BEDBF33F504B03"
DATA "04140000000800B9B6C33C03DB26BC04090000312600000C00"
DATA "000083CE8C768E5A8EAE2E424153DD59DB729C3813BE7795DF"
DATA "814B492C069D18E682BF4A4C9C0AB183BDC6DE727231EFFF18"
DATA "7FAB254002CD29D9ABCD38C341A0EEAFF5F549F3FCF89E6563"
DATA "5BDDDF3DDB33D3F2FBBBAF2F6FD9D056D9FB4BA6EFEFB22CEB"
DATA "BF66C3FFE0FADBE380D7F0CF3F5D18466A3650FC2EB83F0A7F"
DATA "94FEA8FC51D3D5EBA62412DEC66F78DB1D052D07FCD4AA92A2"
DATA "8A0F38C1E3F0C5EA84E7CF0EC09883265CEA3D57D53ED74AC3"
DATA "914B0593DFDF0D8F9FEFD9008FBFBEF5C37BA644DD34151BFF"
DATA "7E23BCAA2A4DCBF1FEEEFEEE4BFF23FB200DF596F8209CB66A"
DATA "BE1074B6D10791E185A26D21E62B0D577CBEAAA3AB5DF85AB3"
DATA "5CA0F99DD1391ABD5A9075ED8F972F64F82B6BE8B4145DEB96"
DATA "627AA0090CF14FFB413A1A1BE61F3025AF8F009D0C65B3B507"
DATA "A25F302FFA02E64286A0039C2A1AD3E16B358DE994C408965F"
DATA "B4B4441009CCF549CC35DC3E8FDA308B7BD8A2856537DD4864"
DATA "CD464A67E85D2B22FD44A45E172A27983A024B99380E48227B"
DATA "65B66615386872554A463A78621196F43767161DA18009443E"
DATA "D2C8524C6C44657013A589620CA5B89B92CEC2E48C969F615C"
DATA "D1C5A6EC9828110B38A86043CE570AEDCF506A0C2455185278"
DATA "36BE3FBE66D62F162144E61A66267672E6856034C8953F829B"
DATA "4A366ECD2CF3B1ACAB585ED2B47AC538366CD12071B668ACC9"
DATA "DDACF3CA99852F55C8E7205466EE3910041F51CEA80406252F"
DATA "32929832DF29A608C0B3024478CE4BA2AC3C08A62B58C1C806"
DATA "A029AF91688365B5B215E30E4F842E1711418AAD45151B7319"
DATA "88D48C5882695A8885AC0F3A918A70ECB3D5E51812E8674B3E"
DATA "31FBD8EF7CB70CFC6AC983669F8CFCCCAD809FEC67A1E0123E"
DATA "94D223E1A58E541DD9C84CA1C1B1ED6B042E2167E19BA3BB02"
DATA "8F0226529A45F1073C4D9784FCCA3FCB5F48E0F92C41585E9A"
DATA "193998B86C1A119AFE02A7F046685BFB3EFE97623566D091D0"
DATA "2C2A384A9F5EF1699749E345259C0B990BAEEACA66F6C4EA05"
DATA "74E95A609D5B3B5A8A0056B738A43D3F195AD13DCA0E3E1191"
DATA "2EFA642998C6F0D621DD52EC85ACE72F0EABB286072A1CDAC3"
DATA "CB8F4E9081C64B0A865002030F3BE0C7446A975067D489C50D"
DATA "3D493E7055FA38D14F4E14CB38BC8C6426499F0A397E9EB3B3"
DATA "8CFD909CE586398A7773718E446488881AA0721665260E0C71"
DATA "E600F2F2AD095D5DC6C6D4A23E05D15D70C1777AC7AB3D7779"
DATA "AE06D7E735DC515AEC76B2D64BB29370BD6FAA662FEA5DF070"
DATA "05EF3742C088D8E949C6A1255A407D4884ACEB9DCA65059FE9"
DATA "1D081A530EFD86E9F940234BC8B5C3463EF9D4164F7F502F3F"
DATA "B54F67EBE543E0D22B2A835803791C5EFD96E02CB1163C599E"
DATA "78ABA005B0063FCA18F47FA049B0B6BBDE2C5DEBEAAA026BAE"
DATA "256375AC3BEF176F95750A221AF0855DE19948C14DC2D08306"
DATA "EBE2CFB6BA2C211FC90B25E50925242AC1A52DAB1ABA8A6B4C"
DATA "D94FD968F7B711DCB8A8DB403D467803F9D299E28F34E1181A"
DATA "368A945C6CE53BF11A03CA2DC245281C6A5C29B02002B9852B"
DATA "8D724973A1EBD2061FBC5D2B7F0E0B3D9DEAE574476D4D85A7"
DATA "FB55BAEA622836CE5542257258AD82526061D7A582C0BD607C"
DATA "7F6002E99DA3A628CC4625C2410F703A685B223B9BD02CDD96"
DATA "69D724809571C14435DAD05AA876A6F567FAA2A99A849D263F"
DATA "BB5591798D737F26683EAFF62545120B76BB06608AC6D149B8"
DATA "33857C6B1C97FC597D5E97749A8C8AC8A5B18BDBD888311DAA"
DATA "E3CA35A28ACE46A2BCA361A7606C1033B938120CB5D2B226EC"
DATA "AC1D4362F69CA96FCF3613B1B70FBE1F2B362D920BDC89565E"
DATA "7AF767AB75B9DC6E0E6C16255D7922DD994D4A443BC6A69BCD"
DATA "D861675127859976983BCD3CB14D002B62B02E4A20D8B4ADBE"
DATA "91F36DF2F42D966F26F11C4362A2AE52D0C5E452EB922B7529"
DATA "6AFAFD8878997CD21DD62A2D055F522EAE935050D5957C7749"
DATA "F0F992722A24AF7011B926C6754C94D9BA113033BE243A6BF3"
DATA "D1F655EAE42A6EE02C26BB96D8FC5AFDE7AE6FA23816383EFC"
DATA "AD805DB0D9D532178E27B6004E747000711FD657C69CDD830B"
DATA "13957DF4E8E515365861AFFDF7757B71C6449B714B8D0BBDAC"
DATA "AFEBF8D2CB8E1B62466AC0A48275B494519825906E0DC451A8"
DATA "E32098DB61DC6C58E71C229DEA853C5AD78137CC29C4C9D42C"
DATA "99B11D162F2CFD8E83BD3A01CCE27AD074C6F420F405541D8D"
DATA "B664DD1480278650D84D50020635D41F6E028072989306040D"
DATA "C99088AE552ABA4EE16061DF3551D6AC2CD2B5E64CA5E51FCE"
DATA "1F348B8AADB64BC43B61B73B6631AB2DD8CE6EC19E7624014B"
DATA "D895688F50CC62FA95AC20D3F2768A1AA5CA838D986D40BA14"
DATA "5F1727D6D744D991170F3BCDC2C4F8A02F485DEF928671CBEF"
DATA "03A975089E371056F2EB4B51FE44EFA15C2BE60AFC2B8ABFE6"
DATA "D226E9093935CA916E2FFBBA1E87703D7536D8E6FC56C29C00"
DATA "D6728F0D0DAFD6304DB9DFCF7F1B25F64D859BBBAEF6FE3325"
DATA "9A64CADECA9CBCE5F74C3DEFD719868D762CADDE2E29AF9382"
DATA "C097AAD35EBAEC1706D2793BE2E6FBB0295CE1E6610A4E6045"
DATA "BE5DEC86CFE97ECE125BFFB952919544E693B13BC665E164D4"
DATA "92377374723FF4CCE1EAD0426A81AEB8B41D8A57B7E8B08180"
DATA "B45628B0F4C171D484B135D1BF8A64D920B2B0D43A05C82476"
DATA "672C55FED44C89592191DA0560FB898822809588A5E96AE86A"
DATA "58C95F28B1326AE264E899FFDA4ADF13D89488D93048D25F9F"
DATA "5BA7887DF4BB7B1426C4A2E695D2F0791783EDCFACAF7F7DA7"
DATA "D38FABD3503021CFC2BB8F9FFDBB9D7DBA15FC7C8020BE4FD1"
DATA "DDAAB20EEFD6415E1981108FBF4593572CB3664ABE2E09D46C"
DATA "57B6C732E06443D75B0EF64878BE346EFD4CDAD10E899BA7C5"
DATA "00D8D37C997E5C4F6D8DCBEB4D78BC62723B25740D47E1841C"
DATA "455A77D7B2DF3E7DEF27F6D9BCC7289012E00A7134D12C25A8"
DATA "7AF54921F0503EBAB43DC118E038117A9A69B4C9D4075C1B6F"
DATA "8134560C3CF3F8369867A0D9C77078EF5F866CF1138701B5B0"
DATA "B5424450E754F6D1D6E9E258E927C1F991946823FF6347D8B0"
DATA "8246A875DFFB2EA9EF69D9F7F03759A69FA2A393323AA50311"
DATA "49ED31D34F1E1B14DFDD7C7A987F874AE8656CBD3CEB553ABD"
DATA "96E1CE16D05047D86181FB16D1304C7D38F861BE0C4F782640"
DATA "6FB51502131D0ED76152FF062665B59258E2A7309D82EC31A9"
DATA "6958C5982648EA4648F2DF80545BA5EC2E74FD3B90EA69B84E"
DATA "43923742AAD6906EE3D85A7CD5622F8AEDE85AFCFF01504B03"
DATA "0414000000080096A0C43CC1FF4C4BAB000000E00000000800"
DATA "000043414C432E424153F30F70F5535036B4F273F47555504A"
DATA "29CDCDADD44B4A2C56E2E572F1E7E5525050F0F40B080D5150"
DATA "0808F2F70D085150EA5BD7F461F29FE9679BB6361D695ADBB4"
DATA "AF6973D322052B252B856015887237204BC15641494921C403"
DATA "68B46B84678802D4A880204FBF1090650A4A10A692B582B347"
DATA "908A86B189A635509BB582922D8A9092B59235D8601F7FFF00"
DATA "5E2EB87E25573F17A00B9D7DFC835D817C20CBC3D1D30FD5F9"
DATA "40250A405B01504B0304140000000800B096C53C638F5E8837"
DATA "040000DE1900000A00000083708359838B2E424153E558BB8E"
DATA "E33614ED0DF81FB86E76BC5116A444595482296C8F7622406B"
DATA "1B96362327DD7629022C90FC40E02A4815044891CF4B95329F"
DATA "10D124255EEA92968DEDD28C499E73C9FB382435DCAEAB8A3C"
DATA "97BBB27958253412195DCE6775D190EDBEDA1F49369F1DD6E5"
DATA "AE2134A2F359D58D93CD63AA5B6DFD98BED9E8CEA97E6454F6"
DATA "B672C6AADC150F6DFDC5E60D8D4EF227CDA256FF9ED4B05CC8"
DATA "E10EE0A5CB18EF8D11B60DC301D9400CE880DEC5A7216F5CB2"
DATA "58A98158606CCE149A69762EFA3EC2367375BF931CF7F2B5EB"
DATA "AF5E3FD7EB6F0BB2387F3A9FCEBF9D7FFAE5FB73FBF6E38F9F"
DATA "161159B08F3FFCBCE834D0EC0FF3999EFA2681AC77F54B717C"
DATA "1CF4C2DE268362626A4B26FE5F49A67C6792C348F34DB19BCF"
DATA "0821B7E9686C70454A6383AB6ABAC1440756EC9E48F94ECAC5"
DATA "57E6409D75E978DFC5F60BCE6568952D54791F640B1F3BC983"
DATA "F40E86ABE17CEEE5C77190DFC14010381DE6C5E1DEA237B39C"
DATA "89AF9395476F6E40C622CFAF58088656EF9A789234201E16C3"
DATA "9D26D06DC90714F475901E36D7FE8A38C4B650D047753C80AD"
DATA "C9BA9F6CA1B02F830EF1DDA478F89EA4E8144E118F9B57139E"
DATA "F01D246E6A472121678F6698987A93553A493EE984B387C549"
DATA "B00E09CEE6613AD77CC142740B057DB64237BC0DC3DD84F36D"
DATA "18962078D07278A2E0649C4B27CB0716C144267C274F2A6019"
DATA "28746E2C0496012584BE4F6108310D6D1889826479E8DCC79F"
DATA "5A2A11E60B2F7FE2D53291EF5EBA93D8F78AC15C126EECFE9B"
DATA "6B74B166F9343DC4A1AF4F236A233A7C0758A8D6A4B0E3764F"
DATA "06EA28B8733D30B9D40D9CFD467E3F20C27C016B86B329CAE5"
DATA "D30B9C3B075D7F90EBF5C61676BC6A20CBAF98780BC2BD8BD0"
DATA "700DAFCA289922A36177A03706BCE86F22CB0D1210850D4F11"
DATA "510F8B7BF9594845160AFA9EC933E87BF036C20FA01B04EAFA"
DATA "96031D205A73BC733385AC10BBC5801F8057B5C69380D68CDF"
DATA "22241F01B3248229B5D0FBB4B68A03AE58E8A51FF3F071C583"
DATA "C7D5940A73271E277AAC60A3438B815511139E3A26FD7FCF13"
DATA "8B9C86FEE1B9A7C8310D7DDE5A281AA22F259FAF0C76963F5B"
DATA "1DC242C7EE01F7B63585F4952DA193DFB2CC946C15DA0F03AA"
DATA "5CD6E74B8C3F440C28B44ED117471B06F6027F151950682E1B"
DATA "A1E965C38EDCC3A70E3BCE43DE58A86D8D473A80C016CFA285"
DATA "C27A4DD5B23B819356FF2D93A5CA204BFBBEE79A811F8D8E2A"
DATA "8C2C5FBD76BD25FA91F7D77FFFF80B3CEE92A2AA0B83FEF9F7"
DATA "EFFF384FBFDD9452E645DB14C7DDBA22A4FEB0D14FC06D5D7E"
DATA "5774EB777F97EA19785336EFD707224788852AF0A5DC3DED5F"
DATA "08A12452E097AC6B9D542B2254B10E7BF9805C37A7AA2084D9"
DATA "AFCBEFF74F9D8BC7E2F943B53E2E0052B60F74295F9D23EA8E"
DATA "3335CEDCF1784918C64FD4F888CFE53C6CCC4FD5F888BF92F3"
DATA "20FC4C8D77FC6D55AC8FAA665D4EC749D645EF5218B55D228B"
DATA "68BBB427DBCE67876ADF5C68B5DDFE8A5C8CBEBE1859F3FF07"
DATA "504B0304140000000800C69EC53C9365EE4CB6000000380100"
DATA "0016000000838C8380836A83588350815B83678EFC97A62E42"
DATA "4153758DB10AC2301445F740FEE13999A684F4451DBB192150"
DATA "D2D20452105C05BF42C92AAEFE815FE960935A2882CBBB0FEE"
DATA "E59C467B70355272687B3035826F615755152500D0E4D271B6"
DATA "E5A6C857602173AA294B2C28B17AF06028E97A633D28EE28A1"
DATA "A4F9012768822338AF3B10B83030553295152A23A55B50D324"
DATA "D48A332C31179326C06A1DEFF11A2F7188DDED18CF8FF7F335"
DATA "9BC36CB6F57FF138122139ADD8142725D337E6576D6752906A"
DATA "96A20C9468BBA7E403504B0304140000000800F299C53C5B74"
DATA "8C5EC8010000330400000D000000974C979D909489BB322E42"
DATA "41538D53DB6E9C30107D47E21F26B455EC04428854A9EAAE2B"
DATA "8D17EF6204B60B4EC253FAFF7F515FB86DA22AF503F29C99F1"
DATA "CC99C36863A556C07114F098263A9A3848DBF4C2CA13D4E224"
DATA "7BECFE34F2D2A449272CF43875E24574EC874BA8650F862C10"
DATA "8D111333324D6E6EE37DFC3D1023E935F0B4B38907BED3FB8A"
DATA "964FF1016453BC7056A5893C031E39D84628481300185FD100"
|
|