Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Как достать пароли для Dialup в XP/9x   Найти похожие ветки 

 
grab3   (2003-01-07 18:54) [0]

subj


 
}{enon   (2003-01-07 19:03) [1]

Воровать не есть хорошо, а вообще без троянов никак - они шифруются по необратимому алгоритму (должны шифроваться)


 
grab3   (2003-01-07 19:12) [2]

Ладно, а как тогда хотябы узнать где PWL текущего юзера хранится... А насчет воровать, так я только учусь(раньше на VB кодил).


 
}{enon   (2003-01-07 19:17) [3]

А разве на VB это возможно?
В 9х они храняться в папке Windows"a (C:\windows\username.pwl), а в ХР такого файла нет - как и в Windows-2000 они хранятся в спец. файле(не PWL)


 
grab3   (2003-01-07 19:24) [4]

Так я и про XP не говорю(ну конечно подразумеваю :-)) Не охота чета защиту NT пытаться сломать. А как Юзернейм узнать?


 
Pat   (2003-01-07 19:51) [5]

>А как Юзернейм узнать?
GetUserName()


 
CaNaBiS   (2003-01-07 23:02) [6]

У меня есть исходничок для 98,ME
Правда он на vb написан


 
Diamond Cat   (2003-01-08 01:15) [7]

How to "hack" windumbs passwords.
---------------------------------------
Copyright (c) 1999 by Aleksey Kuznetsov
E-mail: info@utilmind.com
WWW: http://www.utilmind.com
---------------------------------------
This program shows cached passwords using standard (but undocumented)
Windows API on local machine for current user (user must be logged in).



unit Unit1;

interface

uses
Windows, SysUtils, Classes, Forms, ShellAPI, Controls, StdCtrls;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
ListBox: TListBox;

procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
hMPR: THandle;
end;

var
Form1: TForm1;

const
Count: Integer = 0;

function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; stdcall;

implementation

{$R *.DFM}
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name "WNetEnumCachedPasswords";

type
PWinPassword = ^TWinPassword;
TWinPassword = record
EntrySize: Word;
ResourceSize: Word;
PasswordSize: Word;
EntryIndex: Byte;
EntryType: Byte;
PasswordC: Char;
end;

var
WinPassword: TWinPassword;

function AddPassword(WinPassword: PWinPassword; dw: DWord): LongBool; stdcall;
var
Password: String;
PC: Array[0..$FF] of Char;
begin
inc(Count);

Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
PC[WinPassword.ResourceSize] := #0;
// CharToOem(PC, PC);
Password := StrPas(PC);
Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize + WinPassword.ResourceSize);
Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);
PC[WinPassword.PasswordSize] := #0;
CharToOem(PC, PC);
Password := Password + " Password=" + StrPas(PC);
Form1.ListBox.Items.Add(Password);
Result := True;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
begin
Application.MessageBox("Не могу прочитать пароль: User is not logon.", "Error", mb_Ok or mb_IconWarning);
Application.Terminate;
end
else
if Count = 0 then
ListBox.Items.Add("нету паролей");
end;

end.
под 9х работала под XP не пашет отсутствует такая функция в библиотеке, либо переименована, надо рыть



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.042 c
1-17170
Некий программер
2003-02-24 08:54
2003.03.06
Ресурс BITMAP


3-16927
Itap
2003-02-14 16:24
2003.03.06
Я уже не знаю что делать


3-16961
Sergey Masloff
2003-02-17 13:27
2003.03.06
Всем лентяям и чайникам посвящается...


3-16915
romychk
2003-02-11 15:03
2003.03.06
IB4 не работает под в2000, выбор сервера


14-17357
Siv Soft
2003-02-18 14:37
2003.03.06
TAudio - документация





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский