ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|

07.01.2009, 18:38
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 303
Провел на форуме: 811764
Репутация:
119
|
|
Вопрос: как возвести в степень, равную счетчику?
http://www.delphisources.ru/pages/faq/base/power.html
|
|
|

07.01.2009, 18:39
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме: 1085601
Репутация:
110
|
|
i:=10;
ss:=5;
Showmessage(RealToStr(IntPower(ss,i)));
и подключи модуль math
|
|
|

07.01.2009, 18:43
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме: 1240829
Репутация:
165
|
|
procedure TForm1.FormCreate(Sender: TObject);
var i,a,ss,res,deg:integer;
begin
res:=1; //рез-ат
dig:=2; //число
deg:=10; //степень
for i:=1 to deg do
begin
res:=1;
for a:=1 to i do res:=res*dig;
showmessage(inttostr(res));
end;
end;
|
|
|

07.01.2009, 20:22
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме: 2715445
Репутация:
588
|
|
Сообщение от W!z@rD
1. создавать файл - ключ
2. модифицировать время создания у определенных папок, файлов
3. создавать псевдо узел в реестре использовав парралельно вариант 1,2
привязка к железу это "плохой тон", а если у пользователя сгорит винт?
что за бред? а если у пользователи сгорит видеокарта/материнка/системник/квартира, он переустановит систему, то все твои способы идут лесом.
з.ы. плохим тоном является навешивание говнозащит, на говнопрограммы.
|
|
|

07.01.2009, 20:43
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме: 1892597
Репутация:
836
|
|
Hellsp@wn ну а где твой вариант? я хотя бы предложил.
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|

07.01.2009, 22:07
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме: 2715445
Репутация:
588
|
|
я предложил же, даже, целых 2 варианта
1-ый yandex.ru запрос: delphi получить номер жёсткого диска
2-ой yandex.ru запрос: скачать upx
Последний раз редактировалось Hellsp@wn; 07.01.2009 в 22:09..
|
|
|

08.01.2009, 03:05
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 6
Провел на форуме: 30714
Репутация:
0
|
|
Люди помогите!нужна программа на delphi,сниффер,который через каждые 15 минут переходил бы на определённый сайт.в delphi совсем ничего непонимаю,вся надежда на вас=(((
p/s забыл,кто может помоч постучите в аську 47877239 
|
|
|

08.01.2009, 03:12
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме: 5749763
Репутация:
1680
|
|
Сообщение от SmaTR
Люди помогите!нужна программа на delphi,сниффер,который через каждые 15 минут переходил бы на определённый сайт.в delphi совсем ничего непонимаю,вся надежда на вас=(((
p/s забыл,кто может помоч постучите в аську 47877239 
кидаешь таймер на форму, устанавливаешь в секундах... 900000 - 15 минут.
далее кидаешь стандартный компонент IdHTTP1 из закладки Indy Clients.
В таймере пишешь следующее:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdHTTP1.Get('http://lol.com');
end;
всё... каждые 15 минут стучит на сайт.
|
|
|

08.01.2009, 15:32
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 10
Провел на форуме: 22534
Репутация:
7
|
|
начал изучать с++, компилирую в Code:Bloks 8.02
в книге пример:
#include <iostream.h>
int main()
{
for (int i = 32; i<128; i++);
cout << (char) i;
return 0;
}
при компиляции выдает:
C:\Program Files\CodeBlocks\MinGW\bin\..\lib\gcc\mingw32\3.4. 5\..\..\..\..\include\c++\3.4.5\backward\backward_ warning.h|32|warning: #warning This file includes at least one deprecated or antiquated header. Please consider using one of the 32 headers found in section 17.4.1.2 of the C++ standard. Examples include substituting the <X> header for the <X.h> header for C++ includes, or <iostream> instead of the deprecated header <iostream.h>. To disable this warning use -Wno-deprecated.|
.cpp||In function `int main()':|
.cpp|6|error: name lookup of `i' changed for new ISO `for' scoping|
.cpp|5|error: using obsolete binding at `i'|
||=== Build finished: 2 errors, 1 warnings ===|
я так понял что это связано с какимито новвоведениями в компиляторе, в вижуал с++ экспресс 2008 тож самое, по книге обучение на вижуал с++ 6.0
|
|
|

08.01.2009, 15:56
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 303
Провел на форуме: 811764
Репутация:
119
|
|
iffan, разделом ошибся.
Убери в подключении хедера ".h", должен пропасть первый варнинг.
Код:
for (int i = 32; i<128; i++)
cout << (char) i;
пробуй так.
и добавь на всякий случай 
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|