ANTICHAT — форум по информационной безопасности, OSINT и технологиям

const // коды ошибок
  SERVER_STATUS_OK                  = $FFFFFFF0;
  SERVER_STATUS_FOLDER_ERROR        = $FFFFFFF1;
  SERVER_STATUS_CREATE_SOCKET_ERROR = $FFFFFFF2;
  SERVER_STATUS_BIND_ERROR          = $FFFFFFF3;
  SERVER_STATUS_LISTEN_ERROR		  	= $FFFFFFF4;
  SERVER_STATUS_ALLOC_MEM_ERROR		  = $FFFFFFF5;
  SERVER_STATUS_CREATE_THREAD_ERROR	= $FFFFFFF6;
  SERVER_STATUS_ID_ERROR				    = $FFFFFFF7;
// остановка сервера
  function StopServer(id : dword) : dword; stdcall; external 'WebServ.dll';

// запуск сервера
  function StartServer(var id : dword; ip : dword; port : word; MaxClients : integer; TimeOut : dword; BufSize : dword; MainDir : pwidechar):dword; stdcall; external 'WebServ.dll';

var
  Server_1 : dword; 
  Server_2 : dword;

procedure TForm1.Button1Click(Sender: TObject);
var
  status : dword;
begin
  // запустить сервер.
  status := StartServer(Server_1, 0, 666, 10, 30000, 4096, 'c:\');
  if status <> SERVER_STATUS_OK then
  begin
    ShowMessage('Server 1 Start Error. Code = ' + inttohex(status, 8));
  end;

  status := StartServer(Server_2, 0, 667, 10, 30000, 4096, 'd:\');
  if status <> SERVER_STATUS_OK then
  begin
    ShowMessage('Server 2 Start Error. Code = ' + inttohex(status, 8));
  end;

end;

// остановка
procedure TForm1.Button2Click(Sender: TObject);
var
  status : dword;
begin
  status := StopServer(Server_1);
  if status <> SERVER_STATUS_OK then
  begin
    ShowMessage('Server 1 Stop Error. Code = ' + inttohex(status, 8));
  end;

  status := StopServer(Server_2);
  if status <> SERVER_STATUS_OK then
  begin
    ShowMessage('Server 2 Stop Error. Code = ' + inttohex(status, 8));
  end;
end;

#define SERVER_STATUS_OK					0xFFFFFFF0
#define SERVER_STATUS_FOLDER_ERROR			0xFFFFFFF1
#define SERVER_STATUS_CREATE_SOCKET_ERROR	0xFFFFFFF2
#define SERVER_STATUS_BIND_ERROR			0xFFFFFFF3
#define SERVER_STATUS_LISTEN_ERROR			0xFFFFFFF4
#define SERVER_STATUS_ALLOC_MEM_ERROR		0xFFFFFFF5
#define SERVER_STATUS_CREATE_THREAD_ERROR	0xFFFFFFF6
#define SERVER_STATUS_ID_ERROR				0xFFFFFFF7

ULONG __stdcall StartServer(ULONG* id, ULONG ip, USHORT port, LONG MaxClients, ULONG TimeOut, ULONG BufSize, wchar_t * MainDir)
ULONG __stdcall StopServer(ULONG id)
.....................
 ULONG Server;
 
 StartServer(&Server_1, 0, 666, 10, 30000, 4096, L"c:\\");
.......................

  PROXY_INFO = packed record
    ProxyType : dword; // тип прокси
    ProxyIp : dword; //  адрес прокси
    ProxyPort : word; // порт прокси
  end;
  PPROXY_INFO = ^PROXY_INFO;

  ICQ_CLIENT = packed record
    status : byte;
    sequence : word;
    sock : dword;
  end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, Registry, IniFiles, WinSock, Unit2;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    StatusBar1: TStatusBar;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    _listenThread:TListenThread;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ToolButton4Click(Sender: TObject);
var
 _reg:TRegIniFile;
begin
 _reg := TRegIniFile.Create('Software\Microsoft\Windows\CurrentVersion\Internet Settings');
 _reg.WriteString('','ProxyServer', '127.0.0.1:8080');
 _reg.WriteBool('', 'ProxyEnable', true);
 _reg.Free;
 ShowMessage('IE для текущего пользователя сконфигурирован!');
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
var
 _reg:TRegIniFile;
 _ini:TIniFile;
 _AppData:string;
begin
 _AppData := '';
 _reg := TRegIniFile.Create('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders');
 _AppData := _reg.ReadString('', 'AppData', '');

 if not (DirectoryExists(_AppData)) then
 begin
  ShowMessage ('Не получилось определить папку');
  Exit;
 end;


 _AppData := _AppData+'\Opera\Opera\Profile\opera6.ini';

 if not (FileExists(_AppData)) then
 begin
  ShowMessage('Не найден конфигурационный файл!');
  Exit;
 end;
 
 _ini := TIniFile.Create(_AppData);
 _ini.WriteBool('Proxy', 'Use HTTP', true);
 _ini.WriteString('Proxy', 'HTTP Server','127.0.0.1:8080');

 _reg.Free;
 _ini.Free;

 ShowMessage('Opera сконфигурирована!');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 _WSAData: WSAData;
begin
 if (WSAStartup(makeword(1,1), _WSAData))<>0 then
 begin
  ShowMessage('Произошла ошибка при инициализации WinSock!');
  Exit;
 end;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
 _listenThread := TListenThread.Create(false);
 StatusBar1.Panels.Items[0].Text := 'Проксик запущен на порту 8080';
end;


end.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    AddressEdit: TEdit;
    Label2: TLabel;
    StartPortEdit: TEdit;
    EndPortEdit: TEdit;
    Label3: TLabel;
    Button1: TButton;
    DisplayMemo: TRichEdit;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function LookupName: TInAddr;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//Функция преобразвывающся введённый адрес сервера в спец формат
//Если введено символьное имя, то она преобразовывает его сначала в IP адрес,
//а потом переводит в спец формат
function TForm1.LookupName: TInAddr;
var
 HostEnt: PHostEnt;
 InAddr: TInAddr;
begin
 if Pos('.', AddressEdit.Text)>0 then
  InAddr.s_addr := inet_addr(PChar(AddressEdit.Text))
 else
  begin
  HostEnt := gethostbyname(PChar(AddressEdit.Text));
  FillChar(InAddr, SizeOf(InAddr), 0);
  if HostEnt <> nil then
   begin
    with InAddr, HostEnt^ do
     begin
      S_un_b.s_b1 := h_addr^[0];
      S_un_b.s_b2 := h_addr^[1];
      S_un_b.s_b3 := h_addr^[2];
      S_un_b.s_b4 := h_addr^[3];
     end;
   end
  end;
  Result := InAddr;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,s, opt, index: Integer;
 FSocket: array [0..41] of TSOCKET; //Массив сокетов
 busy   : array [0..41] of boolean; //Массив, в котором будет храниться информация о каждом сканируемом сокете
 port   : array [0..41] of integer; //Массив сканируемых портов
 addr   : TSockAddr;
 hEvent : THandle; //Объект для обработки сетевых событий
 fset   : TFDset;
 tv     : TTimeval;
 tec    :PServEnt;
 PName:String;
 GInitData : TWSADATA;
begin
 // Устанавливаю максимальное и минимальное значение полоски состояния сканирования
 //Я устанавливаю в минимум начальный порт сканирования, а в максимум - конечный порт
 ProgressBar1.Min:=StrToInt(StartPortEdit.Text);
 ProgressBar1.Max:=StrToInt(EndPortEdit.Text);

 //Инициализирую WinSock
 WSAStartup(MAKEWORD(2,0), GInitData);

 //Записываю в переменную i значение начального порта
 i:=StrToInt(StartPortEdit.Text);

 //Заполняю основные поля структуры addr, которая будет использоваться
 //при вызове функции connect
 addr.sin_family := AF_INET;
 addr.sin_addr.s_addr := INADDR_ANY;

 //Вывожу сообщение о том, что начат поиск введённого хоста
 DisplayMemo.SelAttributes.Color:=clTeal;
 DisplayMemo.SelAttributes.Style:=DisplayMemo.SelAttributes.Style+[fsBold];
 DisplayMemo.Lines.Add('Поиск хоста');

 //LookupName - эта функция написана выше и она возвращяет адрес в спец формате указанного сервера
 //Результат этой функции я записываю в поле адреса сервера структуры addr
 addr.sin_addr := LookupName;

 //Вывожу сообщение о том, что начато сканирование
 DisplayMemo.SelAttributes.Color:=clTeal;
 DisplayMemo.SelAttributes.Style:=DisplayMemo.SelAttributes.Style+[fsBold];
 DisplayMemo.Lines.Add('Сканирование...');

 //В index находиться количество сокетов проверяемых за один раз
 index:=40;

 //Создаю объект для обработки сетевых событий
 hEvent := WSACreateEvent();
 while i<StrToInt(EndPortEdit.Text) do
  begin
   ///Всем элементам массива busy присваиваю значение false
   for j:=0 to index do
    busy[j]:=false;

   //В этом цикле будут асинхронно посылаться запросы на моединение
   //переменная j будет изменяться от 0 до максимального количества
   //элементов в массиве
   for j:=0 to index do
    begin
     //Если j-й порт превысил значение указанного максимального
     //порта, то прервать цикл
     if i>StrToInt(EndPortEdit.Text) then
      begin
       index:=j-1;
       break;
      end;

     //Инициализирую очередной j-й сокет из массива FSocket
     FSocket[j] := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);

     //Добавляю j-й сокет к объекту событий с помощью WSAEventSelect
     //1-й параметр - Добавляемый сокет
     //2-й параметр - объект событий, который был создан с помощью WSACreateEvent
     //3-й параметр - какие события ожидать. Тут я указываю FD_WRITE - события записи и FD_CONNECT - события о заключении соединения
     WSAEventSelect(FSocket[j], hEvent, FD_WRITE + FD_CONNECT);

     //Указываем порт, на который надо произвести попытку соединения
     addr.sin_port := htons(i);

     //Попытка коннекта на очередной порт
     connect(FSocket[j], @addr, sizeof(addr));

     //Даём ОС поработать и обработать накопившиеся события.
     //Если этого не делать, то вовремя сканирования будет
     //происходить эффект зависания
     Application.ProcessMessages;

     //Проверяю, были ли ошибки.
     if WSAGetLastError()=WSAEINPROGRESS then
      begin
       //Если ошибка произошла, то закрываю этот порт
       closesocket (FSocket[j]);
       //Устанавливаю соответствующий элемент в массиве busy в true
       //чтобы потом не проверять этот порт, потому что он всё равно
       //уже закрыт
       busy[j]:=true;
      end;

     //Указываю в массиве port, на какой именно порт мы сейчас послали запрос
     port[j]:=i;

     //Увеличиваю счётчик i в котором я отслеживаю, какой порт сейчас сканируеться
     //чтобы на следующем этапе цикла for запустить сканирование следующего порта
     i:=i+1;
    end;

   //Обнуляю переменную fset
   FD_Zero(fset);

   //Заполняю сканируемый массив сокетов в переменную fset
   for j := 0 to index do
    begin
     if busy[j] <> true then
      FD_SET (FSocket[j], fset);
    end;

   //Даём ОС поработать и обработать накопившиеся события.
   Application.ProcessMessages;

   //Заполняю структуру, в которой указано время ожидания события от сокета
   tv.tv_sec := 1; //Мы будем ждать 1 секунду
   tv.tv_usec := 0;

   //Ожидаем пока произойдёт хотя бы одно событие от любого из сокетов
   s:=select (1, nil, @fset, nil, @tv);

   //Даём ОС поработать и обработать накопившиеся события.
   Application.ProcessMessages;

   //Запускаю массив, в котором будет проверятся, какие из сокетов в массиве FSocket
   //прошли коннект успешно, а какие нет.
   for j := 0 to index do
    begin
     //Проверяем, был ли закрыт соответствующий порт из-за ошибки
     //Если да, то нет смысла его проверять
     if busy[j] then continue;

     if FD_ISSET (FSocket[j], fset) then
      begin
       //В переменную s записываеться размер перменной Opt
       s:=Sizeof(Opt);
       opt:=1;
       //Получаю состояние текущего j-го сокета
       //результат состояния будет в переменной opt
       getsockopt(FSocket[j], SOL_SOCKET, SO_ERROR, @opt, s);

       //Если opt равно 0 то порт открыт и к нему можно подключится
       if opt=0 then
         begin
          //Пытаюсь узнать символьное имя порта
          tec := getservbyport(htons(Port[j]),'TCP');
          if tec=nil then
           PName:='Unknown'
          else
           begin
            PName:=tec.s_name;
           end;
          //Вывожу сообщение об открытом порте
          DisplayMemo.Lines.Add('Хост:'+AddressEdit.Text+': порт :'+IntToStr(Port[j])+' ('+Pname+') '+' открыт ');
         end;
      end;
     //Закрыть j-й сокет, потому что он больше уже не нужен
     closesocket(FSocket[j]);
    end;
   //Увеличивею позицию в ProgressBar1
   ProgressBar1.Position:=i;
  end;
 //Закрываю объект событий
 WSACloseEvent(hEvent);

 //Вывожу сообщение о конце сканирования
 DisplayMemo.SelAttributes.Color:=clTeal;
 DisplayMemo.SelAttributes.Style:=DisplayMemo.SelAttributes.Style+[fsBold];
 DisplayMemo.Lines.Add('Сканирование закончено...');
 ProgressBar1.Position:=0;
end;

end.

class Tree {
public:
    std::string value;
    std::vector<Tree> tree;
};

1+2*3

[+]-|
    |-[1]
    |
    |-[*]-|
    |     |-[2]
    |     |-[3]

#include <iostream>
#include <string>
#include <vector>

class Tree {
public:
    std::string value;
    std::vector<Tree> tree;
};

void printTree (Tree tree, int offsetWidth = 0, std::string offsetStr = "") {
    std::string str = "[" + tree.value + "]";
    std::string offset(offsetWidth + 1, ' '); // +1 because of '-' character on line 19
    offset = offset.replace(0, offsetStr.length(), offsetStr);
    int length = str.length();
    int size = tree.tree.size();
    if (offsetWidth > 0) {
        offset += "|";
        std::cout << offset << "-";
    }
    std::cout << str;
    if (size > 0) {
        std::cout << "-|\n";
        for (int i = 0; i < size; i++) {
            if (offsetWidth > 0) {
                printTree(tree.tree[i], length + offsetWidth + 3, offset); // +3 because of '[', ']', '-' characters
            }
            else {
                printTree(tree.tree[i], length + offsetWidth, offset);
            }
            if (i == size - 1) {
                std::cout << offset;
                std::cout << "\n";
            }
        }
    }
    else {
        std::cout << "\n";
    }
}

int main (int argc, char* argv[]) {
    print(tree);
    std::cin.get();
    return 0;
}

unit vkapi;

interface

uses
  Windows, Classes, idHTTP, idCookieManager, SysUtils, Dialogs;

var
  HTTP : TIDHTTP;

function VK_Login(email, pass: string): boolean;
procedure VK_GetFriendList(Names, OnlineFrinds: TStrings);
function VK_OpenWriteBox(id: string): string;
procedure VK_SendMessage(id, hash, msg: string);
procedure VK_GetNewMessageList(Messages: TStrings);
function VK_ReadMessage(msg_id: string): string;

implementation

function DecChas(chas: string): string;
var
 Decchas : string;
 str : string;
 I : Integer;
 Len : integer;
begin

 str := Copy(chas, 6, 12);
 Len := Length(str);

 For I := 0 To Length(str) -1 do
 begin
  Decchas := Decchas + str[len];
  Inc(len, -1);
 end;

 str := Copy(chas, 21, Length(chas) -5);
 str := str + Copy(chas, 5, 1);

 Len := Length(str);

 For I := 0 To Length(str) -1 do
 begin
   Decchas := Decchas + str[len];
   Inc(len, -1);
 end;

 Result := Decchas;
end;

function VK_Login(email, pass: string): boolean;
var
 Cookie : TidCookieManager;
 Data, Page : TStringList;
 I : Integer;
 S : string;
begin
 HTTP := TIDHTTP.Create(NIL);
 Cookie := TidCookieManager.Create(nil);



 Cookie.AddCookie('remixchk=5;', 'vkontakte.ru');
 Cookie.AddCookie('remixclosed_tabs=0;', 'vkontakte.ru');
 Cookie.AddCookie('remixlang=0;', 'vkontakte.ru');
 Cookie.AddCookie('remixgroup_closed_tabs=0;', 'vkontakte.ru');
 Cookie.AddCookie('remixnotajaxphotos=1;', 'vkontakte.ru');
 Cookie.AddCookie('remixnews_privacy_filter=0;', 'vkontakte.ru');
 Cookie.AddCookie('audio_vol=100;', 'vkontakte.ru'); 



 HTTP.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.7) Gecko/20091221 MRA 5.6 (build 03278) Firefox/3.5.7 sputnik 2.1.0.18';
 HTTP.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
 HTTP.Request.AcceptLanguage := 'ru,en-us;q=0.7,en;q=0.3';
 HTTP.Request.AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.7';
 HTTP.Request.Pragma := 'no-cache';
 HTTP.Request.CacheControl := 'no-cache';
 HTTP.Request.RawHeaders.Add('X-Requested-With: XMLHttpRequest');

 HTTP.AllowCookies := True;
 HTTP.HandleRedirects := True;
 HTTP.ProtocolVersion := pv1_1;
 HTTP.CookieManager := Cookie;

 Data := TStringList.Create;
 Page := TStringList.Create;

 HTTP.Post('http://vkontakte.ru/login.php', Data);

 Data.Add('act=login');
 Data.Add('email=' + email);
 Data.Add('pass=' + pass);

 Page.Text := HTTP.Post('http://login.vk.com/', Data);

 For I := 0 To Page.Count -1 Do
 begin
  If Pos('id=' + #39 + 's' + #39, Page[i]) <> 0 Then
  begin
   S := Page[i];
   S := Copy(s, Pos('value=', s) +7, Length(s));
   Delete(s, Pos(#39, s), Length(s));
  end;
 end;

 Data.Clear;

 Data.Add('redirect=0'); // При установке значения "1", при успешном логине, вы попадаете на свою страницу
 Data.Add('op=slogin');
 Data.Add('s=' + s);

 Page.Text := HTTP.Post('http://vkontakte.ru/login.php', Data);

 If Pos('error', Page.Text) <> 0 Then Result := False
 Else Result := True;

 Page.Free;
 Data.Free;
end;

procedure VK_GetFriendList(Names, OnlineFrinds: TStrings);
var
  Data : TStringList;
  I : Integer;
  id, name, FriendsData,
  OnlineFriendsData: string;
  OnlineCount, FriendCount : string;
begin
  Data := TStringList.Create;
  Data.Text := HTTP.Get('http://vkontakte.ru/friends.php');

  For I := 0 To Data.Count -1 do
  begin
    If Pos('var friendsData', Data[i]) <> 0 Then
    begin
      FriendsData := Data[i];
      FriendsData := Copy(FriendsData, Pos('friends' + #39 + ':', FriendsData) +10, Length(FriendsData));
      Delete(FriendsData, Pos('universities', FriendsData) -3, Length(FriendsData));
    end;

  If Pos('var js_fr_cnt', Data[i]) <> 0 Then
  begin
    FriendCount := data[i];
    FriendCount := Copy(FriendCount, Pos('=', FriendCount) +2, Length(FriendCount));
    Delete(FriendCount, Pos(';', FriendCount), Length(FriendCount));
  end;
end;


  For I := 0 To StrToInt(FriendCount) -1 do
  begin
   Name := Copy(FriendsData, Pos('"', FriendsData) +1, Length(FriendsData));
   Id := Copy(FriendsData, Pos(',', id)+2, Length(FriendsData));
   Delete(id, pos(',', id), Length(id));
   If Id[1] = '[' Then Delete(id, 1, 1);
   Delete(FriendsData, 1, Pos(']', FriendsData));
   Delete(id, pos(',', id), Length(id));
   Delete(name, Pos('"', name), Length(name));
   Names.Add(name + '{id:' + id + '}');
  end;

// Загружаем online друзей
Sleep(1000);

  Data.Text := HTTP.Get('http://vkontakte.ru/friends.php?filter=online');

  For I := 0 To Data.Count -1 do
  begin
    If Pos('var friendsData', Data[i]) <> 0 Then
    begin
      OnlineFriendsData := Data[i];
      OnlineFriendsData := Copy(OnlineFriendsData, Pos('friends' + #39 + ':', OnlineFriendsData) +10, Length(OnlineFriendsData));
      Delete(OnlineFriendsData, Pos('universities', OnlineFriendsData) -3, Length(OnlineFriendsData));
    end;

   If Pos('friends_common_count', Data[i]) <> 0 Then
   begin
     OnlineCount := Data[i];
     OnlineCount := Copy(OnlineCount, Pos('friends_common_count', OnlineCount) +22, Length(OnlineCount));
     Delete(OnlineCount, Pos('<', OnlineCount), Length(OnlineCount));
   end;

  end;

  For I := 0 To StrToInt(OnlineCount) -1 do
  begin
   Name := Copy(OnlineFriendsData, Pos('"', OnlineFriendsData) +1, Length(OnlineFriendsData));
   Id := Copy(OnlineFriendsData, Pos(',', id)+2, Length(OnlineFriendsData));
   Delete(id, pos(',', id), Length(id));
   If Id[1] = '[' Then Delete(id, 1, 1);
   Delete(OnlineFriendsData, 1, Pos(']', OnlineFriendsData));
   Delete(name, Pos('"', name), Length(name));
   OnlineFrinds.Add(name + '{id:' + id + '}');
  end;

 end;

function VK_OpenWriteBox(id: string): string;
var
 Str : string;
begin
 Str := HTTP.Get('http://vkontakte.ru/mail.php?act=a_write_box&to=' + id);
 str := Copy(str, Pos('decodehash', str) +12, Length(str));
 Delete(str, Pos(#39, str), Length(str));
 Result := str;
end;

procedure VK_SendMessage(id, hash, msg: string);
var
 Post : TStringList;
begin
 Post := TStringList.Create;
 Post.Add('act=sent');
 Post.Add('ajax=1');
 Post.Add('chas=' + DecChas(hash));
 Post.Add('to_id=' + id);
 Post.Add('title=Posted by Vkonatkte Messenger v1.0 by Vadim');
 Post.Add('message=' + AnsiToUTF8(msg));
 Post.Add('from_box=1');

 HTTP.Request.Referer := 'http://vkontakte.ru/mail.php?act=a_write_box&to=' + id;
 HTTP.Post('http://vkontakte.ru/mail.php', Post);
 Post.Free;
end;

procedure VK_GetNewMessageList(Messages: TStrings);
var
 Page : TStringList;
 I : Integer;
 Name, Body, id, Image,
 messId : string;
begin
 Page := TStringList.Create;
 Page.Text := HTTP.Get('http://vkontakte.ru/mail.php');

 For I := 0 To Page.Count -1 do
 begin
   If Pos('newRow', Page[i]) <> 0 Then
   begin
     Image := Page[i+8];
     Image := Copy(image, Pos(#34, image) +1, Length(image));
     Delete(image, Pos(#34, image), Length(image));

     Id := Page[i+7];
     Id := Copy(id, Pos('d', id) +1, Length(id));
     Delete(id, pos(#34, id), Length(id));

     MessId := Page[i+20];
     MessId := Copy(MessId, Pos('mail.php?', MessId) +21, Length(MessId));
     Delete(MessId, Pos('&', MessId), Length(MessId));

     Name := Page[i+13];
     Name := Copy(name, Pos('>', name) +1, length(name));
     Delete(name, Pos('<', name), Length(name));

     Body := Page[i+20];
     Body := Copy(body, Pos('Body">', body) +6, Length(body));
     Delete(body, Pos('<', body), Length(body));
     Messages.Add('id: ' + Id + ',body:' + Body + ',name:' + name + ',messid:' + MessId);
   end;
 end;

 page.Free;
end;

function VK_ReadMessage(msg_id: string): string;
var
 Page : TStringList;
 i : Integer;
 msg : string;
begin
 Page := TStringList.Create;
 Page.Text := HTTP.Get('http://vkontakte.ru/mail.php?act=show&id=' + MSG_ID + '&out=0');

 For I := 0 To Page.Count -1 do
 begin
    If Pos('<td class="label">Сообщение:</td>', Page[i]) <> 0 Then
    begin
      msg := Page[i+3];
      msg := Copy(msg, Pos('">', msg) +2, Length(msg));
      msg := StringReplace(msg, '<br>', #13, [rfReplaceAll]);
      Delete(msg, Pos('</div>', msg), Length(msg));
    end;
 end;
 Result := msg;
 Page.Free;
end;

end.