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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.12.2019, 10:25   #21
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Между 1-й и 2-ой строкой ещё пустая строка?
И так до 4-й строки?
Фактически нужна 12-я строка?

Если так, то вот код
Код:
'********************************** ' Парсинг  HEX' split.vbs '**********************************
   dim my_str, my_arr, index, list
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.OpenTextFile("C:\txt.txt", 1)
   On Error Resume Next

For i = 1 to 12
strn = f.ReadLine
Next
strn = Replace (strn, "(", "" )
strn = Trim (strn)
 
     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!"
Пути к файлам сам исправь!
kvitaliy вне форума
Старый 09.12.2019, 10:34   #22
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

пробую

Создает пустой текст

не пойму что не так делаю

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

А почему папки разные?
C:\Users\Admin\Do wnloads\
C:\Users\Admin\ Downloads\

Разное кол-во пробелов и в разных местах \Do wnloads\ и \ Downloads\
kvitaliy вне форума
Старый 09.12.2019, 10:51   #24
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

Цитата:
Сообщение от kvitaliy Посмотреть сообщение
А почему папки разные?
C:\Users\Admin\Do wnloads\
C:\Users\Admin\ Downloads\

Разное кол-во пробелов и в разных местах \Do wnloads\ и \ Downloads\


это опечатка!

Исправил, но все равно пустая папка создается

kvitaliy, вот полный исходник выкладываю
Вложения
Тип файла: rar txt.rar (2.6 Кб, 3 просмотров)
adninistraotr вне форума
Старый 09.12.2019, 12:59   #25
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Цитата:
Сообщение от kvitaliy Посмотреть сообщение
Разное кол-во пробелов
Пробелы движок форума вбивает. Когда без тэгов слишком длинное "слово"
Black Fregat вне форума
Старый 09.12.2019, 14:02   #26
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от adninistraotr Посмотреть сообщение
вот полный исходник выкладываю
Ну наконец то!, А то так бы и гадал на кофейной гуще.
Оказывается исходный текст в Юникоде. Его надо преобразовать в ASCII, а потом уже декодировать.
В общем итоговый файл такой:
Код:
'********************************** ' Парсинг  HEX' split.vbs '**********************************

Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset = "Unicode"
ADODBStream.Open()
ADODBStream.LoadFromFile("C:\txt.txt") ' Тут исходный текст в Юникоде
Text = ADODBStream.ReadText()
ADODBStream.Close()
ADODBStream.Charset = "windows-1251"
ADODBStream.Open()
ADODBStream.WriteText(Text)
ADODBStream.SaveToFile "C:\txt.txt", 2 ' тут преобразованный в  ASCII
ADODBStream.Close()
   
   
   dim my_str, my_arr, index, list
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.OpenTextFile("C:\txt.txt", 1)
   On Error Resume Next

For i = 1 to 12
strn = f.ReadLine
Next
strn = Replace (strn, "(", "" )
strn = Trim (strn)
 
     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!"
Не забываем менять пути к файлам. Уже 4 раза!!!
kvitaliy вне форума
Старый 09.12.2019, 14:04   #27
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

ок, пробую

kvitaliy, все получилось!!! Огромное спасибо!!!
Низкий Вам поклон за это!!!

kvitaliy, я тут накидал некий код, чтобы отправить рсшифрованный вами txt на почту и вот что получилось.

Option Explicit

Сам скрипт работает хорошо, но вот только не знаю как бы лучше всего написать чтобы расшифрованный вариант отправлялся не как txt а как письмо с текстом.
Как бы такое организовать?!

Иначе говоря, код выполняет следующие действия:
1. отправляет ip с какой машины было выполнино отправка.
2. прикрепляет сам txt файл с расшифрованным кодом.
Вопрос заключается в следующем, как можно все это упростить до минимума, чтобы расшифрованный txt отправился как письмо а не как вложение
adninistraotr вне форума
Старый 09.12.2019, 14:42   #28
kvitaliy
Участник клуба
 
Регистрация: 17.05.2011
Сообщений: 1,660
По умолчанию

Цитата:
Сообщение от adninistraotr Посмотреть сообщение
как письмо с текстом.
Нужно не приаттачивать файл с текстом, а посылать текст в теле письма.
Там где у тебя
.TextBody = "External IP: " & strContent
Вот в этой переменной strContent надо присвоить значение нашей переменной list. Это если объединить оба кода.

Или заново прочитать в неё файл C:\Users\Admin\Downloads\1.txt
как было в коде f.ReadLine, только там 1 стока, а не 12.

В общем всё у тебя есть для осуществления этой идеи!
А мне уже лень
kvitaliy вне форума
Старый 09.12.2019, 14:47   #29
adninistraotr
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 63
По умолчанию

kvitaliy, да в целом все есть для полной картины, но я ничерта не понял как это делать, если не сложно пожалуйста можешь внести в самом коде поправки и протестировать. у мения ничерта не выходит!плизззззз

я буду ждать!!!
adninistraotr вне форума
Старый 09.12.2019, 19:39   #30
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Конечно, не мое это дело, но посылать кому-то куда-то содержание реестра другого компа - это что-то в духе кей-джи-би или Павлика Морозова. Или нет?
"Стук-стук, я - твой друг"
digitalis вне форума
Закрытая тема


Купить рекламу на форуме - 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