Vkontakte API

unit Unit1;
 //DelphiExpert.ru
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdComponent, IdHashMessageDigest, OleCtrls, SHDocVw;
 
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Button2: TButton;
    Button4: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button6: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
   function md5(s: string): string;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  stroka2,stroka3, sig :string;
 
 
implementation
 
{$R *.dfm}
// Â èñõîäíèêå ÿ âñòàâèë 2 êîìïîíåíòà Edit äëÿ ââîäà
// Id Âàøåãî ïðèëîæåíèÿ è ID ïîëüçîâàòåëÿ âêîíòàêå
// Äëÿ òîãî ÷òî áû âñå íå ëîìèëèñü êîìíå íà ñòðàíèöó)))
 
 //Ïðîõîäèì àâòîðèçàöèþ, ïðåäïîëàãàåòñÿ ÷òî ïîëüçîâàòåëü óæå äîáàâèë ïðèëîæåíèå ê
 // ñåáå íà ñòðàíèöó âêîíòàêòå.
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://vkontakte.ru/login.php?app='+Edit2.text+'&layout=popup&type=browser');
end;
 
// Îòïðàâëÿåì çàïðîñ íà ñåðâåð
procedure TForm1.Button6Click(Sender: TObject);
begin
//Ñîñòàâëÿåì ïîäïèñü çàïðîñà
sig:=Edit1.text+'api_id='+Edit2.Text+'method=getProfiles='+Edit1.Text+'v=3.0'+stroka3;
sig:=md5(sig);  // Êîäèðóåì â Md5
label5.Caption:=sig;
// Îòñûëàåì âñå íà ñåðâåð
WebBrowser1.Navigate('http://api.vkontakte.ru/api.php?api_id='+Edit2.Text+'&method=getProfiles&sid='+stroka2+'&sig='+sig+'&uids='+Edit1.Text+'&v=3.0');
end;
 
//Èç àäðåñíîé ñòðîêè âûäåðãèâàåì ïåðåìåííûå secret è sid
procedure TForm1.Button4Click(Sender: TObject);
var start2,start3:integer;
URL:string;
begin
URL:=WebBrowser1.LocationURL;
 Memo1.Text:=Url; // Äëÿ íàãëÿäíîñòè âûâîäèì àäðåñíóþ ñòðîêó áðàóçåðà â Memo, â ïðèíöèïå ñòðîêó ìîæíî óäàëèòü !)
 
start3:=Pos('secret%22%3A%22',URL);
stroka3:=Copy(URL, start3+15, 900);
Delete(stroka3, Pos('%22%2C%22expire',stroka3) , 5900);
Label4.caption:=stroka3;
 
start2:=Pos('sid%22%3A%22',URL);
stroka2:=Copy(URL, start2+12, 500);
Delete(stroka2, Pos('%22%2C%22secret',stroka2) , 5900);
Label3.caption:=stroka2;
 
end;
 
 
// Ôóíêöèÿ Md5
function TForm1.md5(s: string): string;
begin
Result := '';
  with TIdHashMessageDigest5.Create do
  try
    Result := AnsiLowerCase(AsHex(HashValue(s)));
  finally
    Free;
  end;
end;
 
 //DelphiExpert.ru
 //Óäà÷íîé êîìïèëÿöèè...!
 
end.