[wazawaka]

Добрый день! Подскажите, как реализовать, что бы
прога считывала инфу о системе
и отправляла все это POST запросом на php скрипт?

[NekitoSSSS]

вирь пишем?)

[Romix]

Да не... Тут даже если и объяснишь то не напише, дохлый номер... ИМХО

[Vayrus]

В данном случае все легко реализуемо, но это запрещено правилами форума

[lmikle]

Ну, на вскидку, я не вижу каким из правил это запрещено.
Хотя, молотком тоже можно убить...

[PhoeniX]

Никто даже не задумался спросить, какую именно инфу надо собрать.
Если версию Windows, это одно, а вот если её серийник - это уже другое...

[Vayrus]

Сообщение от lmikle

Ну, на вскидку, я не вижу каким из правил это запрещено.
Хотя, молотком тоже можно убить...

В том то и дело, что такой способ обычно используется для передачи конфиденциальных данных, н-р, в системах скрытого администрировния, троянах - кейлоггерах и тд и тп

[friz]

если писать вирь, то лучше наверное инфу отсылать по мылу или по icq удобнее
А по делу : сделать запрос это просто, а вот собрать инфу.. хотя надо сперва узнать что ты хочешь

[Vayrus]

Сообщение от friz

если писать вирь, то лучше наверное инфу отсылать по мылу или по icq удобнее

Самое удобное, быстрое, беспалевное - это отправка постом или гетом на сервер с пшп скриптом, на втором месте ФТП, ICQ, E-Mail, но уже последние менее стабильны и/или слишком уж палевны.

[pesi]

Вот его пост с иного сайта

Код:

Всем привет!
нужно написать програму, консольную, 
Суть ее:
Вытаскивает инфу:
* Скорость интернет канала(Думаю самое сложное(впринципи не обязательно)
* id жесткого диска
* загруженность системы
* cpu
* video

Отправляет все это пост заросом на php скрипт, php обработчик делать не нужно
мой бюджет 6-ть баксов

[Casper-Hacker]

Один флуд вместо реальной помощи

Название процессора

Код:

uses ..., Registry, ...

function GetProcessorName: String;
var
  RegFile: TRegIniFile;
begin
  RegFile:=TRegIniFile.Create('Software');
  RegFile.RootKey := HKEY_LOCAL_MACHINE;
  RegFile.OpenKey('hardware', false);
  RegFile.OpenKey('DESCRIPTION', false);
  RegFile.OpenKey('System', false);
  RegFile.OpenKey('CentralProcessor', false);
  Result := copy(RegFile.ReadString(IntToStr(0),
                          'ProcessorNameString', ''),12,100);
 RegFile.CloseKey;
 RegFile.Free;
end;

Название видеокарты

Код:

function GetVideoCard:string;
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
  vidlst:tstringlist;
begin
  vidlst:=tstringlist.Create;
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc := 0;
 while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
  begin
    Inc(cc);
    vidlst.Add(lpDisplayDevice.DeviceString);
end;
result:=vidlst[0];
end;

Кол-во mhz процессора

Код:

function GetCPUSpeed: word;
begin
  with tregistry.Create do
  begin
    rootkey := HKEY_LOCAL_MACHINE;
    openkey('\hardware\description\system\centralprocessor\0\', false);
    result := readinteger('~mhz');
    free;
  end;
end;

Кол-во оперативки

Код:

function GetTotalPhys:DWORD;
var
 MemInfo : TMemoryStatus;
begin
MemInfo.dwLength := Sizeof (MemInfo);
GlobalMemoryStatus (MemInfo);
Result := MemInfo.dwTotalPhys;
end;

Вот основная инфа, остальное функции/процедуры ищи/пиши сам.

А передачу инфы php скрипту, сделай либо запросом на winapi или на idhttp.

[Vayrus]

Сообщение от Casper-Hacker

Один флуд вместо реальной помощи

Флуд не флуд, а аффтар молчит, наверно очень занят, тем более это его первое сообщение на форуме, что опять же подталкивает на те или иные подозрения.

Код представленный вами, многоуважаемый Каспер, можно найти везде, если уметь малолмальски пользоваться поиском и не быть лентяем, халявщиком.

А то о чем писал PESI, я подозреваю, взято с форума Xaker или подобных, так что опять же наталкивает на нехорошие мысли.

Я бы помог, но не хочу плодить малолетних псевдо-хакеров, а может, в будущем и хакеров Что не есть гуд, если, конечно, они не будут состоять в кибервойсках и работать в интересах РФ и ее народа.

ЗЫ
Ждем комментариев автора, который, скорее всего,
поблагодарит и быстро откланяется

[PhoeniX]

А какая разница, хотим мы их плодить или нет? Если они захотят ими стать - они ими станут...

[Vayrus]

Сообщение от DJ PhoeniX

А какая разница, хотим мы их плодить или нет? Если они захотят ими стать - они ими станут...

Молодец, всех обнадежил только

Стремление к достижению цели это конечно хорошо, в данном случае это вопрос времени, надо их притормозить, к тому времени как они станут настоящими хакерами я уже за ПК сидеть не буду

[PhoeniX]

Ну, я лично знаю многое, что связано с хакерским миром. Возможно, даже больше, чем многие из тут присутствующих. Но хакером себя не считаю, а знания использую для обратных целей - не ломать, а ставить защиту и обнаруживать следы взлома.
З.Ы. Самый крупный МОЙ взлом - это брут моей же аськи, когда я забыл от неё пароль и мне влом было перебирать 20 моих стандартных паролей вручную