Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Программная инженерия > Безопасность, Шифрование
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.12.2019, 22:43   #11
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

пробую

kvitaliy, смотрите в text такой 16-ричный код :31,32,36,2d,39,37,31,2d,33,37,38,
но все равно выбивает ошибку попробуйте!

вот сам код:
dim my_str, my_arr, index, list
Set FSO = CreateObject("Scripting.FileSystemO bject")
Set f = FSO.OpenTextFile("C:\Users\Админ\Do wnloads\txt", 1) ( В TXT СОДЕРЖИТ ТАКОЙ КОД : 31,32,36,2d,39,37,31,2d,33,37,38, НО ВСЕ РАВНО ВЫДАЕТ ОШИБКУ. В ПЕРВОМ ВАРИАНТЕ ОН СРАЗУ ОТОБРАЖАЛ ПРАВИЛЬНО, НО НЕ СОХРАНЯЛ РЕЗУЛЬТАТ В TXT !

Do While Not f.AtEndOfStream
my_arr = split( f.ReadLine, ",")
for each index in my_arr
strn = "&H" & index
list = list & CHR ( strn )
next
list = list & vbCrLf


Loop
f.Close

Set f1 = fso.CreateTextFile("C:\Users\Админ\ Desktop\txt1", True)
f1.Write (list)
f1.Close

MsgBox "Ok!"
On Error Resume Next

в чем загвоздка?

сам этот код : On Error Resume Next
проигнорировал ошибку и создал txt файл но она пустая.
без информации!!
adninistraotr вне форума
Старый 08.12.2019, 23:27   #12
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Значит неверный путь к исходному фалу.
"C:\Users\Админ\Do wnloads\txt
Почему пробел в Do wnloads? У меня нет такой папки, с пробелом, только Downloads.

Попробуй записать покороче, на диск С
"C:\text.txt" например

Код проверен, точно работает
kvitaliy вне форума
Старый 08.12.2019, 23:32   #13
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

kvitaliy, а как расшифровать из множество 16-ричного кода только определенный кусок кода?? скажем которая состоит из 9 цифр?

К примеру в текстовом файле 16-ричный код но все расшифровать не нужно а именно вот такой код: 31,32,36,2d,39,37,31,2d,33,37,38, а лишний пропускать!!!

kvitaliy, сделал как ты и сказал все заработало, НО мне весь код расшифровывать не нужно, а лишь определенный код которые состоит из 9 цифр
пример:31,32,36,2d,39,37,31,2d,33,3 7,38,

то-есть в txt много разных 16-ричных кодов.....
оттуда нужно выбрать для расшифровки только определенный кусок кода который состоит только из 9 цифр.
adninistraotr вне форума
Старый 09.12.2019, 07:52   #14
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Без примера реального файла как я скажу?
Если этот код всегда в одном и том же месте, то можно.
kvitaliy вне форума
Старый 09.12.2019, 08:42   #15
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

kvitaliy, да всегда в одном и том же месте появляется.
adninistraotr вне форума
Старый 09.12.2019, 08:45   #16
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от adninistraotr Посмотреть сообщение
всегда в одном и том же месте
ну так поведайте мне это секретное место!
В какой строке и сколько символов от начала строки.
kvitaliy вне форума
Старый 09.12.2019, 08:46   #17
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

на девятой строчке появляется всегда таково рода кода: 35,32,36,2d,32,38,37,2d,38,31,39,
Но код всегда разный
пример:
35,32,36,2d,32,38,37,2d,38,31,39,
55,72,36,2d,37,38,37,2d,37,31,38,
75,55,35,2d,32,38,38,2d,38,31,29,

сам текст выглядит так:
---------------------------------------------------------

-------------------------------------------------------

----------------------------------------------------------

----------------------------------------------------------

----------------------------------------------------------

65,6e,63,6f,64,69,6e,67,3d,22,55,54 ,46,2d,38,22,3f,3e,0d,0a,3c,72,6d,7 3,5f,\
69,6e,74,65,72,6e,65,74,5f,69,64,5f ,73,65,74,74,69,6e,67,73,20,76,65,7 2,73,\
69,6f,6e,3d,22,36,33,30,30,36,22,3e ,3c,69,6e,74,65,72,6e,65,74,5f,69,6 4,3e,\
(35,32,36,2d,32,38,37,2d,38,31,39,) сам код 9 строчка а дальше бла бла бла 3c,2f,69,6e,74,65,72,6e,65,74,5f,69 ,64,3e,\

kvitaliy, могу весь код скинуть сюда?
adninistraotr вне форума
Старый 09.12.2019, 10:00   #18
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от adninistraotr Посмотреть сообщение
на девятой строчке появляется всегда таково рода кода
Ну вот смотри, так мы читаем только 9-ю линию
Код:
'********************************** ' Парсинг  HEX' split.vbs '**********************************
   dim my_str, my_arr, index, list
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.OpenTextFile("C:\txt.txt", 1)
 
For i = 1 to 9        
strn = f.ReadLine
Next
     my_arr = split( strn, ",") 
    for each index in my_arr 
          strn = "&H" & index
         list = list & CHR( strn)  
    next 

f.Close
  
Set f1 = fso.CreateTextFile("C:\txt1", True)
f1.Write (list)
f1.Close

   MsgBox "Ok!"
Пути к файлам сам исправь!
Если есть пустые строки в файле в первых 9, то ОНИ тоже считаются!
Надо будет увеличить счетчик с 9 на кол-во пустых строк вот тут
For i = 1 to 9
kvitaliy вне форума
Старый 09.12.2019, 10:05   #19
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Но лучше запакуй реальный файл в архив и выложи тут.
Тогда сделаю точно, а так непонятно.
kvitaliy вне форума
Старый 09.12.2019, 10:11   #20
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

все ок

Последний раз редактировалось adninistraotr; 10.12.2019 в 10:05.
adninistraotr вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите выполнить задание с расшифровкой результатов Skill12 Помощь студентам 0 28.04.2019 19:56
Помогите с расшифровкой belkakrohka Безопасность, Шифрование 1 23.11.2016 22:22
мой сайт взломали и в коды скриптов добавили вот этот скрипт. Что за скрипт? nsbox JavaScript, Ajax 9 21.01.2010 18:19
Помогите с расшифровкой nec117 Общие вопросы C/C++ 1 05.12.2009 00:20
Помогите с расшифровкой. nec117 Безопасность, Шифрование 0 04.12.2009 23:58