Судя по многочисленным последним постам, в секретной лаборатории HACKER выращивает супермегатрояна? Если да и ты хочешь сделать пересылку ехешника врагу, то не парься с BASE64, вполне подойдет банальный HEX, т.е.:

private function Str2Hex(s) as string

for i=1 to len(s)

a=hex(mid(s,i,1))

str2hex = str2hex & string(2-len,"0") & a

next

end function

и обратно

private function Hex2Str(s) as string

for i=1 to len(s)\2

a1=asc(mid(s,i*2-1,1))

a2=asc(mid(s,i*2,1))

a1n=iif(a1>=asc("A"),a1-asc("A")+10,a1-asc("0"))

a2n=iif(a2>=asc("A"),a2-asc("A")+10,a2-asc("0"))

hex2str=hex2str & chr(a1*16+a2)

next

end function

Если же я не прав и твои цели исключительно мирные, тогда рекомендую все-таки разобраться с примерами, сложнее чем есть обычно не пишут.

Ответить

Не лучше бы использовать массив типа Byte? Проще работать, сохранять и нет жестких ограничений длины (в string это имеет место, что для большинства экзешников недопустимо).

Ответить

А не наоборот? Размер string ограничен памятью, которую можно выделить, а Byte, если объявлен - размером массива. Если же не объявлен, надо геморроиться с ReDim... Хотя массив байт, конечно, логичнее, чем string

Ответить

А чего гемориться? Узнаешь размер файла и ReDim'ишь на него. Все просто. А со стрингами всегда была муть - в одной платформе одна максимальная длина, в другой - другая. Кроме того, и строки могут быть разные. Unicode использует два байта на символ, что уже напрягает. В общем, резона нет, если только ты этот файл на экран выводить не собираешься. Да и, честно говоря, VB не особо шустро работает со строками...

P.S. С массивом работать придется немного по другому. Т.е. открывать файл как Binary и использовать Put и Get вместо Print и Input.

Ответить

Да все прекрасно работает и со стринг и с байт... Лично я всегда открываю файл как бинари, и считываю в переменную типа стринг... большой разницы нет работать ли со строкой или байтовым массивом, только в первом случае намного удобнее передавать строку (ByRef) еще-ли массив байт, в процедуру...

Ответить

Да конечно, все работать будет. И кому как удобнее. Я, например, массив не передаю в функцию, а объявляю его на уровне контейнера. И, как я уже сказал, все-таки мне удобнее скажем, обратиться к 50-му байту файла как к 50-му элементу массива типа bData(50), чем как к символу строки Mid(sData,50,1), тем более это и в скорости выигрывает. Строки - довольно слабое место VB в плане скорости.

Ответить

За-то, никогда не будет ошибки Out of range... В общем это дело не столько технической стороны дела, сколько привычки и желаемого результата...

> Строки - довольно слабое место VB в плане скорости.
За-то строки - довольно сильное место VB в плане удобства )) Ну где вы еще видели чтобы в заранее не объявленной длинны строку можно было "засунуть" пару десятков, а может даже сотен, Мб?

Ответить

о, вроде чёт то помогли, надо будет похимичить.

P/S/ Вообщето троян пока (временно) отложен, т.к. занят другой прогой, но просто эта фишка будет нужна для многих случаев (да и для трояна тоже), вот и решил спросить.

Ответить

а кстати Sharp, а если я открою в binarry файл и буду читать Get, то точто считается кидать в Str2Hex и унто уже писать в файл? Назад получается аналогично, через binarry, PUT итп... так?

Ответить

Hacker, а зачем такие сложности !? Что-то преобразовывать, чтобы писать ??? Я тут в суть вопроса не вникал, но:

Dim nf As Integer, i As Long: nf = FreeFile
 
    Open lpFilename For Binary Access Read As nf
        sFileData = String$(LOF(nf), &H0)
        Get nf, 1, sFileData
    Close nf
 
    Open lpFilename For Binary Access Write As nf
        Put nf, , sFileData
    Close nf
 
В качестве аргументов в обоих случаях используется строка...

Ответить

>Ну где вы еще видели чтобы в заранее не объявленной длинны строку можно было "засунуть" пару десятков, а может даже сотен, Мб?

- В PB тоже можно.

Ответить

CyRax, я имел в виду, различные С, С++, Pascal, Delphi, и т.д. Basic в этом плане рулит И PB в том числе

Ответить

Ответить

Так возьми и каждый байт запиши как hex код (00-FF) никуда пересылать это не нужно, размер строки сущзественной роли не играет (если записать в VB, то можно в несколько строк), и алгоритм сохранения получается простым...

Ответить