Конференция VBStreets

**corgi** » 29.01.2004 (Чт) 0:39

а может скажешь где и что не работает :?:

**SSecurity** » 29.01.2004 (Чт) 0:44

Код: Выделить всё: Const FILE_BINARY = "Какой-то двоичный файл(уже есть)" Const FILE_TEXT = "Какой-то текстовый файл(куда будем писать)" Option Explicit Sub main() Dim btArray() As Byte, str As String MsgBox "Начинаем писать текст" '==Читаем двоичный, пишем - текст... Open FILE_BINARY For Binary As #1 ReDim btArray(LOF(1) - 1) Get #1, , btArray str = TranslateBytesToString(btArray) Close #1

Код: Выделить всё: Get #1, [b]???[/b] , btArray

или мне кажется или ты не указываешь какой байт щас читаешь?

**SSecurity** » 29.01.2004 (Чт) 0:50

Лучше скажи что у тебя вообще работает ...
при таком коде ... у меня бы глюкнулося сразу

ты скажи чего надо сделать.
прости, там массив, не усмотрел:)

предлагаю реализовать прое а последовательность писать в стринг:)
всё что надо у тя будет да и легко обработать

**Kostyan** » 29.01.2004 (Чт) 1:55

Смотрю на этот код :shock:

и думаю... гед-тож я его видел, и действительно, это тот самый великий программист, который недели 3 назад ( http://bbs.vbstreets.ru/viewtopic.php?t=5043 ) искал способ переводить exe-файлы в txt. И этот код ему подкинули как отмазку. Всё не можешь успокоиться? :lol:

txt и exe - это ОДНО И ТОЖЕ ПО СОДЕРЖАНИЮ!!! Вместо того чтобы париться просто попробуй, переименуй exe в txt и открой в блокноте, сам увидишь что это такой-же текст.

**SSecurity** » 29.01.2004 (Чт) 2:05

Дааа .... так например

Код: Выделить всё: Open "1.bin" for Binary as 1 Put #1,1,0 Close Open "2.bin" for OutPut as 1 Print #1, chr(0) Close

вот это прикольно .... в одном из случаев он добавляет символ окончания файла. поетому размер получается 2 и 3 байта соответственно.

**v-adix** » 29.01.2004 (Чт) 8:12

как перевести из exe в txt:

Код: Выделить всё: Dim fname As String Name fname As Left(fname, Len(fname) - 3) & "txt"

Как перевести из txt в exe:

Код: Выделить всё: Dim fname As String Name fname As Left(fname, Len(fname) - 3) & "exe"

в переменной fname должно быть имя файла, который ты переводишь в txt или exe

**SSecurity** » 29.01.2004 (Чт) 9:34

ага .... это самый эффективный способ

**alibek** » 29.01.2004 (Чт) 15:39

SSecurity писал(а):Дааа .... так например
Код: Выделить всё
Open "1.bin" for Binary as 1 Put #1,1,0 Close Open "2.bin" for OutPut as 1 Print #1, chr(0) Close

вот это прикольно .... в одном из случаев он добавляет символ окончания файла. поетому размер получается 2 и 3 байта соответственно.

Добавляется символ перехода строки (<Cr>+<Lf>). Если писать Print #1, Chr$(0); то ничего добавляться не будет.

**Kostyan** » 30.01.2004 (Пт) 1:09

Объясни

**SSecurity** » 30.01.2004 (Пт) 1:26

alibek писал(а):
SSecurity писал(а):Дааа .... так например
Код: Выделить всё
Open "1.bin" for Binary as 1 Put #1,1,0 Close Open "2.bin" for OutPut as 1 Print #1, chr(0) Close

вот это прикольно .... в одном из случаев он добавляет символ окончания файла. поетому размер получается 2 и 3 байта соответственно.

Добавляется символ перехода строки (<Cr>+<Lf>). Если писать Print #1, Chr$(0); то ничего добавляться не будет.

В первом случае формируется бинарная последовательность
в HEXе выглядит так:
для 1.bin: 00 00
для 2.bin: 00 0D 0A (что есть chr(0)+chr(13)+chr(10) или chr(0)+CrLf)

тем более, для сохранения в ТХТ - енто не принципиально, а вот в БИНЕ - лишний байт - совсем не нужен.

**ShadowCaster** » 02.02.2004 (Пн) 0:08

Такая защита от взлома не долго простоит перед S-Ice'ом ... :roll:

**Kostyan** » 02.02.2004 (Пн) 1:16

Ну ты блин даешь! Тебе нужно было просто запихнуть одну программу в другую??? Тогда при чем тут перевод в ТЕКСТ??? Блин, может я совсем тупой, но до меня никак не доходит ход твоих мыслей. Чтобы одну программу запихнуть в другую нужно открыть программу-контейнер For Random и добавить в конец программу-паразит. Добавляется она как блок байтов (точно так же добавляется и текст, wav, и что угодно). НО ЗАЧЕМ перед этим "переводить программу в текст" :?:

Никак не пойму, это ведь абсолютно тоже самое.

**corgi** » 02.02.2004 (Пн) 12:41

ну да так я и позволю неизвестному процессу висеть, он быстро у меня умрет :twisted:

ну а потом и твоя прога :cry:

**xolod** » 02.02.2004 (Пн) 21:13

To Synс:
Да ты большой оригинал, я смотрю. Ты хоть примерно понимаешь, что зочешь сделать? Какой антивирус, какой перевод программы в текст???
Программа, это и так текст. Ты в hex-редакторе открой текст и программу.. Так вот, разницы нет.

IMHO, ты не знаешь - чего хочешь

**hCORe** » 03.02.2004 (Вт) 14:55

Может я задаю глупый вопрос, но какая прога требует ТАКОЙ :shock:

защиты

**Kostyan** » 03.02.2004 (Вт) 15:20

2 Sync:
Не, ну ты мне объясни, затупку... Вот я читаю из "prog.exe" байт 11100000 в переменную, затем каким-то неземным алгоритмом перевожу его в "текст", и как он теперь выглядит? Нарисуй пожалуйста, шобы я врубился :idea:

Был 11100000 стал ....... , чем он стал, буквой какой-то? так он ей и был.
Смотри, в бинарном виде это выглядит как 11100000, в десятичном 224, в шестнадцатиричном E0, в текстовом "а". Это всё одно и тоже, одно и тоже. Ты не понимаешь что делаешь, читай книжки.

**FaKk2** » 27.03.2004 (Сб) 22:03

Kostyan писал(а):Был 11100000 стал ....... , чем он стал,

Если смотреть с точки зрения того как я понял чего хочет автор, так это превращения кода в текст :lol:

Т.е.: было в бинарике 11100000 а в тексте стало... 11100000 :!:

А вот если посмотреть на результат в хексе то увидим 3131313030303030 , т.е. представление бинарика переехало в текст:)
Тока я все же не пониямаю как потом афтар хочет ЭТО запустить... :shock:

**FaKk2** » 27.03.2004 (Сб) 23:01

Ну пример все таки приведи

**Kostyan** » 28.03.2004 (Вс) 4:53

Sync писал(а):я беру прогу перекидываю ее в текст...

Я тебя прошу, объясни мне смысл этой фразы, а про байду о запихивании информации в экзешник - это ты чайникам втирай.
ЛЮДИ!!! Помогите! Кто-нибудь может мне человеческим языком объяснить что значит "перевести программу в текст" :idea:

Видимо Sync открыл что-то доселе неизвестное человеческому разуму, вот я и не понимаю что же он имеет ввиду... :cry:

**GSerg** » 28.03.2004 (Вс) 6:39

Не переживайте... Я тоже ни черта не понимаю...

Конференция VBStreets

Почему код неработает ???

Кто сейчас на конференции