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

  #811  
Старый 11.07.2009, 02:33
Аватар для b3
b3
Постоянный
Регистрация: 05.12.2004
Сообщений: 647
Провел на форуме:
1698585

Репутация: 818


Отправить сообщение для b3 с помощью ICQ
По умолчанию

VKONTAKTE.RU - Скрипт сохранения фотографий с альбомов.
Скрипт написан на РНР, посредством cURL, сохраняет из указанного альбома все фотографии, можно как свои так и чужие "дампить" фотки.
Скрины:





DOWN

ЗЫ нестал запихивать в архив фотки, поленился =)
 
Ответить с цитированием

  #812  
Старый 11.07.2009, 14:55
Аватар для art2222
art2222
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083

Репутация: 270
Отправить сообщение для art2222 с помощью ICQ
По умолчанию

Вконтакте.ру
Скрипт логинится вконтакте и сохраняет куки в файл.
PHP код:
<?php
    
// vkCookie by art2222

    
require_once 'class.php';
    
    
$cs = new phpsploit();
    
$out = array();
    
    foreach (
file('logins.txt') as $value)
    {
        
$cs -> cookiejar('1');
        
$cs -> allowredirection('1');
        list(
$email$pass) = explode(':'trim($value));
        
$cs -> post('http://pda.vkontakte.ru/login?pda=index&acknowledge=0',"email=$email&pass=$pass");

        
array_push($out,$cs->cookie_str);
    }
    
    
file_put_contents('cookie.txt',implode($out,"\r\n"));
?>
Скачать вместе с либой

Последний раз редактировалось art2222; 11.07.2009 в 21:01..
 
Ответить с цитированием

  #813  
Старый 11.07.2009, 21:00
Аватар для art2222
art2222
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083

Репутация: 270
Отправить сообщение для art2222 с помощью ICQ
По умолчанию

Делаем скриншот любого сайта (браузер Safari)
PHP код:
<?php
  $url 
'http://ya.ru';
  
//Тут можем установить качество картинки и ширину экрана.
  
$url 'http://www.browsrcamp.com/index.php?url='.rawurlencode($url).'&width=1280&quality=2';
  
preg_match('#<a href="(.*)" target="_blank">#i', @file_get_contents($url) , $arr);

  echo 
$arr[1]; //Здесь ссылка на скриншот.
?>
 
Ответить с цитированием

  #814  
Старый 11.07.2009, 21:49
Аватар для Fata1ex
Fata1ex
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500

Репутация: 930


По умолчанию

По заказу из этой темы написал парочку небольших реплэйсеров.
1. Создает файл, в котором указанная последовательность символов заменена на новую.
Код:
#!/usr/bin/env python3

filename = str(input("Enter file name: "))
S_old = str(input("Enter first string: "))
S_new = str(input("Enter second string: "))

with open(filename) as fin:
    with open("out.txt", "a") as fout:
        for line in fin:
            if line.find(S_old) == -1:
                fout.write(line)
            else:
                new_line = line
                for i in range(new_line.count(S_old)):
                    new_line = new_line.replace(S_old, S_new)
                fout.write(new_line)


2. Создает файл, в котором все транслитерируемые буквы английского алфавита заменены на русские, а русские буквы, имеющие внешне сходные аналоги в английском алфавите, на английские.
Код:
#!/usr/bin/env python3

import sys

Sym_for_change_ru = "аеорсухАВЕКМНОРСТХ"
Sym_for_change_en = "aeopcyxABEKMHOPCTX"

def Change_symbol(sym, lang):
    if lang == "ru":
        return Sym_for_change_en[Sym_for_change_ru.find(sym)]
    else: 
        return Sym_for_change_ru[Sym_for_change_en.find(sym)]      
    
filename = sys.argv[1]
Buffer = None

with open(filename) as fin:
    with open("out.txt", "w") as fout:
        for line in fin:
            for word in line:
                for symbol in word:
                    if symbol in Sym_for_change_ru:
                        fout.write(Change_symbol(symbol, "ru"))
                    elif symbol in Sym_for_change_en:
                        fout.write(Change_symbol(symbol, "en"))
                    else:
                        fout.write(symbol)

Последний раз редактировалось Fata1ex; 23.07.2009 в 03:17..
 
Ответить с цитированием

  #815  
Старый 12.07.2009, 17:22
Аватар для zifanchuck
zifanchuck
Постоянный
Регистрация: 27.10.2008
Сообщений: 491
Провел на форуме:
4002393

Репутация: 464
Отправить сообщение для zifanchuck с помощью ICQ
По умолчанию

Вот набросал скриптик. Решения квадратных уравнений. Для школьников самый раз

PHP код:
<head>
<title>Квадратное уравнения</title>
 <link rel="stylesheet" type="text/css" media="all" href="a.css">
</head>
<body>
<br><br><br><br>
<form method="get"><center>Введите задание</center><center>
<input size="2" type=text name=a value="<?php echo $a;?>" >x2+
<input size="2" type=text name=b >x
<input size="2" type=text name=c >=0 <br>
<input type=submit value=Обработать></form></center>
<br><br>
<br><br><br>
<centr><h1>
<?php
    $a 
$_GET['a'];
    
$b $_GET['b'];
    
$c $_GET['c'];
    
$d $b*$b-4*$a*$c;
    @
$x1 = (-$b-sqrt($d))/(2*$a);
    @
$x2 = (-$b+sqrt($d))/(2*$a);
    if (!
$a) echo 'заполните поля';

    elseif (
$d<0)
    {
        echo 
$a.'x<sup>2</sup>+'.$b.'x+'.$c.'=0<br>';
        echo 
'D='.$b.'<sup>2</sup>-4'.$a.'*'.$c.'<br>';
        echo 
'D='.$d.'<0 Не имеет решения';
    }
    else
    {
        echo 
$a.'x<sup>2</sup>+'.$b.'x+'.$c.'=0<br>';
        echo 
'D='.$b.'<sup>2</sup>-4'.$a.'*'.$c.'<br>';
        echo 
'D='.$d;
        echo 
'='.sqrt($d).'<sup>2</sup><br>';
        echo 
'X<sub>1</sub>='.'-'.$b.'-'.sqrt($d).'/2'.'*'.$a;
        echo 
'=<strong>'.$x1.'</strong><br>';
        echo 
'X<sub>2</sub>='.'-'.$b.'+'.sqrt($d).'/2'.'*'.$a;
        echo 
'=<strong>'.$x2.'</strong><br><br><br>';
        echo 
'Ответ: X<sub>1</sub>='.$x1.'; X<sub>2</sub>='.$x2;

    }

?>
</h1></center>
примеры



Пошу не пинать))
 
Ответить с цитированием

  #816  
Старый 21.07.2009, 14:42
Аватар для InFlame
InFlame
Участник форума
Регистрация: 27.10.2008
Сообщений: 215
Провел на форуме:
810079

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

Скрипт парсинга файла passwd для создания комболиста из логинов.
Пригодится для брута FTP, SSH, etc, так как часто бывает, что на больших хостингах логин и пароль какого-нибудь пользователя (пользователей) совпадают.
Код:
#!/usr/bin/python
import sys
if len(sys.argv) != 3:
        print "\nUsage: pparser.py <passwd file> <output file>"
try:
        out = open (sys.argv[2], 'w') 
        for line in open(sys.argv[1], 'r').readlines():
                l=line.split(':')[0]
                out.write(l+':'+l+'\n')
        print "\n[+] Successfull! Combolist for bruteforce created"
        out.close()
except:
        print "\n[-] Error: check your passwd file path"
  	pass

Последний раз редактировалось InFlame; 24.10.2009 в 10:57..
 
Ответить с цитированием

  #817  
Старый 21.07.2009, 18:07
Аватар для TANZWUT
TANZWUT
Крёстный отец :)
Регистрация: 22.06.2005
Сообщений: 1,330
Провел на форуме:
5302668

Репутация: 2054


Отправить сообщение для TANZWUT с помощью ICQ
По умолчанию

может кому пригодится часть кода, взято с обменника.

PHP код:
<?php
*******
$filename "./uploads/".$file;
    
// set the download rate limit
    
$download_rate 150;

        
// set the download rate limit (premium)
    // $download_rate = 5000; 


    // send headers
    
header("Content-Type: application/unknown");
    
header("Content-type: application/octet-stream");         // FireFox
    
header("Content-type: application/octetstream");        // IE
    
header("Content-Disposition: inline; filename="str_replace(" ""_"$file));
    
header('Content-length: ' . (string)(filesize($filename)));
 
    
// flush content
    
flush();    
    
// open file stream
    
$f fopen($filename"r");    
    while(!
feof($f)) {
 
        
// send the current file part to the browser
        
print fread($fround($download_rate 1024));    
 
        
// flush the content to the browser
        
flush();
 
        
// sleep one second
        
sleep(1);    
    }    
 
    
// close file stream
    
fclose($f);
*****
?>
__________________
Лучший способ защиты - это нападение!!!
 
Ответить с цитированием

  #818  
Старый 22.07.2009, 06:11
Аватар для Fata1ex
Fata1ex
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500

Репутация: 930


По умолчанию

zifanchuck, комплексные числа где?
 
Ответить с цитированием

  #819  
Старый 22.07.2009, 16:24
Аватар для [underwater]
[underwater]
Познающий
Регистрация: 29.03.2009
Сообщений: 87
Провел на форуме:
2185909

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

Cегодня понадобился, думаю, может еще кому-нибудь пригодится.

Код:
# gdns.pl 
# Index all subdomains from a domain without using zone transfer or dns resolving.
# Intended use for this script is to enumerate all subdomains for a given domain.
# Author:  DiabloHorn
# Date: 16-02-2008
# Version: 0.3

#changes
# fixed the - bug
# fixed the hang bug when it reached the end of the google results
#

###TODO###
# implement rotating proxy support

###POSSIBLE BUGS###
# the need to ctrl+c if results are less then 100

use LWP::UserAgent;
use HTML::LinkExtor;
use URI::URL;

$numArgs = $#ARGV + 1;

if($numArgs != 1){
	print "gdns.pl <base domain>\n";
	print "Example: gdns.pl kd-team.com\n";
	print "Should find all subdomains indexed by google.";
	exit(1);
}
#intentionally not using quotemeta, cause it fucks up in the search
$searchitem = $ARGV[0];

#if you change this....change the regexes.
my $baseSEngine = "http://www.google.com";

#start url for searching
$url = URI->new("$baseSEngine/search?hl=en&q=site%3A$searchitem");
$ua = LWP::UserAgent->new;
$ua->agent('Opera/9.20 (Windows NT 6.0; U; en)'); #this should help us a little to fool google.

print "[*] starting subdomain search on $searchitem\n";

#hash containing all found sub domains
my %allurls = ();
#hash containing all the "next" urls from google
my %nexturls = ();

#callback for each request to parse the page
sub callback {
 my($tag, %attr) = @_;
 #for this poc we are only interested in the <a href> tags
 return if $tag ne 'a';
 my @links = values %attr;
 foreach $link(@links){
	#extract all urls that contain the base domain
	if($link =~ m!(^(http://|https://|ftp://|irc://)(([a-zA-Z0-9\-\.]*)(\.+))*$searchitem)!io){
		if (!exists $allurls{$1}){
			$allurls{$1} = $1;
			print "$1\n";
		}
	}
	
	#extract the google next urls
	if($link =~ m!/search\?q=site:$searchitem&hl=\w+&start=\d+&sa=\w!io){
		if (!exists $nexturls{$link}){
			$nexturls{$link} = $link;
		}
	}
 }
 
}

#setup the callback
$p = HTML::LinkExtor->new(\&callback);

# Request document and parse it as it arrives
$res = $ua->request(HTTP::Request->new(GET => $url),sub {$p->parse($_[0])});

$visitedGURLS = 0;
#for the moment beeing assume 10000 results.
while(1){
	if($visitedGURLS == scalar keys(%nexturls)){
		last;
	}
	foreach $nurl(sort keys(%nexturls)){
		my $value = $nexturls{$nurl};
		#prevent parsing pages twice
		if($value ne "visited"){
			my $temp = URI->new($baseSEngine.$value);
			#you can comment this out if you only want clean finds.
			#print "[*] searching next page $temp\n";
			$res = $ua->request(HTTP::Request->new(GET => $temp),sub {$p->parse($_[0])});
			$nexturls{$nurl} = "visited";
			$visitedGURLS++;
			sleep 3; #try and prevent getting blocked by google
		}
	}	
}
 
Ответить с цитированием

[python] Парсер мейлов по резюме на rabota.mail.ru
  #820  
Старый 24.07.2009, 19:16
Аватар для e4key
e4key
Новичок
Регистрация: 24.07.2009
Сообщений: 24
Провел на форуме:
71052

Репутация: 5
По умолчанию [python] Парсер мейлов по резюме на rabota.mail.ru

Парсер мейлов по резюме на rabota.mail.ru

country - код страны
lang - язык
sex - пол
edu - образование

Все эти значения можно получить в сорце http://rabota.mail.ru/resume_search/

delay - задержка в секундах
get_fio (1 или 0) - получать ли ФИО
get_phone (1 или 0) - получать ли телефон (если есть)


Резальтат будет записан в файл output.txt в кодировке utf-8. Кому нужна другая кодировка правьте сами

Формат: "email@host.domain", "phone", "fio"

Код:
#!/usr/bin/env python
# -*- coding: utf-8 -*-

import re
import urllib
import time

country = '0'
lang = '0'
sex = '0'
edu = '0'

delay = 0
get_fio = 1
get_phone = 1

page = 1
count = 1
output_file = open('output.txt', 'w')

while True:
    source = urllib.urlopen('http://rabota.mail.ru/resume_search/?go=1&search_type=1&order_type=1&country=' + country + '&spec_group=0&salary_currency=2&lang=' + lang + '&lang_level=0&sex=' + sex + '&edu=' + edu + '&resume_on_page=3&publics=0&table=0&page=' + str(page)).read()
    if len(re.findall('<div class="full"><a href="/resume/(.*?)/"', source)) != 0:
        for id in re.findall('<div class="full"><a href="/resume/(.*?)/"', source):
            vacancy = urllib.urlopen('http://rabota.mail.ru/resume/' + id).read()
            email = re.findall('<td><a href="mailto:.*?">(.*?)</a></td>', vacancy)[0]
            output = '"' + email + '"'
            
            if get_phone:
                try:
                    phone = re.findall('\t\t\t\t\t\t<td>(\+.*?)</td>', vacancy)[0].replace(' ', '')
                except:
                    phone = 'None'
                output += ', "' + phone + '"'
            
            if get_fio:
                fio = re.findall('<div class="cmp_name">(.*?)<br />', vacancy)[0]
                output += ', "' + fio + '"'
            
            print str(count) + '\t' + email
            
            output_file.write(output.decode('windows-1251').encode('utf-8') + '\n')
            output_file.flush()
        
            count += 1
            time.sleep(delay)
        
        page += 1
    else:
        break

Последний раз редактировалось e4key; 24.07.2009 в 23:40..
 
Ответить с цитированием
Ответ





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


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




ANTICHAT.XYZ