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

Вниз

Пароль под маской...   Найти похожие ветки 

 
Death for...   (2002-07-02 19:43) [0]

Всем привет!
Нужно прочитать пароль, скрытый за звездочками.
Может, кто-нибудь знает, где можно грузонуть исходничек?


 
ricks   (2002-07-02 20:11) [1]

Попробуй через WM_GETTEXT


 
Suntechnic   (2002-07-02 21:06) [2]

>Death for... (02.07.02 19:43)
Дык тебе пароль надо открыть или исходничек?

>ricks © (02.07.02 20:11)
Был тут уже флейм и не один по этому поводу.
Краткое содержание:
WM_GETTEXT не сработает для Win 2000/XP и если программа написана на чём то другом кроме Delphi/Builder.


 
ricks   (2002-07-02 21:13) [3]

>Suntechnic
А можно пример хоть одной такой программы (я попробую :-)))


 
Suntechnic   (2002-07-02 21:19) [4]

Пример какой такой программы? Где пароль открыть надо? А самому слабо TEdit на форму бросить и стиль нужный поставить. А затем тоже самое только на MFC... Если Visual Studio нет поробуй открыть пороль хотя бы у Microsoft Messenger...

Вообщем универсальное решение возможно с внедрением в чужой процесс. Я когда то писал такую программку, но это было на C и чтобы исходниками делиться надо по крайней мере их куда то выложить :)


 
DeMoN-777   (2002-07-02 21:48) [5]

Только не плохих целей ;)

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
Edit1: TEdit;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var
h : HWND;
n : integer;
s : string;
begin
h := WindowFromPoint(Mouse.CursorPos);
if h <> 0 then begin
n := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
SetLength(s, n);
SendMessage(h, WM_GETTEXT, WPARAM(n), LPARAM(PChar(s)));
Edit1.Text := s;
end
else
edit1.Text:="Здесь отобразится пароль";
end;

end.




 
Death for...   (2002-07-02 21:58) [6]


> Дык тебе пароль надо открыть или исходничек?


Пароль узнать не проблема, мне нужен исходничек!
Видел такие проги, где "прицел" нужно бросить на пароль и он откроеться (пароль). Вот что-то в этом духе мне и надо.


 
Death for...   (2002-07-03 12:29) [7]

Ещё, ещё исходников.
Когда есть из чего выбирать - можно и творить.


 
DeMoN-777   (2002-07-03 13:59) [8]

>Death for... (03.07.02 12:29

Дальше сам .............


 
SPeller   (2002-07-03 15:27) [9]

Вот ещё, правда написано на KOL но всё понятно. И потихой глючит, наверно из-за KOL"а, потому что на чистых Дельфях косяков небыло
http://spellersoft.narod.ru/WndInfo.rar


 
Merlin   (2002-07-03 16:33) [10]


> Видел такие проги, где "прицел" нужно бросить на пароль
> и он откроеться (пароль). Вот что-то в этом духе мне и надо.

многие из них под WinXP не работают :(


 
Suntechnic   (2002-07-03 23:21) [11]

>Merlin © (03.07.02 16:33)
>многие из них под WinXP не работают :(

Вот и я о том же...

Могу выложить нормальный рабочий вариант с исходниками в кладовку, только написанный на С + Win API.

Принимаются в кладовку С-шные исходники? ;)


 
SPeller   (2002-07-04 02:50) [12]

2 Suntechnic © (03.07.02 23:21)

Будь добр намылить мне эти исходнички?


 
Suntechnic   (2002-07-04 04:22) [13]

>SPeller © (04.07.02 02:50)
Лови...



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

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

Наверх





Память: 0.58 MB
Время: 0.026 c
1-95388
PONTIY
2002-07-16 06:38
2002.07.29
XML


1-95366
neodiX
2002-07-15 19:38
2002.07.29
Active window


3-95227
-=NIGERS BASTARD=-
2002-07-08 12:41
2002.07.29
ImageList


1-95431
victor-s72
2002-07-16 16:57
2002.07.29
TChart --> SaveToBitmapFile


3-95265
big_bugzy
2002-07-09 15:11
2002.07.29
An unknown error has occurred





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский