Скачать: CL | DM;

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;

---

← →
BlackSun ©   (2003-06-26 18:43) [5]

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

---

← →
Sha ©   (2003-06-27 14:15) [6]

BlackSun © (26.06.03 18:43)
У меня и под W98 и под WXP - нормальные буковки. Что-то ты путаешь.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c