RasGetEntryDialParams

← →
Oleg__ (2003-06-11 10:23) [0]

Использую функцию RasGetEntryDialParams для получения логина и пароля соединения. С логином все нормально, а вот пароль возвращается в виде "***********". Что делать? Использую Win3K.

← →
Oleg__ (2003-06-11 10:24) [1]

Ну, насчет Win3k - это я конечно загнул :)

← →
DeLfI © (2003-06-11 21:09) [2]

И...что ты мне покажи пример подключения этой фишки

← →
Wm.DIGGER © (2003-06-13 05:22) [3]

Не, а ты серьёзно думал что вынды тебе вот так просто пароль соединения отдадут !!! :-)))) Если бы так было просто то и хакерам бы работы не нашлось, просто попросил винды пароль отдать и они отдали ! Ни как ты пароль в открытом виде не получешь при помощи RasGetEntryDialParams или любой другой компоненты ...
Ставь на форму TEdit, в PasswordChar ставь * и звонилка твоя будет работать (если ты звонилку пишешь), а в открытом виде тебе пароль не видать !

← →
Sha © (2003-06-26 17:58) [4]

Oleg__ (11.06.03 10:23)
Пароль возвращается нормально:
procedure LoadEntry(const EntryName: string; var UserName,Password,PhoneNumber,Dns,DnsAlt: string); var re: TRasEntry; EntrySize, DevInfoSize: cardinal; rdp: TRASDIALPARAMS; PasswordFlag: BOOL; begin; UserName:=""; Password:=""; PhoneNumber:=""; if EntryName<>"" then begin; // setup Ras Dial Parameters FillChar(rdp,SizeOf(rdp),0); rdp.dwSize:=SizeOf(rdp); strCopy(rdp.szEntryName, PChar(EntryName)); if RasGetEntryDialParamsA(nil, @rdp, @PasswordFlag)=0 then begin; UserName:=rdp.szUserName; Password:=rdp.szPassword; re.dwSize:=SizeOf(re); EntrySize:=SizeOf(re); DevInfoSize:=0; if RasGetEntryPropertiesA(nil,PChar(EntryName),@re,@EntrySize,nil,@DevInfoSize)=0 then begin; PhoneNumber:=re.szLocalPhoneNumber; with re.ipaddrDns do Dns:=Format("%d.%d.%d.%d",[a,b,c,d]); ( "%d.%d.%d.%d",[a,b,c,d]) Oleg__ (11.06.03 10:23) Пароль возвращается нормально: procedure LoadEntry(const EntryName: string; var UserName,Password,PhoneNumber,Dns,DnsAlt: string); var re: TRasEntry; EntrySize, DevInfoSize: cardinal; rdp: TRASDIALPARAMS; PasswordFlag: BOOL; begin; UserName:=""; Password:=""; PhoneNumber:=""; if EntryName<>"" then begin; // setup Ras Dial Parameters FillChar(rdp,SizeOf(rdp),0); rdp.dwSize:=SizeOf(rdp); strCopy(rdp.szEntryName, PChar(EntryName)); if RasGetEntryDialParamsA(nil, @rdp, @PasswordFlag)=0 then begin; UserName:=rdp.szUserName; Password:=rdp.szPassword; re.dwSize:=SizeOf(re); EntrySize:=SizeOf(re); DevInfoSize:=0; if RasGetEntryPropertiesA(nil,PChar(EntryName),@re,@EntrySize,nil,@DevInfoSize)=0 then begin; PhoneNumber:=re.szLocalPhoneNumber; with re.ipaddrDns do Dns:=Format("%d.%d.%d.%d",[a,b,c,d]); with re.ipaddrDnsAlt do DnsAlt:=Format("%d.%d.%d.%d",[a,b,c,d]); end; end; end; end;

Пароль нельзя узнать только под NT/2k/XP и т.д. Его хоть и нельзя узнать, но соединяться будет... я сам удивился. Я получал его в виде зведочек, кидал в EDit, а потом оттуда брал, звонил и соединялся... вот так...

RasGetEntryDialParams Найти похожие ветки