Не получается считать из файла зашифрованную строку

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Ответить
AntonGV
Бывалый
Бывалый
 
Сообщения: 234
Зарегистрирован: 24.05.2006 (Ср) 12:10
Откуда: г. Пермь

Не получается считать из файла зашифрованную строку

Сообщение AntonGV » 02.08.2006 (Ср) 17:10

У меня имеется текстовый файл вот такого содержания:
·ЊyгЖLљ3](ЂfОњ2jАђЎРH9sиLЎFќnЮ


Я пытаюсь его расшифровать вот так:

Код: Выделить всё
Dim txt, CompString As String, mFile As Integer
mFile = FreeFile

Open App.Path + "\res.pws" For Input As mFile
  txt = Input(LOF(mFile), mFile)
  CompString = Deсode(txt)
Close mFile

Open TempPath + "TempPWS.pws" For Output As mFile
  Print #mFile, CompString
Close mFile

... но VB выдает ошибку 62 'Вход прошлого конца файла' и выделяется строка
Код: Выделить всё
txt = Input(LOF(mFile), mFile)

Может, он так реагирует на неправильные символы? Как этого избежать?
Вернуться к началу
NashRus
Постоялец
Постоялец
 
Сообщения: 388
Зарегистрирован: 18.03.2006 (Сб) 1:16

Сообщение NashRus » 02.08.2006 (Ср) 17:28

читать файл как бинарный
Вернуться к началу
RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 02.08.2006 (Ср) 17:29

Элементарно, Ватсон!

Строка содержит символ конца файла (Chr(26)).

Ну и соответственно, как текстовик читать его никак нельзя.

Читай как бинарник :)
Вернуться к началу
AntonGV
Бывалый
Бывалый
 
Сообщения: 234
Зарегистрирован: 24.05.2006 (Ср) 12:10
Откуда: г. Пермь

Сообщение AntonGV » 02.08.2006 (Ср) 17:31

Можно поподробнее, а то я с бинарниками работать не умею
Последний раз редактировалось AntonGV 02.08.2006 (Ср) 21:03, всего редактировалось 1 раз.
Вернуться к началу
tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 02.08.2006 (Ср) 20:13

Просто замени For Input на For Binary.
И ещё замени идиотские "переведённые" сообщения об ошибках на нормальные :-)
Изображение
Вернуться к началу
AntonGV
Бывалый
Бывалый
 
Сообщения: 234
Зарегистрирован: 24.05.2006 (Ср) 12:10
Откуда: г. Пермь

Сообщение AntonGV » 02.08.2006 (Ср) 21:03

С файлом я разобрался. А как перевести сообщения об ошибках обратно на английский я не знаю :D
Вернуться к началу
GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 02.08.2006 (Ср) 21:09

Поставить, к примеру SP6. Он всё починит.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Вернуться к началу
Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 02.08.2006 (Ср) 21:20

Открыть редактором ресурсов MSVBVM60.DLL. Поменять там все StringTable строки. Но это спасёт только от exeшников. Для IDE- придётся ещё и поковырять, хм... помойму vb6ide.dll

А ещё я могу дать msvbvm60.dll русский, но собственноручно переведённый, и естественно там перевод нормальный.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
Вернуться к началу
Matew
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 894
Зарегистрирован: 28.06.2004 (Пн) 17:44
Откуда: Дальний Восток, г. Ха

Сообщение Matew » 03.08.2006 (Чт) 8:52

Хакер, выложи куда-нибудь msvbvm60.dll русский, пожалуйста.
Алкоголь и сканеры-ваши враги! Не верите-смотрите аватару :-)
Вернуться к началу
Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 03.08.2006 (Чт) 13:58

Угу, выложу... может быть в кирпичи?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
Вернуться к началу
GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 03.08.2006 (Чт) 19:46

В личку лучше.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Вернуться к началу
AntonGV
Бывалый
Бывалый
 
Сообщения: 234
Зарегистрирован: 24.05.2006 (Ср) 12:10
Откуда: г. Пермь

Сообщение AntonGV » 03.08.2006 (Чт) 21:13

тогда каждому в личку
Вернуться к началу
keks-n
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2509
Зарегистрирован: 19.09.2005 (Пн) 17:17
Откуда: г. Москва

Сообщение keks-n » 03.08.2006 (Чт) 23:28

Главное, чтобы этот msvbvm60.dll был ещё и с последним сервис паком... Иначе, из-за русификации вылезут уже пофиксенные мелкомягкими баги.
Изображение
Вернуться к началу
Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 03.08.2006 (Чт) 23:42

тогда уж извиняйте. у меня диск 98 года... оттуда и msvbvm. хотя может я хрюшечный правил, там случаем не пофиксенный?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
Вернуться к началу
tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 04.08.2006 (Пт) 7:13

Если из WinXP SP2, тогда скорее всего пофиксенный.
В моей версии (VB6 SP6) стоит номер "6.0.97.82" и камент "February 23, 2004". Можешь сверить со своим.
Изображение
Вернуться к началу
Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 04.08.2006 (Пт) 9:13

Мне тут keks-n на сбросил последнюю версию. На досуге (т.е. на выходных) переброшу стрингтэйблы
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
Вернуться к началу
tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 04.08.2006 (Пт) 9:45

...если они не поменялись ;-)
Изображение
Вернуться к началу
keks-n
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2509
Зарегистрирован: 19.09.2005 (Пн) 17:17
Откуда: г. Москва

Сообщение keks-n » 04.08.2006 (Пт) 15:06

Хакер, там видимо не последняя(хотя и 6 SP)... Последняя тут: http://www.microsoft.com/downloads/details.aspx?FamilyID=7B9BA261-7A9C-43E7-9117-F673077FFB3C&displaylang=en... Только что скачал рантаймы, там "February 23, 2004", так что у Тёмыча свежая.
Изображение
Вернуться к началу
AntonGV
Бывалый
Бывалый
 
Сообщения: 234
Зарегистрирован: 24.05.2006 (Ср) 12:10
Откуда: г. Пермь

Сообщение AntonGV » 07.08.2006 (Пн) 14:01

Кто-нибудь знает что в экзешнике Бэйсика (vb6.exe) делает эта midi?
Вложения
VB.rar
(9.7 Кб) Скачиваний: 26
Вернуться к началу
Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Сообщение Antonariy » 07.08.2006 (Пн) 14:10

Знает :D
http://bbs.vbstreets.ru/viewtopic.php?t=26572
Лучший способ понять что-то самому — объяснить это другому.
Вернуться к началу
Ответить

Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: AhrefsBot и гости: 82

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Time : 0.198s | 17 Queries | GZIP : On
   TopList