если есть навыки программирования на Delphi воспользуйся ссылкой
http://www.vr-online.ru журнал VR-online для программистов №2
статья Delphi: Воровство паролей
.........................
...В Win 9x есть огромный баг -
при запуске widows пароли загружаются в память и хранятся там, на протяжении всего
сеанса, поэтому их легко выдернуть с помощью этой функции. Самое интересное, что
они хранятся в незашифрованном виде, и тебе не придётся ничего расшифровывать.
.........................
пример в файле pswhack.zip
.........................
Member
Статус: Не в сети Регистрация: 07.03.2004 Откуда: Москва
Когда я свой пароль посеял, он у меня заходить не хотел без пароля, так я шнур от инета выдернул, вошёл без пароля, вставил шнур и всё работало!!! И на халяву инет был, так как у прова я был не подключён. Но потом, когда прова менял всё обратно сделал, но надо попробовать ещё раз
_________________ Great Unholy Finnish Death Metal Rules This Fucking World!
Rahhh
Delphi: Воровство паролей В обработчике события формы "OnCreate" вызывается недокументированная функция WNetEnumCachedPasswords . Эта функция ищет пароли в кэше и возвращает их в процедуру указанную в качестве четвёртого параметра. В Win 9x есть огромный баг - при запуске widows пароли загружаются в память и хранятся там, на протяжении всего сеанса, поэтому их легко выдернуть с помощью этой функции. Самое интересное, что они хранятся в незашифрованном виде, и тебе не придётся ничего расшифровывать. Теперь посмотрим как объявлена эта функция. Объявление состоит из двух строк. В первой я просто описал, что она представляет из себя. Вторую я рассмотрю подробнее: function WnetEnumCachedPasswords // Имя функции (lp: lpStr; //Должен быть NIL w: Word; // Должен быть 0 b: Byte; // Должен быть $FF PC: PChar; // Адрес функции, в которую вернутся пароли dw: DWord): Word; // опять 0 external mpr // Имя DLL файла где находится эта функция name 'WNetEnumCachedPasswords';//Имя функции в DLL файле. Теперь ты разберёшься и с первой строкой описания: function WnetEnumCachedPasswords (lp: lpStr; w: Word; b: Byte; PC: PChar; dw: Dword ): Word; stdcall; Единственное, чего ты можешь не знать, так это слово "stdcall". Оно означает, что функция использует стандартный вызов. Функция, в которую возвратятся пароли, должна выглядеть как: function AddPassword //Имя функции, может быть любым. ( WinPassword: PWinPassword; //Указатель на структуру WinPassword dw: Dword //Мы не будем использовать. ): LongBool; stdcall; Теперь нужно знать, что такое WinPassword . Эта не стандартная структура и её объявления ты нигде не найдёшь, поэтому ты должен объявить её ручками: type PWinPassword = ^TWinPassword; TWinPassword = record EntrySize: Word; ResourceSize: Word; PasswordSize: Word; EntryIndex: Byte; EntryType: Byte; PasswordC: Char; end; В "PasswordC" будет находится строка содержащая имя пользователя и пароль. ResourceSize - размер имени пользователя, а PasswordSize - размер пароля. Дальше я не буду ничего объяснять. Если сможешь, то разберешься сам, а если нет, то сочувствую. Единственное, что я могу сказать, так это то, что пароль хранится в DOS кодировке. Поэтому, чтобы его увидеть, надо перекодировать в Windows-кодировку. Для этого я использую функцию CharToOem. В качестве первого параметра передаётся то, что надо перекодировать, а второй - результат перекодировки.
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения