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

temp:=Memo1.Lines.Count;
while  temp> 0 do
temp:=temp-1;

procedure ExtractIcons(FileName: String);
var
  Image: TIcon;
  Icon: HICON;
  i, iSize: Integer;
begin
  Image:=TIcon.Create;
  try
    iSize:=ExtractIconEx(PChar(FileName), -1, Icon, Icon, 0);
    if (iSize=0) then Exit;
    for i:=0 to iSize-1 do
                          begin
                            Image.Handle:=ExtractIcon(HInstance, PChar(FileName), i);
                            Image.SaveToFile('Icon'+'('+IntToStr(i+1)+')'+'.ico');
                          end;
  finally
    Image.Free;
  end;
end;

unit extracticons;

interface

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

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

var
  Form1: TForm1;

type ThIconArray = array[0..0] of hIcon;
type PhIconArray = ^ThIconArray;

function ExtractIconEx(lpszFile: PAnsiChar;
  nIconIndex: Integer;
  phiconLarge : PhIconArray;
  phiconSmall: PhIconArray;
  nIcons: UINT): UINT; stdcall;
  external 'shell32.dll' name 'ExtractIconExA';  

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  NumIcons: integer;
  pTheLargeIcons: phIconArray;
  pTheSmallIcons: phIconArray;
  LargeIconWidth,LargeIconHeight,
  SmallIconWidth,SmallIconHeight: integer;
  i: integer;
  TheIcon: TIcon;
  TheBitmap: TBitmap;
begin
  NumIcons := ExtractIconEx('D:\system.dll',-1, nil, nil, 0);
  if NumIcons > 0 then
  begin
    LargeIconWidth := GetSystemMetrics(SM_CXICON);
    LargeIconHeight := GetSystemMetrics(SM_CYICON);
    SmallIconWidth := GetSystemMetrics(SM_CXSMICON);
    SmallIconHeight := GetSystemMetrics(SM_CYSMICON);
    GetMem(pTheLargeIcons, NumIcons * sizeof(hIcon));
    GetMem(pTheSmallIcons, NumIcons * sizeof(hIcon));
    FillChar(pTheLargeIcons^, NumIcons * sizeof(hIcon), #0);
    FillChar(pTheSmallIcons^, NumIcons * sizeof(hIcon), #0);
    ExtractIconEx('D:\system.dll',0, pTheLargeIcons, pTheSmallIcons, numIcons);
    {$IFOPT R+}
    {$DEFINE CKRANGE}
    {$R-}
    {$ENDIF}
    for i := 0 to (NumIcons - 1) do
    begin
      TheIcon := TIcon. Create;
      TheBitmap := TBitmap.Create;
      TheIcon.Handle := pTheLargeIcons^[i];
      TheBitmap.Width := LargeIconWidth;
      TheBitmap.Height := LargeIconHeight;
      TheBitmap.Canvas.Draw(0, 0, TheIcon);
      TheIcon.Free;
      TheBitmap.SaveToFile('D:\ic\l'+inttostr(i)+'.ico');
      TheBitmap.Free;


      TheIcon := TIcon. Create;
      TheBitmap := TBitmap.Create;
      TheIcon.Handle := pTheSmallIcons^[i];
      TheBitmap.Width := SmallIconWidth ;
      TheBitmap.Height := SmallIconHeight;
      TheBitmap.Canvas.Draw(0, 0, TheIcon);
      TheIcon.Free;
      TheBitmap.SaveToFile('D:\ic\s'+inttostr(i)+'.ico');
      TheBitmap.Free;
    end;
    {$IFDEF CKRANGE}
    {$UNDEF CKRANGE}
    {$R+}
    {$ENDIF}
    FreeMem(pTheLargeIcons, NumIcons * sizeof(hIcon));
    FreeMem(pTheSmallIcons, NumIcons * sizeof(hIcon));
  end;

end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  Http  : TidHttp;
  CM    : TidCookieManager;
  Data  : TStringList;
  StrPage, UserID,  UserName  :  String;
  i : integer;
begin
  try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Http.Request.Host:='livejournal.com';
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    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.Referer:='http://www.livejournal.com/';

    Data.Add('mode=login');
    Data.Add('user=Qwerty');
    Data.Add('password=PASS');
    StrPage := Http.Post('http://www.livejournal.com/login.bml?ret=1', Data);
  finally
    Data.Free;
    CM.Free;
    Http.Free;
  end;

  if Pos('<input class="logoutlj_hidden" id="user" name="user" type="hidden" value="'+Qwerty,StrPage) <> 0 then
    ShowMessage('Авторизация прошла успешно')
  else
    ShowMessage('Авторизация провалилась');

  Memo1.Lines.Text := StrPage;
end;

for i := 0 to Http.CookieManager.CookieCollection.Count - 1 do
  StrPage := StrPage + CM.CookieCollection.Items[i].CookieText + #13#10;