VPF::Hex в текст - Форум программистов

Akella

Дата 26.1.2006, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

как это преобразовать в текст?
этот экспортированные данные из реестра, двоичный параметр.
сздесь записаны адреса эл. почты спамеров

Цитата

hex:62,77,64,74,62,40,61,76,61,6c,6f,6e,70,65,6e,73,2e,63,6f,6d,00,77,\
68,65,61,74,40,66,72,69,65,64,2e,63,6f,6d,00,61,75,64,69,74,6f,72,79,40,6d,\
79,72,65,61,6c,62,6f,78,2e,63,6f,6d,00,62,61,69,6e,69,74,65,40,76,6f,69,6c,\
61,2e,66,72,00,61,62,75,74,74,65,64,40,65,6d,61,69,6c,2e,69,73,00,61,63,63,\
69,64,65,6e,74,40,63,61,6c,6c,65,72,2e,63,6f,6d,00,62,61,6e,64,77,69,64,74,\
68,40,65,69,6e,73,75,6e,64,65,69,6e,73,2e,64,65,00,61,75,74,6f,73,75,67,67,\
65,73,74,69,62,6c,65,40,61,74,74,6f,72,6e,65,79,2e,63,6f,6d,00,62,40,62,72,\
61,69,6e,70,6f,64,2e,63,6f,6d,00,61,79,65,40,6d,65,64,73,63,61,70,65,2e,63,\
6f,6d,00,61,6e,67,65,6c,65,73,40,68,61,6e,69,6d,61,69,6c,2e,63,6f,6d,00,61,\
63,74,73,40,64,6f,67,6d,61,69,6c,2e,6f,72,67,00,61,6c,64,65,68,79,64,65,40,\
6c,65,67,69,73,6c,61,74,6f,72,2e,63,6f,6d,00,61,69,6c,40,6d,61,74,6d,61,69,\
6c,2e,63,6f,6d,00,62,61,63,6b,6c,61,73,68,40,6d,77,65,62,2e,63,6f,6d,2e,63,\
6e,00,61,63,71,75,69,65,73,63,65,6e,74,40,68,65,65,73,75,6e,2e,6e,65,74,00,\
61,6c,65,63,40,65,61,72,74,68,39,2e,63,6f,6d,00,61,70,6f,6c,6f,67,69,61,40,\
67,72,75,6e,67,65,63,61,66,65,2e,63,6f,6d,00,61,6e,64,69,72,6f,6e,40,64,63,\
65,6d,61,69,6c,2e,63,6f,6d,00,61,6c,62,40,61,72,68,61,74,00,62,61,63,6b,73,\
63,61,74,74,65,72,40,74,65,72,72,61,2e,63,6f,6d,2e,70,65,00,61,6c,6c,65,6e,\
40,6d,65,67,61,6d,61,69,6c,2e,70,74,00,61,75,67,65,61,6e,40,65,74,61,6e,67,\
2e,63,6f,6d,00,61,6c,74,68,65,61,40,77,6f,72,6c,64,70,6f,73,74,2e,63,6f,6d,\
00,44,49,53,54,52,49,42,55,54,49,4f,4e,40,75,61,2e,66,6d,00,61,6d,61,74,65,\
75,72,40,65,78,63,69,74,65,2e,65,73,00,61,63,6d,40,6d,33,78,69,63,6f,2e,63,\
6f,6d,00,62,61,6e,69,73,74,65,72,40,61,62,79,73,73,00,61,62,62,65,79,40,61,\
64,00,61,76,65,6e,75,65,40,61,6c,6c,79,00,4d,6f,74,69,76,61,63,69,61,40,72,\
61,6d,62,6c,65,72,2e,72,75,00,70,65,72,73,6f,6e,61,6c,61,40,70,69,73,65,6d,\
2e,6e,65,74,00,61,6e,64,72,65,61,40,61,75,64,69,6f,76,69,73,75,61,6c,00,61,\
64,6f,72,6e,40,68,65,72,73,70,61,63,65,2e,63,6f,6d,00,61,67,67,72,65,67,61,\
74,65,40,70,61,72,69,73,2e,63,6f,6d,00,61,63,75,69,74,79,40,69,76,69,6c,6c,\
61,67,65,2e,63,6f,6d,00,61,62,6f,72,69,67,69,6e,65,40,77,62,64,65,74,2e,63,\
6f,6d,00,61,74,68,65,69,73,6d,40,72,65,78,69,61,6e,2e,63,6f,6d,00,61,64,61,\
70,74,69,76,65,40,6f,72,67,61,6e,69,7a,65,72,2e,6e,65,74,00,62,61,6d,61,6b,\
6f,40,68,64,77,65,73,74,2e,63,6f,6d,00,62,61,6b,65,72,73,66,69,65,6c,64,40,\
75,6b,32,2e,6e,65,74,00,6f,66,66,69,63,65,40,63,75,73,74,6f,6d,2e,6b,69,65,\
76,2e,75,61,00,61,6d,70,68,69,6f,78,69,73,40,66,69,6e,61,6e,63,69,65,72,2e,\
63,6f,6d,00,61,63,63,75,73,61,74,69,76,65,40,65,78,63,69,74,65,2e,69,74,00,\
61,72,74,69,63,68,6f,6b,65,40,61,6c,6c,73,61,69,6e,74,73,66,61,6e,2e,63,6f,\
6d,00,61,6e,74,65,72,6f,6f,6d,40,61,73,69,61,6e,61,76,65,6e,75,65,2e,63,6f,\
6d,00,61,63,63,72,65,64,69,74,61,74,69,6f,6e,40,6e,65,74,7a,65,72,6f,2e,6e,\
65,74,00,61,73,63,65,6e,73,69,6f,6e,40,70,6f,73,74,2e,63,7a,00,62,61,62,79,\
6c,6f,6e,69,61,6e,40,74,65,72,72,61,2e,63,6f,6d,2e,6d,78,00,62,61,6c,6c,40,\
73,6c,6f,76,65,6e,69,61,2d,63,61,66,65,2e,63,6f,6d,00,62,61,72,62,65,63,75,\
65,40,6e,65,74,6e,65,74,2e,63,6f,6d,2e,73,67,00,61,63,63,75,6c,74,75,72,61,\
74,65,40,6d,61,69,6c,2e,72,75,00,61,72,40,72,61,67,69,6e,67,62,75,6c,6c,2e,\
63,6f,6d,00,61,6c,6d,6f,73,74,40,61,6d,72,65,72,2e,6e,65,74,00,61,72,69,64,\
40,73,61,69,6e,74,6d,61,69,6c,2e,6e,65,74,00,61,77,6e,40,72,73,70,72,6f,67,\
2e,63,6f,2e,79,75,00,62,61,6e,73,68,65,65,40,77,78,38,38,2e,6e,65,74,00,61,\
6d,61,74,65,75,72,40,68,61,6e,69,6d,61,69,6c,2e,63,6f,6d,00,61,64,64,75,63,\
65,40,62,69,67,66,6f,6f,74,2e,63,6f,6d,00,61,6d,70,65,72,73,61,6e,64,40,67,\
65,6f,6c,6f,67,69,73,74,2e,63,6f,6d,00,61,77,66,75,6c,40,77,65,62,69,74,2e,\
73,65,00,61,75,73,74,72,69,61,40,74,65,72,72,61,2e,63,6f,6d,2e,67,74,00,61,\
6c,74,69,6d,65,74,65,72,40,77,6f,72,6c,64,34,66,75,6e,2e,63,68,00,63,6f,6e,\
66,65,72,65,6e,63,65,5f,75,61,40,68,6f,74,62,6f,78,2e,72,75,00,61,6d,62,75,\
6c,61,74,65,40,6f,6e,2e,63,6f,6d,2e,74,77,00,62,61,63,6b,73,63,61,74,74,65,\
72,40,74,61,6c,6b,63,69,74,79,2e,63,6f,6d,00,61,6c,69,63,69,61,40,63,6c,69,\
63,6b,69,64,61,68,6f,2e,63,6f,6d,00,61,6c,6d,69,67,68,74,79,40,65,76,65,72,\
79,6d,61,69,6c,2e,6e,65,74,00,61,6e,61,6c,65,70,74,69,63,40,65,78,63,69,74,\
65,2e,65,73,00,61,6e,74,65,63,65,64,65,6e,74,40,61,74,74,6f,72,6e,65,79,2e,\
63,6f,6d,00,61,6c,61,62,61,6d,61,40,61,70,65,78,6d,61,69,6c,2e,63,6f,6d,00,\
61,72,64,65,6e,63,79,40,66,69,72,65,6d,61,69,6c,2e,64,65,00,61,6e,67,73,74,\
72,6f,6d,40,6d,61,72,63,61,2e,65,73,00,61,67,67,72,65,67,61,74,65,40,79,79,\
68,6d,61,69,6c,2e,63,6f,6d,00,61,74,74,61,69,6e,40,6d,79,76,69,6c,6c,61,67,\
65,2e,63,6f,2e,75,6b,00,61,6e,67,65,6c,69,63,40,61,75,73,74,72,61,6c,69,61,\
6d,61,69,6c,2e,63,6f,6d,00,61,76,65,72,74,69,76,65,40,7a,7a,67,2e,63,6f,6d,\
00,61,6e,74,65,64,61,74,65,40,69,2d,6d,61,6b,65,6c,61,61,72,2e,6e,6c,00,62,\
61,6c,7a,61,63,40,76,6e,6e,2e,76,6e,00,61,6e,74,68,72,6f,70,6f,6d,6f,72,70,\
68,69,63,40,66,72,65,65,6d,61,69,6c,2e,72,75,00,61,72,63,68,69,6e,67,40,73,\
61,69,6e,74,6d,61,69,6c,2e,6e,65,74,00,61,6e,75,73,40,6d,61,69,6c,70,61,6e,\
64,61,2e,63,6f,6d,00,61,63,6b,6e,6f,77,6c,65,64,67,65,40,74,65,61,63,68,65,\
72,2e,63,6f,6d,00,61,6c,75,6d,40,75,73,61,2e,6e,65,74,00,61,73,73,69,67,6e,\
61,74,69,6f,6e,40,65,78,63,69,74,65,2e,63,6f,2e,75,6b,00,61,73,73,69,67,6e,\
61,74,69,6f,6e,40,65,78,63,69,74,65,2e,63,6f,2e,75,6b,00,61,67,67,72,65,73,\
73,69,76,65,40,6e,6f,74,69,6d,65,78,69,63,6f,2e,63,6f,6d,00,61,7a,65,72,62,\
61,69,6a,61,6e,40,6f,6e,6c,69,6e,65,2e,69,65,00,61,74,6d,6f,73,70,68,65,72,\
65,40,68,61,6d,70,74,6f,6e,72,6f,61,64,73,2e,63,6f,6d,00,61,73,6b,61,6e,63,\
65,40,61,6f,6c,2e,63,6f,6d,00,61,72,6f,6d,61,74,69,63,40,6c,61,2e,63,6f,6d,\
00,61,6e,6e,75,6c,69,40,61,61,72,6f,6e,6b,77,6f,6b,2e,6e,65,74,00,61,70,70,\
65,72,74,61,69,6e,40,6e,65,78,78,6d,61,69,6c,2e,63,6f,6d,00,61,6e,74,68,72,\
6f,70,6f,6d,6f,72,70,68,69,63,40,73,63,68,77,65,69,7a,2e,63,68,00,61,64,6a,\
6f,69,6e,40,6f,6e,65,38,30,30,2e,6e,65,74,00,61,6e,69,73,6f,74,72,6f,70,69,\
63,40,72,6f,78,65,74,74,65,2e,6f,72,67,00,61,62,6f,6c,69,73,68,40,6d,61,69,\
6c,2e,63,6f,6d,00,00,00

Romikgy

Дата 26.1.2006, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
    sx: string;
    i:integer;
begin
 sl:=TStringList.Create;
 try
   sl.LoadFromFile('c:\rgy.txt'); // Файл с хексом
   sx:=sl.Text;
   //if (pos(sx,'hex:')<>0) then
   Delete(sx,1,4); //удаление хекс:
   sx:=StringReplace(sx,'\','',[rfReplaceAll]);
   sx:=StringReplace(sx,' ','',[rfReplaceAll]);
   sx:=StringReplace(sx,#13,'',[rfReplaceAll]);
   sx:=StringReplace(sx,#10,'',[rfReplaceAll]);
   sl.Text:=StringReplace(sx,',',#13#10,[rfReplaceAll]);
   sx:='';
   for i:=0 to sl.Count-1 do
   begin
   if (sl[i]='00') then sx:=sx+#13#10
   else
   sx:=sx+chr(StrToInt('$'+sl[i]));
   end;
   Memo1.Clear;
   Memo1.Lines.Text:=sx;
 finally
  sl.Free;
 end;

end;
типа такого

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 26.1.2006, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Для начала нужно выкинуть весь мусор - все, что не цифры.
Сложить все в одну строку.
Затем все строку перебираем по 2 символа.
Берем первые 2 символа. Делаем им
ch = Chr(StrToInt('$'+s[1]+s[2]));
if ch = #0 then result := result + #13#10
else result := result + ch;
и так далее.
На выходе получишь текст, который можно прогрузить в Memo.
Добавлено @ 11:33
Нда. Долго писал smile

Akella

Дата 26.1.2006, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

хорошо, попробую, что получится

allx

Дата 26.1.2006, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 1.9.2005

Репутация: нет
Всего: нет

Akella
Есть еще функция HexToBin(), преобразовывает A2AAAEEE1100 итп в массив байт или чаров.
А еще есть написанный мной модуль для работы с reg-файлами как с ini-файлами. если нужно - спрашивай.

Это сообщение отредактировал(а) allx - 26.1.2006, 13:27

Akella

Дата 26.1.2006, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

ножно.
хочу перевести эти данные в текст и отправить список спамеров администрации нашего форума, может поможете?

Romikgy

Дата 26.1.2006, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Akella Ты мой пример смотрел?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

allx

Дата 26.1.2006, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 1.9.2005

Репутация: нет
Всего: нет

Пожалуйста.
Для чтения пользовать так:
f:=regini.create(filename,'');
bufsize:=f.readbinary(sectionname,ident,buffer)
f.free;
буфер тока надо сделать статический, и чтобы с запасом мог вместить все.
Добавлено @ 16:55
а.. чтобы в строку сразу записать наверное можно
setlength(s,4098);
bufsize:=f.readbinary(sectionname,ident,pchar(s));

Присоединённый файл ( Кол-во скачиваний: 11 )

REGINI.zip 2,57 Kb

Akella

Дата 30.1.2006, 09:14 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

вот получил список спамеров smile

Цитата

Добавлено @ 09:18

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »