AutoIt Air-War

[R60]

Hallo Leute,
hab mal heute aus Langeweile ein Sinnloses Programm in AutoIt geschrieben.
Das ganze tut so als könne es WEP/WAP/2 knacken. Ist eigentlich von mir gedacht worden um es mit bifrost etc... zu infizieren.
Denke es sollte recht gut gehen da ich immer wieder von Leuten aus meine ICQ Liste gefragt werde ob ich einen Wlan Hack kenne mit dem jeder umgehen kann xD

Also es ist sozusagen ein one klick, one hack ;)
Vielleicht kann es ja jemand gebrauchen.

Download Link: http://rapidshare.com/files/358324164/air-war.zip.html
Code:

#include <Array.au3>

$file = FileRead("daten.xml")
$name = StringRegExp($file, "<name>(.*?)</name>", 1)
$schl = StringRegExp($file, "<schl>(.*?)</schl>", 1)
$funk = StringRegExp($file, "<funk>(.*?)</funk>", 1)

$laden = ".....E.M.P.F.A.N.G.E...D.A.T.E.N....."
$ladenl = StringLen($laden)

$string = "ABCDEFGHIJKLMNOPQRSTUVQXYZabcdefghijklmnopqrstuvqx yz0123456789!§$&/?+-.:"
$pwl = StringLen($string)

ConsoleWrite("Air-War 0.1 Beta"&@CRLF)
Sleep(100)
ConsoleWrite("Fuer WEP/WAP/WAP2"&@CRLF&@CRLF&"...!ACHTUNG!..."&@CRLF&"ES KANN IN DIESEM STAND DER ENTWICKLUNG NOCH ZU FEHLERN KOMMEN!"&@CRLF)
Sleep(100)
ConsoleWrite("Copyright: D3nt360 since 2003"&@CRLF&@CRLF)
Sleep(100)

ConsoleWrite("Name...................: "&$name[0]&@CRLF)
Sleep(500)
ConsoleWrite("Verschlueselungs-Typ...: "&$schl[0]&@CRLF)
Sleep(500)
ConsoleWrite("Funk-Typ...............: "&$funk[0]&@CRLF&@CRLF)
Sleep(500)

ConsoleWrite("Bitte haben sie etwas gedult!"&@CRLF&@CRLF)

For $i = 1 To $ladenl

$ladent =StringMid($laden, $i, 1)
ConsoleWrite($ladent)
Sleep(1000)
Next

ConsoleWrite(@CRLF&@CRLF&"Daten wurden Geladen!"&@CRLF&"Passwort wird entschluesselt..."&@CRLF&@CRLF)
ConsoleWrite("Passwort...............: ")

$to = Random(8, 32, 1)

For $i = 1 To $to

$zufall = Random(1000, 10000, 1)
Sleep($zufall)

$pwz = Random(1, $pwl, 1)
$pwt = StringMid($string, $pwz, 1)
ConsoleWrite($pwt)

Next

ConsoleWrite(@CRLF&@CRLF&"Passwort wurde entschluesellt.")
ConsoleWrite(@CRLF&@CRLF&"Bitte beachten Sie das es zu Fehlern kommen kann da dies nur eine 0.1 Beta ist!!")

Sleep(10000000)

Bei frage schreibt mich einfach an.