-Hormold- http://rapidshare.com/files/113245101/________.rar.html На вот, там 2 минуты работы. base64,codes,proto,pworks вот эти файлы незабывай ложить в папку с проектом или же скопируй их в папку c делфи, думаю знаеш куда их пихать Должно быть что то типо этого: ExtractRes('EXEFILE', 'pinch', 'pinch.exe'); Да, ты саму то функцию написал ExtractRes? Если, что она есть в примере, который я тебе дал.
[Dezzter] Кароч распишу все по порядку это будет полезно и тебе и всем кто захочет такое сотварить: 1. Создаем pinch.rc файл в нем пишем вот это: pinch EXEFILE pinch.exe 2. Копируем в папку с проектом brcc32.exe и создаем *.bat файл с таким содержанием: brcc32 pinch.rc (pinch.exe, pinch.rc должны находиться в той же папке, что и проект). 3. Получаем res файл и переходим к кодингу: Code: implementation {$R *.dfm} // это тут находится по умолчанию {$R pinch.RES} // наш файл function ExtractRes(ResType, ResName, ResNewName: string): Boolean; //функция, которая создает файл из файла ресурсов var Res: TResourceStream; begin Res := TResourceStream.Create(Hinstance, Resname, PChar(ResType)); try Res.SavetoFile(ResNewName); Result := True; finally Res.Free; end; end; procedure TForm1.BitBtn1Click(Sender: TObject); var FileName:string; //по нажатию на кнопку получаем наш заветный пинчик.ехе begin FileName:='pinch.exe'; ExtractRes('EXEFILE', 'pinch', FileName ); end; end. Вот так все просто(на первый взгляд )
подскажите програмную реализацию на Delphi хеширования пароля при передаче в VPN подключении с такими характеристиками: тут написано MD5 CHAP но про CHAP я ни чего не нашел...
>>тут написано MD5 CHAP но про CHAP я ни чего не нашел... а я нашел: http://russianproxy.ru/pptp_vpn http://en.wikipedia.org/wiki/Point-to-point_tunneling_protocol http://www.sans.org/resources/malwarefaq/pptp-vpn.php сорцы PPTP-клиента, в котором "PPP-MPPE 2.4.0 and 2.4.1 contain MS-CHAP-v2 and MPPE support "... 4итай, расбирайся, портируй на делфи... http://pptpclient.sourceforge.net/
Тока там исходники отнють не на delphi....((( покрайней мере не вижу.... (может просто мой английйский сильно страдает а можнт что то другое.....) я ж имел ввиду на делфях....
Помогите, такая проблема.нужен исходник для delphi сканер порта. Чтобы мог сканировать всю сеть типа(NetLook). Чтобы не вбивать диапазон ip. Отдельные порта например 21,80 заранее спасибо.
foxes ты определись уже сканер порта или всетаки обозреватель сети??? Netlook насколько я знаю не сканирует порты он рассылает Arp пакеты на которые компы ему отвечают потом сканит на расшаренные ресурсы каждого кто ответил...
foxes Вот раз сканер: http://www.cyberinfo.ru/index.php?newsid=3407 это два: http://devoid.com.ua/pascal-delphi/delphi-network-programming/prosteishiy-skaner-portov-na-delphi.html и три: http://www.vr-online.ru/download.php?det=167 А если постараться то можно найти их хз сколько, но т.к. если вы неможете элементарно юзать поиск, то такие программы вам писать еще рано!!!
2 !{ra!{e/\/ мда... ну и вопрос, включи моск =) const ms = 1/24/60/60/1000; //одна милисекунда var t1, t2: tdateime; begin t1 := now; {Твой код} t2 := now - t1; ShowMessage('Твой код выполнялся:'+inttostr(trunc(t2/ms))+'милисеунд'); end;
я так уже пробывал...вот опять... Code: procedure TForm1.Button1Click(Sender: TObject); const ms = 1/24/60/60/1000; var i:integer; t1, t2: tdatetime; as1:array [1..1000] of integer; begin randomize; t1 := now; for i:=1 to 1000 do as1[i]:=random(40); t2 := now - t1; ShowMessage('Твой код выполнялся:'+inttostr(trunc(t2/ms))+'милисеунд'); end; делаю как ты сказал выходит Твой код выполнялся:0милисеунд что неправильно?
Интересует алгоритм который узнает делиться ли число без остатка на 1024,без утомительного деления каждой части.
var tick:integer; begin tick:=GetCurrentTick; ... тут код messagebox(0,PAnsiChar('Твой код выполняется: '+inttostr(GetCurrentTick-tick)+' мс.'),'',0);
Ну а в чем проблема?) Делишь, число переводишь в string, и смотришь есть ли "," или ".", если есть, то значит число не делится без остатка . без деления никак )
if (x mod 1024)=0 then ////делится без остатка где х число else //не делится или я неправильно тебя понял?
типо умный да ) во первых IntToStr и.т.д отсекают остаток и округляют до меньшего,я работаю с большими числами 512 бит и больше Сделал так с опр вероятностью говорит верно,но правильно ли это?