ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Text2Hex на Perl! Help!
  #1  
Старый 06.02.2009, 21:15
Аватар для $p01nt
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540

Репутация: 96
Arrow Text2Hex на Perl! Help!

Ребят, помогите пожалуйста, в скрипте нужно перевести данные из text в hex (тут могу ошибаться) т.е. в формат который используется при mysql injection
Например
admin в 0x61646D696E
Стандартная функция hex почему то переводит не верно.
Например:
admin в 173.

Есть скрипт на PHP, может кому то поможет понять суть и помочь:

[QUOTE]<?
$fout=fopen('url_in_HEX.txt','a+');
$source_column2 = fopen('source.txt','r');
$source_column1 = fgets($source_column2);
fwrite ($fout,$source_column1 . "\r");
fclose($source_column2);
function ascii2hex($ascii) {
$hex = '';
for ($i = 0; $i < strlen($ascii); $i++) {
$byte = strtoupper(dechex(ord($ascii{$i})));
$byte = str_repeat('0', 2 - strlen($byte)).$byte;
$hex.=$byte." ";
}
return $hex;
}
$source_column2 = ascii2hex($source_column1);
$patterns[0] = "/ /";
$replacements[0] = "";
$source_column3 = preg_replace($patterns, $replacements, $source_column2);
$source_column3 = "0x$source_column3";
$patterns[0] = "/ /";
$replacements[0] = "%";
$source_column4 = preg_replace($patterns, $replacements, $source_column2);
$source_column4 = "%$source_column4";
echo "\n";
echo $source_column3;
echo "\n";
echo $source_column4;
echo "\n";
fwrite ($fout,$source_column3 . "\r");
fwrite ($fout,$source_column4 . "\r");
fclose($fout);
?>/QUOTE]

Волонтеру +++ гарантирован
 
Ответить с цитированием

  #2  
Старый 06.02.2009, 21:31
Аватар для BlackSun
BlackSun
Members of Antichat - Level 5
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345

Репутация: 4589


По умолчанию

На php всё гораздо проше -
<?
echo '0x'.bin2hex($text);
?>
 
Ответить с цитированием

  #3  
Старый 06.02.2009, 21:47
Аватар для $p01nt
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540

Репутация: 96
По умолчанию

Вопрос решен!
#!/bin/perl

use strict;
use warnings;

my $str = "some string";
my $hex = unpack('H*', "$str");

my $len = length($hex);
my $start = 0;

print "x'";
while ($start < $len) {
print substr($hex,$start,2);
$start += 2;
}
print "'\n";
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[SPiB] Safety Perl Irc Bot eLWAux Избранное 29 08.05.2009 21:08
Поддержка прокси в сплоитах на Perl LWP::UserAgent 3er0 Авторские статьи 0 08.06.2006 13:48
Опасность ошибок Perl недооценивалась? 1251soldier Мировые новости 0 01.12.2005 20:56
Books Perl FRAGNATIC PHP, PERL, MySQL, JavaScript 0 11.08.2005 16:58
Безопасность приложений на Perl k00p3r Чужие Статьи 0 12.06.2005 09:39



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ