ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
Perl Dbi нужен скрипт! :) |
22.03.2008, 17:21
|
|
Участник форума
Регистрация: 29.11.2005
Сообщений: 122
Провел на форуме:
1050637
Репутация:
27
|
|
Perl Dbi нужен скрипт! :)
Взломал сайт, залил шел и нормально, по одной базе данных лажу как надо, но там есть еще одна, и используется интерфейс DBI PERL-овский, я его вообще не знаю) и перл и интерфейс) а когда пытаюсь через пхп залезть на 2-ю базу пишет: Client does not support authentication protocol requested by server; consider upgrading MySQL client.
и что делать? если бы кто-то написал простенький скриптик на перле использующий DBI и делающий запрос и выводил ответ, цены бы не было!
|
|
|
22.03.2008, 17:28
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
цена всегда есть
|
|
|
|
23.03.2008, 00:13
|
|
Участник форума
Регистрация: 29.11.2005
Сообщений: 122
Провел на форуме:
1050637
Репутация:
27
|
|
к сожалению у меня нет эл. денег! 
помогите кто-т. очень надо!  |
|
|
|
23.03.2008, 01:11
|
|
♠ ♦ ♣ ♥
Регистрация: 18.05.2006
Сообщений: 1,828
Провел на форуме:
8042357
Репутация:
3742
|
|
http://sql-info.de/mysql/examples/Perl-DBI-examples.html
т.е. чтото типа
PHP код:
#!perl
use strict;
use warnings;
use DBI;
$dbh = DBI->connect('DBI:mysql:databasename', 'username', 'password'
) || die "Could not connect to database: $DBI::errstr";
$dbh->disconnect();
$dbh = DBI->connect('DBI:mysql:databasename;host=domain.com', 'username', 'password',
{ RaiseError => 1 }
);
$sth = $dbh->prepare('SELECT val FROM exmpl_tbl WHERE id=1');
$sth->execute();
$result = $sth->fetchrow_hashref();
print "Value returned: $result->{val}\n";
__________________
Привет! Меня зовут Джордж, и я хотел бы рассказать вам про реинкарнацию (ц) 2x2
|
|
|
|
23.03.2008, 13:01
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
вот когдат тож накрапывал такое
Код:
#!/usr/bin/perl use DBI; $database="mysql"; # имя базы к которой скрипт конектится первоначально $hostname="localhost"; # хост $port="1133"; # порт $user="root"; # логин $password="pass"; # пароль $lol=DBI->connect("DBI:mysql:$database:$hostname:$port",$user, $password) or die 'Connect to BD ... [-]\n'; Poexali: print'command->'; $zapr=<STDIN>; if ($zapr=='exit'){$lol=DBI->disconnect;exit;} $s=$lol->prepare("$zapr"); $str=$s->execute; @znach = $s->fetchrow_array; for ($i = 1; $i<=$str; $i++) { print"\n@znach[$i]"; } $s->finish() goto(Poexali:); # для выхода вбейте команду exit
|
|
|
|
23.03.2008, 16:33
|
|
Участник форума
Регистрация: 29.11.2005
Сообщений: 122
Провел на форуме:
1050637
Репутация:
27
|
|
парни меня щяс другая фигня мучает)
что даже самый обычный скрипт на серваке там открывается как текстовый файл, а в некоторых случиях просто предлогает скачать, хотя chmod +x q.pl, догадываюсь что с настройками апача чето не так.. что можно сделать?
и всем спасибо огромное за помощь!
Последний раз редактировалось Grema; 23.03.2008 в 16:55..
|
|
|
|
23.03.2008, 18:26
|
|
♠ ♦ ♣ ♥
Регистрация: 18.05.2006
Сообщений: 1,828
Провел на форуме:
8042357
Репутация:
3742
|
|
кинуть в cgi-bin или посмотреть в конфиге апача (там апач?) где cgi дира, или посмотреть не подключен ли перль как модуль, тогда есть шанс выполнить в произвольной дире в определенных условиях)
только это уже не в тему данного раздела.
__________________
Привет! Меня зовут Джордж, и я хотел бы рассказать вам про реинкарнацию (ц) 2x2
Последний раз редактировалось blackybr; 23.03.2008 в 18:34..
|
|
|
|
23.03.2008, 18:34
|
|
Участник форума
Регистрация: 29.11.2005
Сообщений: 122
Провел на форуме:
1050637
Репутация:
27
|
|
кусок conf, так вот если кидаю в эту папку, то все равно пытается скачать файл, хотя вроде папка должна его использовать! что не так?
Код:
<VirtualHost *:80>
ServerAdmin webmaster@***.ru
ServerName ***.***.ru
AddDefaultCharset windows-1251
DocumentRoot "/home/***.***.ru/perl"
Alias /icons/ "/var/www/icons/"
Alias /error/ "/var/www/error/"
AddType application/x-httpd-fcgi .pl
AddHandler cgi-script .cgi
DirectoryIndex index.cgi
<Directory /home/***.***.ru/perl/>
AllowOverride all
Options ExecCGI
Order allow,deny
Allow from all
AddHandler cgi-script .cgi
DirectoryIndex index.cgi
AuthType Basic
AuthName "Test Area"
AuthUserFile "/home/passwd"
require valid-user
</Directory>
ErrorLog /var/log/apache2/***.***.ru-error_log
</VirtualHost>
|
|
|
|
23.03.2008, 18:36
|
|
♠ ♦ ♣ ♥
Регистрация: 18.05.2006
Сообщений: 1,828
Провел на форуме:
8042357
Репутация:
3742
|
|
если кинул туда куда надо, то поставь права на выполнение
__________________
Привет! Меня зовут Джордж, и я хотел бы рассказать вам про реинкарнацию (ц) 2x2
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
