• Codeby web-security - Курс "Тестирование Веб-Приложений на проникновение с нуля" от команды codeby. Общая теория, подготовка рабочего окружения, пассивный фазинг и фингерпринт, Активный фаззинг, Уязвимости, Пост-эксплуатация, Инструментальные средства, Social Engeneering и многое другое. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

Jump.cgi скрипт - помогите с кодом

  • Автор темы galok
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

galok

#1
Помогите нубу с кодом :) !

Есть скрипт по адресу http://perlwebsite.com/jump.htm, типа бесплатный. Работает очень просто переводит пользователя на конечную ссылку, например:
http://perlwebsite.com/cgi-bin/jump.cgi?ur...ng.com/page.htm

В итоге этот скрипт обещает, что последний сайт не увидит полной ссылки с которой был произведен переход. Вот код этого скрипта (без лишнего барахла):
Код:
#!/usr/bin/perl

# DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com # DO NOT EDIT PAST HERE # (c) http://perlwebsite.com 
@pairs = split(/&/, $ENV{"QUERY_STRING"});foreach $pair (@pairs) {($name, $value) = split(/=/, $pair);$value =~ tr/+/ /;$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$query{$name} = $value;}if ($query{'url'} eq "") {&noid; exit;}print "Location: $query{'url'}\n\n";sub noid {print "Location: http://perlwebsite.com\n\n";}
В итоге как я не пробовал - этот скрипт не работает (поместил в директорию cgi-bin, назначил 755)... Да и код тут у него по ходу дела сливает инфу хозяину, подразумеваю...

Нужен чистый код, без лишнего, чтобы выполнял такую функцию :)
 
Статус
Закрыто для дальнейших ответов.
Вверх Снизу