СКРИПТ ДЛЯ РАСШИФРОВКОЙ

[adninistraotr]

Здравствуйте уважаемые программисты, нужна ваша помощь.
Т.к. я в этом не силен... Как можно с помощью скрипта не важно на каком языке будет работать, но желательно на vbs или на delphi в общем не суть.
Как можно расшифровать шестнадцетиричный код и сохранить ее в определенную папку.Чтобы ручками каждый раз не проделывать это хочу сделать автоматизацию.Что можете посоветовать очень нужно?!

[digitalis]

Не бывает шестнадцатиричного кода. Бывает представление бинарной информации в 16-ричном виде: например, байт из 8 единиц представляется как FF. Что представляет собой этот байт - число, 1 пиксель рисунка, 1 отсчет звукового колебания или машинный код - хз? Преобразовать в бинарный вид - проще простого, но что потом с ним делать? С текстом понятно, его можно в текстовый файл, а если звук? изображение? видео? Оно должно поступать на вход обрабатывающей программы в том виде, который предусмотрен форматом файла.
Расскажите, как это делаете "ручками" - пример в студию.

[adninistraotr]

digitalis, скажи пожалуйста как можно автоматизировать сам этот процесс на пример:
есть некая бинарная информация в 16-ричном виде. нужно ее расшифровать и сохранить на рабочем столе : C:\Users\Админ\Desktop

привожу пример:
допустим есть некое бинарное число: 3c,3f,78,6d,6c,20,76,65,72,
в текстовом документе. Нужно ее расшифровать в читабельном виде.
ну, скажем через этот сайт: https://www.rapidtables.com/convert/...-to-ascii.html Аналогов много не суть.
Чтобы каждый раз не проделывать эту рутинную работу хочу автоматизировать это действие.

Это не звук, не изображение это просто текстовый документ

Проще говоря ситуация такая:
Вот сам путь :
[HKEY_CURRENT_USER\System\Majid\0]
"GUID"=hex:60,de,2a,56,51,b2,e0,11, 80,01,44,45,53,54,00,00
А это сам код в 16-ричном виде. (60,de,2a,56,51,b2,e0,11,80,01,44,4 5,53,54,00,)
нужно ее расшифровать в txt и сохранить на рабочем столе: C:\Users\Админ\Desktop

[Black Fregat]

Вы путаетесь. Первый набор - действительно текст. Можно на любом языке перевести. На питоне, например:

>>> print(bytearray(map(lambda x: int(x, 16), input().split(','))).decode('windows-1251'))
3c,3f,78,6d,6c,20,76,65,72
<?xml ver

А вот GUID - это не текст. И что Вы тут хотите - непонятно

[adninistraotr]

Black Fregat, вообщем мне нужно сам этот бинарный 16-ричный файл а именно : 60,de,2a,56,51,b2,e0,11,80,01,44,4 5,53,54,00, расшифровать в txt и сохранить ее же на рабочий стол. Как это можно сделать?

Я конечно извиняюсь, может я что-то не так объясняю прост в этом не разбираюсь.
Но суть думаю ясна, мне нужно чтобы 16-ричный бинарный документ который содержит такого рода содержания: 60,de,2a,56,51,b2,e0,11,80,01,44,4 5,53,54, расшифровать в txt. желательно на vbs.
И сохранить по этому пути: C:\Users\Админ\Desktop

Распишу по подробнее всю картину дела.
Есть 16-ричный бинарный файл расположенный скажем по адресу : C:\Users\Админ\Download\txt который содержит 16-ричный бинарные значения вроде этой: 60,de,2a,56,51,b2,e0,11,80,01,44,4 5,53,54,
Необходимо ее расшифровать в txt. Я могу это сделать но только ручками переходя на этот сайт: rapidtables.com/convert/number/hex-to-ascii.html
Но мне требуется автоатизировать данный процесс, чтобы не замарачиваться.
И сохранить после расшифровки вот по этому пути: C:\Users\Админ\Desktop
И ВСЕ!!!

Black Fregat, можете привести пример на VBS??

ПОМОГИТЕ МНЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ!!!

НАДЕЮСЬ НА ВАС!!!

[kvitaliy]

Сообщение от adninistraotr

пример на VBS?

Вот вам VBS

'********************************** ' Парсинг  HEX' split.vbs '**********************************
   dim my_str, my_arr, index, list
   ' Ваша строка в HEX
    my_str = "3C,3F,78,6d,6c,20,76,65,72" 
    
    my_arr = split(my_str, ",")  
     for each index in my_arr 
     strn = "&H" & index
          list = list & CHR( strn)  
     next 
     
    MsgBox list,  0, "Ваша строка в ASCII"

[adninistraotr]

kvitaliy, спасибо,сейчас попробую и отпишусь

kvitaliy, не работает!!!

kvitaliy, мне нужно чтобы она создавала txt на рабочем столе с расшифрованным кодом.

А она просто отображает расшифрованный вариант в окошке!
что не так скажите пожалуйста

kvitaliy, ситуация такая, по этому пути : C:\Users\Админ\Downloads\txt
находится сам txt в 16-ричном бинарном виде.
Нужно создать в vbs что-то вроде скрипта который расшифрует этот самый txt 16-ричный файл в новом txt в этом же разделе.

[kvitaliy]

Сообщение от adninistraotr

А она просто отображает расшифрованный вариант в окошке!
что не так скажите пожалуйста

Там всё так. Код делает то, что должен.
Я могу конечно и полный скрипт написать. Прям за спасибо.

'********************************** ' Парсинг  HEX' split.vbs '**********************************
   dim my_str, my_arr, index, list
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.OpenTextFile("C:\Users\Админ\Downloads\txt", 1)
   
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!"

Файл с именем C:\Users\Админ\Downloads\txt обрабатывается этим кодом,
переводится в ASCII, и записывается в новый файл на рабочий стол
C:\Users\Админ\Desktop\txt1

Надеюсь пути к файлам Админ в состоянии сам отредактировать?

[adninistraotr]

Сейчас попробую,kvitaliy и отпишусь

Заменил пути на свои выбивает ошибку: строка 9 символ 11 ошибка несоответствие типа: strn код 800А000D
Вот сам код:

dim my_str, my_arr, index, list
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.OpenTextFile("C:\Users\Админ\Downloads\txt", 1)
   
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!"

что не так делаю?

[kvitaliy]

Сообщение от adninistraotr

ошибка несоответствие типа

Ошибка потому, что у вас в тексте не 16- ричный код.
В примере "3C,3F,78,6d,6c,20,76,65,72" все символы между запятыми 16-ричные, пробелов нет.
В реальном тексте видимо всё по другому. Как - знаете только вы.
Видел бы я реальный ваш файл, возможно можно решить проблему.
Пока можете просто в начале кода написать эту строку
On Error Resume Next
Она поможет игнорировать ошибки.