| Автор
| Сообщение |
|
|
|
Цитата |
|
| Как можно узнать имена пользователей и пароли для почты, подключений к интернету и пароли которые сохраняет internet explorer. Недавно нашёл такую программу хочу повторить сам.Помогите хоть какойнибудь подсказкой. Имена достать легко а где пароли взять и как зашифрованы. |
|
| В начало |
|
 |
|
|
 |
 TuXAPuK
Великий гонщик
Возраст: 26
Знак зодиака: 
Зарегистрирован: 12.09.2005
Сообщения: 714
Откуда: Великий город Рига... =Ъ
|
|
|
Цитата |
|
Точно не знаю поможет-ли тебе это... Может быть и поможет  
| [NIKEL], Norilsk писал(а): | {-----=====>>>>> B A R B U S <<<<<=====-----}
{ Получение кэшированных паролей }
Нередко возникает необходимость подсмотреть пароли, закэшированные на машине, и в связи с тем,
что они были утрачены из других источников. Таким образом, считается функция листинга сохраненных
на машине паролей оправданной. Оправданной ее считают и в корпорации Microsoft, раз включили в
Windows 95/98 модуль mpr.dll с функцией WNetEnumCashedPasswords, почему-то забыв описать это в
документации. Таким образом, получить список кэшированных паролей становится возможным с помощью
одного вызова данной функции.
Зависимости: Windows
Автор: [NIKEL], Norilsk
var
Count: Integer = 0;
//та самая функция
function
WNetEnumCachedPasswords(lp:lpStr;w:Word;b:Byte;PC:PChar;dw:DWord):Word; stdcall;
implementation
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;
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 + ': ' + 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('No passwords found...');
end;
|
_________________
 |
|
| В начало |
|
|
|
|
|
Цитата |
|
TuXAPuK Спасибо за попытку помочь.
В windows 9x была большая дыра там пароли хранились в файле со слабым
шифрам и при старте венды загружались в кеш и хранились там на протяжение
всей работы венды.
Недокументированая функция WNetEnumCachedPasswords вытаскивает пароли
из кеша. А мне нужны пароли от инета. |
|
| В начало |
|
|
NikotiN
Розовый мамонт
Возраст: 26
Знак зодиака: 
Зарегистрирован: 18.03.2005
Сообщения: 2137
|
|
|
Цитата |
|
| предлагаю заняться алгоритмом нахождения простых чисел, тогда все пароли будут твои (а заодно и все шифры современности) |
|
| В начало |
|
|
|
|
|
Цитата |
|
NikotiN
| Цитата: |
предлагаю заняться алгоритмом нахождения простых чисел, тогда все пароли будут твои (а заодно и все шифры современности)
|
А сылочку на инфу ие предложишь ? |
|
| В начало |
|
|
|
|
|
Цитата |
|
| Парни может поможете сборщик написать денег не много на нем рубишь, но интересна сама прога. |
|
| В начало |
|
|
|
|
|
Цитата |
|
| MadReason Я не понял что ты хочешь ? |
|
| В начало |
|
|
NikotiN
Розовый мамонт
Возраст: 26
Знак зодиака:
Зарегистрирован: 18.03.2005
Сообщения: 2137
|
|
|
Цитата |
|
есть пара сайтов, за посещение дают денежку. есть сайты, которые за переход дают денежку.... надо написать программу для сбора вебмани.
ну на вскидку, кидаешь twebbrouser и инализируешь код в нём. ищёшь ссылки, потом создаёшь массив вебброузеров и распихиваешь по ним ссылки, чтоб заходили по ним. также поиск в коде страницы мест для ввода номера кошелька...
_________________
Сила дурака в том, что умный перед ним бессилен.
Последний раз редактировалось: NikotiN (Пт, 25-Ноя-2005 19:12), всего редактировалось 1 раз |
|
| В начало |
|
|
Ktf
Администратор
Возраст: 32
Знак зодиака: 
Зарегистрирован: 15.05.2005
Сообщения: 1502
Откуда: localhost
|
|
|
Цитата |
|
to NikotiN
| Цитата: | | я умею говорить по-русски! |
удивил, однако 
_________________
Пойду посплю перед сном. |
|
| В начало |
|
|
|
|
|
|
