| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
RasGetEntryDialParams
Oleg__ © (2003-06-11 10:23:00)
Использую функцию RasGetEntryDialParams для получения логина и пароля соединения. С логином все нормально, а вот пароль возвращается в виде "***********". Что делать? Использую Win3K.
Sha (2003-06-27 14:15:00) [1]
BlackSun © (26.06.03 18:43)
У меня и под W98 и под WXP - нормальные буковки. Что-то ты путаешь.
BlackSun (2003-06-26 18:43:00) [2]
Пароль нельзя узнать только под NT/2k/XP и т.д. Его хоть и нельзя узнать, но соединяться будет... я сам удивился. Я получал его в виде зведочек, кидал в EDit, а потом оттуда брал, звонил и соединялся... вот так...
Sha (2003-06-26 17:58:00) [3]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;
Wm.DIGGER (2003-06-13 05:22:00) [4]
Не, а ты серьёзно думал что вынды тебе вот так просто пароль соединения отдадут !!! :-)))) Если бы так было просто то и хакерам бы работы не нашлось, просто попросил винды пароль отдать и они отдали ! Ни как ты пароль в открытом виде не получешь при помощи RasGetEntryDialParams или любой другой компоненты ...
Ставь на форму TEdit, в PasswordChar ставь * и звонилка твоя будет работать (если ты звонилку пишешь), а в открытом виде тебе пароль не видать !
DeLfI (2003-06-11 21:09:00) [5]
И...что ты мне покажи пример подключения этой фишки
Oleg__ (2003-06-11 10:24:00) [6]
Ну, насчет Win3k - это я конечно загнул :)
| |
