ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу perl script
   
Ответ
Страница 6 из 6 « Первая < 2 3 4 5 6
 
Опции темы Поиск в этой теме Опции просмотра

  #51  
Старый 17.12.2006, 01:51
genom--
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
С нами: 10441826

Репутация: 1686


По умолчанию
вот писал cgi скрипт для редактирования файлов на серваке -- получилось прикольно решил выложить --- вообщем в форме указываем имя файла и засылаем его с помощью get -- пример формы (вставлять в любой html файл =) )

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~<br>
Редактировать файл:
<form method="get" action="edit.cgi" ><input type="text" name="file" value="index.html" size="50"><br>
<input type="submit" value="Редактировать"> </form>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~<br>



вот код самого скрипта -- получилось приколно -- что если вы указали имя файла которого нет -- то выдает пустой контент -- и если ввести данные и нажать сохранить то создастся новый файл -- таким образом решается и проблема загрузки текстовых файлов на сервер -- мона новый создать и туда вставить =)

вот код самого скрипта


#!/usr/bin/perl

use CGI;

print "Content-type: text/html\n\n<b><body text=\"darkgreen\" bgcolor=\"#000000\" link=\"green\"alink=\"green\" vlink=\"green\"><br><br>";


read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
$buf=$ENV{'QUERY_STRING'};

if (length($data)==0){
$buf=~s/file=//eg;
print"<center>Редактирование файла-->$buf<br><br></center>";open fyll,"$buf";
@sors=<fyll>;close(fyll);
print"<center><form method=\"post\" action=\"\"><textarea class=\"input\" id=text cols=70 rows=12 name=\"newsors\" >@sors</textarea><br><br><input type=\"submit\" value=\"....Сохранить....\" ></form><center><br><br><br><br><br><br>если в окне содержания нет текста то либо этот файл пустой либо его не существует -- нажатие кнопки сохранить приведет к созданию нового файла";}
else{$data=~tr/+/ /;
$data=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$data=~s/newsors=//eg;
$buf=~s/file=//eg;
open fyll,">$buf";
print fyll "$data";
close(fyll);
print'<br><br>Изменения сохранены успешно<br><br><a href="index.html">Назад</a>';
}
 
Ответить с цитированием

  #52  
Старый 17.12.2006, 03:03
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
С нами: 10489346

Репутация: 963


По умолчанию
Код:
...[a-f0-9]{2}/pack('C', hex($1))/ieg;
И зачем тут нужно use CGI ?
Последний раз редактировалось KSURi; 17.12.2006 в 03:05..
 
Ответить с цитированием

  #53  
Старый 17.12.2006, 13:43
genom--
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
С нами: 10441826

Репутация: 1686


По умолчанию
потомучто это cgi скрипт в веб интерфейсом
 
Ответить с цитированием

  #54  
Старый 17.12.2006, 15:58
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
С нами: 10489346

Репутация: 963


По умолчанию
Цитата:
Сообщение от genom--  
потомучто это cgi скрипт в веб интерфейсом
Но ты не юзаешь никакие функции модуля => он те не нужен. С cgi можно спокойно работать и без этого модуля.
 
Ответить с цитированием

  #55  
Старый 17.12.2006, 20:56
genom--
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
С нами: 10441826

Репутация: 1686


По умолчанию
по приколу попробовал убрать да --почти все пашет -- но ввозникает бага при сохранениия файла -- ну да х с ней -- одна строчка роли не сыграет
 
Ответить с цитированием

  #56  
Старый 16.01.2007, 20:30
genom--
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
С нами: 10441826

Репутация: 1686


По умолчанию
последний релиз новая версия брутера для mail.ru -- добавил многопоточность --скорость брута возросла =)

скачать тут http://www.genom.h10.ru/1111.rar
 
Ответить с цитированием

  #57  
Старый 29.01.2007, 03:54
0xff
Новичок
Регистрация: 21.03.2006
Сообщений: 17
С нами: 10600540

Репутация: 7
По умолчанию
проксеги Юзает ?
При всей его многопоточности майл просто банит хост после несколькиз неудачных попыток ...
Последний раз редактировалось 0xff; 29.01.2007 в 05:40..
 
Ответить с цитированием

  #58  
Старый 30.01.2007, 02:21
genom--
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
С нами: 10441826

Репутация: 1686


По умолчанию
фига ты попробуй потом говори кто и что банит
 
Ответить с цитированием

  #59  
Старый 30.01.2007, 09:54
~GroM~
Познающий
Регистрация: 13.01.2007
Сообщений: 44
С нами: 10170984

Репутация: 7
По умолчанию
работае там на все 100 и не надо говорить что банит. Ламье
 
Ответить с цитированием

  #60  
Старый 07.02.2007, 20:06
genom--
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
С нами: 10441826

Репутация: 1686


По умолчанию
сазу оговорюсь --- писал лично для себя так что свои претензии можете оставить себе =)

вообщем вот архивчик я там накропал gui интерфейс для john the riper -- а то иногда запаривает набивать в консоли + кинул доку для нубов что вообще надо набирать в той самой консоли --- у меня джон был под винду такчто имя его в скрипте john-386.exe если будете юзать под unix то поменяйте имя или ексешки или подправьте скрипт

всем удачи

http://www.genom.h10.ru/john.rar
 
Ответить с цитированием
Ответ
Страница 6 из 6 « Первая < 2 3 4 5 6



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pубрика "Полезные решения на PHP" Utochka PHP 28 23.05.2006 10:06
Google Reader "preview" and "lens" script improper feed validation NeMiNeM Forum for discussion of ANTICHAT 0 09.04.2006 19:20
Новый Мултиплеер для GTA:VC - vc-mp xSp1D3R Болталка 5 16.08.2005 02:20
Books Perl FRAGNATIC PHP 0 11.08.2005 16:58



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


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




ANTICHAT ™ © 2001- Antichat Kft.