[Delphi] Steal WEP Keys

[VincentSX]

The code is very simple to use, you call a procedure passing a callback procedure as its argument (just like for example win32 api EnumChildWindows)

WepKeys.zip

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmMain = class(TForm)
    mmoLog: TMemo;
    btnDump: TButton;
    procedure btnDumpClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses
  uWEPUtils, uUtils;

{$R *.dfm}

//This is your callback function: we print the result on a TMemo named mmoLog
function GetDataCallBack(
                DataType: Cardinal;
                Data: Pointer;
                DataSize: Cardinal
                ): Boolean;
begin
  case DataType of
    1:  //WiFi Network Interface GUID
      begin
        FrmMain.mmoLog.Lines.Add(PAnsiChar(Data));
      end;
    2:  //HOT-SPOT name
      begin
        FrmMain.mmoLog.Lines.Add(PAnsiChar(Data));
      end;
    3:  //HOT-SPOT stored Wep Key: DumpData is a function defined in unit
         //uUtils which dumps a buffer in Hex Editor style 
      begin
        FrmMain.mmoLog.Lines.Add(DumpData(Data, DataSize));
      end;
  end;
end;

procedure TFrmMain.btnDumpClick(Sender: TObject);
begin
  //
  mmoLog.Lines.Clear;
  //It is so simple ... we call GetWZCSVCData (defined in unit uWepUtils)     //passing our callback function
  GetWZCSVCData(@GetDataCallBack);
end;

[G_o_T_o]

Nice, but wrong Section. Or write in German!

[Steiger_mp]

lol und was sollte es in der english-section machen?

[kInGoFcHaOs]

It Is The Right Section, dont Tell shit ^^

Ist die richtige sektion ;-)

[Hamtaro]

Nice, Nice!
Wenn ich jetzt noch wüsste wie man selber auf sowas kommt :wink:

[Nemo.A]

Leute,
nur weil die Beschreibung in Englisch ist (Copy&Paste von anderen Seiten) heißt das nicht, dass VincentSX Englisch redet....

Wenn ich jetzt noch wüsste wie man selber auf sowas kommt

Du betreibst Reverse Engineering und studierst die Dateien welches diesen Schlüssel speichern (Wie, Wo etc.)

[SysFuck3r]

Was sind diese uWEPUtils und wo bekomme ich die her?!

[Hamtaro]

ähh im Archiv vllt? 0o

[Volumen]

Danke kann ich gut gebrauchen =)

[king-org]

Link is down gibts ein reupp?