Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Hex в текст

Автор: Akella 26.1.2006, 10:48

как это преобразовать в текст? этот экспортированные данные из реестра, двоичный параметр. сздесь записаны адреса эл. почты спамеров Цитата 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

Код 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

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

Автор: Akella 26.1.2006, 11:51

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

Автор: allx 26.1.2006, 13:20

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

Автор: Akella 26.1.2006, 14:06

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

Автор: Romikgy 26.1.2006, 14:58

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

Автор: allx 26.1.2006, 16:48

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

Автор: Akella 30.1.2006, 09:14

вот получил список спамеров Цитата [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] alb@arhat [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] banister@abyss abbey@ad avenue@ally [email protected] [email protected] andrea@audiovisual [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] Добавлено @ 09:18 Цитата [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected] [email protected]

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)