перевод из .EXE в .TXT

[Kostyan]

Поменяй расширение с exe на txt.
Щелкаешь правой кнопкой мыши на файле, выбираешь "Переименовать", вместо exe пишешь txt. И наслаждайся какой ты крутой хакер!

[#HammeR#]

А может он имел в виду програмно?

FileCopy "C:\new.exe" , "C:\new.txt"

[ANDLL]

Извини, но на ТАКОЙ вопрос ответ не кто не даст. Ибо не ясно, что тебе нужно.
Дело в том, что текст в принципе не отличается от другой двоичной информации.

[GAGArin]

Человек хочет декомпиляцию и не находит. Вот и злится. Я его понимаю, сочувствую, но ничем помочь не могу.

[Kostyan]

Извините, но если речь идет о декомпиляции, то причем тут wav mp3 msi zip rar
А декомпилировать программу в исходный текст практически невозможно, только дезассемблирование.

[RayShade]

Афтар! Спасибо тебе! Ты меня просто вернул к жизни своим вопросом! Я уже отчаялся что либо предпринять для возвращения своего циничного чувства юмора к жизни, но тут ты явился и спас меня. За что тебе большое спасибо и две награды - за оформление топика и за ясность изложения мыслей.



ЗЫ. Подробнее бы хоть объяснил, зачем тебе ЕХЕ и ВАВ в текст переводить

Исходников ВБ все равно не получить, а тексты печен можно найти на www.lyricsdot.ru

[skiperski]

Ты сам-то понимаешь что тебе нужно? Уже все варианты тебе предложили. Форматы файлов, тех что на диске, в бинаром представлении ничем не отличаются. Разница только в их представлении различными программами. Например, договорились, что файлы с расширением exe будут исполняемыми, и, в соответствии с этим, обязаны иметь определённый формат. Но никто не мешает тебе открыть тот же файл в текстовом редакторе. Увидишь в нём кучу бекарасок и вкраплённый между ними текст констант. Всё что тебе для этого нужно - изменить расширение на txt.

[ANDLL]

Ох жуть...
Ну ладно ну тебя. Накрапал я тебе пример. Правда не пойму где такое может понадобится???

Вот:

Код: Выделить всё


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
Open FILE_TEXT For Output As #1
    Print #1, str
Close #1
MsgBox "Текст записан!" & vbCrLf & "Делаем все в обратном порядке"

str = ""
'==Читаем текст, пишем - двоичный...
Open FILE_TEXT For Input As 1
    Line Input #1, str
Close #1
TranslateStringToBytes str, btArray
Open FILE_BINARY & "(copy)" For Binary As #1
    Put #1, , btArray
Close #1
MsgBox "Готово!"
End Sub

'==TranslateBytesToString - функция возвращает строку, а обрабатывает байтовй массив
Public Function TranslateBytesToString(ByRef bt() As Byte) As String
Dim I As Long
Dim rt As String
rt = Space(UBound(bt) * 2 + 1)
For I = 0 To UBound(bt)
    Mid(rt, I * 2 + 1, 2) = IIf(bt(I) < &H10, "0", "") & Hex(bt(I))
Next
TranslateBytesToString = rt
End Function

'==TranslateStringToBytes - функция обрарбатывает строку, а результат помещает в массив bt
Public Sub TranslateStringToBytes(ByVal vl As String, ByRef bt() As Byte)
Dim I As Long
ReDim bt(Len(vl) \ 2 - 1)
For I = 0 To UBound(bt)
    bt(I) = CByte("&H" & Mid(vl, (I * 2) + 1, 2))
Next
End Sub



Функция TranslateBytesToString преобразует двоичные байты в Hex-строку.
Функция TranslateStringToBytes делает наоборот

Для использования создаешь StandardEXE - проект, удаляешь форму, добавляешь модуль и пишешь в него це.

За сим все

[Kostyan]

To ANDLL:
Ну ты даешь Оно тебе надо??? это похоже на перекладывание вещей с одного места на тоже самое
Не могу понять автора вопроса... разве ты ещё не понял что все файлы состоят из одного и того-же, пусть это exe, txt или wav! Просто текстовый файл содержит набор байт понятных для человека, exe для компьютера, wav для проигрывателя...
Например байт 1000001 в блокноте будет выглядеть как буква "A", в exe файле он же будет означать например операцию сложения а в звуковом файле частоту звука. Если всё это не укладывается в твоей голове - постарайся просто принять как неопровержимую истину. А переводить бинарный файл в текстовый всё-равно что перекрашивать забор из зеленого в зеленый!
Я кончил

[SeRRg]

Вы его не поняли. Он, наверное, так подумал, потому что
открыл в блокноте екзешник, сохранил и у него не запустилось.
Вот почему он и думает, что они разные.
P.S. я тоже раньше чуть ли не бесился, когда так получалось

[ANDLL]

Ну чтож, господа умные...

Если все так просто, то объясните почему код не работает???

Картинки и т.п. он пресует OK, а вот EXEшник переписывает неправильно.

В чем дело?

[Vovik]

Люди, вы меня извините, но можно ли как-нть перевести ActiveX Dll написанную на вб(знаем заранее) в код вб? или хотяб в тхт?

[RayShade]

Короче! Вопросы декомпиляции и смежных тем уже обсуждались сто раз на old.vbstreets.ru



Кому охота - дуйте туда и читайте. Для новичков в этом вопросе скажу - ТАКОЙ ВОЗМОЖНОСТИ НЕТ.

[Vi]

Мне кажется, что исходный вопрос связан с ресурсами, в которых и можно хранить всю запрошенную информацию.

[Sebas]

Может имеется ввиду сериализация в XML?