Форум: "Сети";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c