stream-recorder.pl

Posted: **2013-08-01, 00:12**

Witam widzieliście te ogłoszenia na allegro ,że za 150 zł dostaniecie dożywotni dostęp do weeb tv lub za 15zł program ,który umożliwi darmowe premium dożywotnio ? Ciekawe czy to prawda czy jakieś oszustwo napisałem do jednego z nich jak odpisze i będzie ok to opisze to tu.

Posted: **2013-08-01, 06:14**

Jeden ze sprzedających ten co oferuje ten program za 15 zł odpisał i zamiescił mi link do opisu programu http://www.youtube.com/watch?v=GiCaXtC1UPM ,ten program już dawno nie działa był on dostępny i jest nadal na chomiku ,czekam na drugiego co wymyśli.

Posted: **2013-08-01, 13:49**

Napiszę tak: NIE DAJ SIĘ NA TO NABRAĆ!

Posted: **2013-08-01, 14:39**

Jedna wielka ściema,ale napewno znajdą się chętni .

Posted: **2013-08-01, 19:12**

Witam,nie dajcie się nabrać ,problem zgłosiłem przez formularz kontaktowy na Allegro.

Posted: **2013-08-04, 22:54**

Właśnie sprawdziłem kilka tego typu programów, na niemieckim forum jest takie coś (plik w załączniku). Jest opcja od 3 dni do UNLIMITED ADMIN CODE ale mi działa tylko te na 3 dni :) zobaczymy jak długo.

kilka kb.. https://www.virustotal.com/en/file/eb77 ... 375653324/ też nic nie wykrył, mówcie czy działa wam.

Posted: **2013-08-05, 08:03**

Nie działa nawet na 3 dni :-(

Posted: **2013-08-05, 09:25**

Sprawdzałem nie działa.

Posted: **2013-08-05, 09:32**

...I to okienko ;D "Takie rzeczy tylko w Erze...." niezły zart :D

Posted: **2013-08-05, 09:50**

ktoś skanował program antywirusem ?

Posted: **2013-08-05, 10:07**

Zrobiłem ten program żeby uświadomić wam jak łatwo takie coś zrobić... i wcale nie trzeba wiele :) oczywiście program mojego autorstwa i nic nie robi :D

Posted: **2013-08-05, 10:10**

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, shellapi, OleCtrls, SHDocVw_TLB;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    WebBrowser_V11: TWebBrowser_V1;
    Edit2: TEdit;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  cipa:boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit2.Enabled = true then
  begin
    edit2.Enabled:=false;
    combobox1.Enabled:=false;
    ShowMessage('Premium code: '+ComboBox1.Text+'; Captcha: '+Edit2.text+'; Server: online');
  end else
  begin
   timer1.enabled := true;
  button1.enabled:=false;
  button1.Caption:='Work in progress...';

  windows.beep(300,100);
      windows.beep(500,100);
      windows.beep(600,100);
      windows.beep(100,100);
      windows.beep(200,100);
      windows.beep(900,100);
      windows.beep(2300,100);
      windows.beep(1500,100);
      end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Randomize;
  progressbar1.StepBy(Random(100));
  timer1.Interval:=Random(1000);
  if progressbar1.Position=progressbar1.Max then
   begin
    edit1.Enabled:=true;
    edit1.Text:='EED4OL7B6993AB4A';
    button1.Caption:='Compleat.';
    edit1.SelectAll;
    timer1.Enabled:=false;
    cipa:=true;
    button2.enabled:=true;
   end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.Enabled:=false;
  WebBrowser_V11.navigate('http://www.developmentaid.org/get_captcha?width=50&height=18&r=1374788292');
  cipa:=false;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if cipa=true then
    begin
      ShowMessage('Activate your code, click OK to continue.');
      ShellExecute(self.WindowHandle,'open','http://lmgtfy.com/?q=do+a+barrel+roll',nil,nil, SW_SHOWNORMAL);
      windows.beep(300,100);
      windows.beep(500,100);
      windows.beep(600,100);
      windows.beep(100,100);
      windows.beep(200,100);
      windows.beep(900,100);
      windows.beep(2300,100);
      windows.beep(1500,100);
      windows.beep(300,100);
      windows.beep(500,100);
      windows.beep(600,100);
      windows.beep(100,100);
      windows.beep(200,100);
      windows.beep(900,100);
      windows.beep(2300,100);
      windows.beep(1500,100);windows.beep(300,100);
      windows.beep(500,100);
      windows.beep(600,100);
      windows.beep(100,100);
      windows.beep(200,100);
      windows.beep(900,100);
      windows.beep(2300,100);
      windows.beep(1500,100);windows.beep(300,100);
      windows.beep(500,100);
      windows.beep(600,100);
      windows.beep(100,100);
      windows.beep(200,100);
      windows.beep(900,100);
      windows.beep(2300,100);
      windows.beep(1500,100);windows.beep(300,100);
      windows.beep(500,100);
      windows.beep(600,100);
      windows.beep(100,100);
      windows.beep(200,100);
      windows.beep(900,100);
      windows.beep(2300,100);
      windows.beep(1500,100);windows.beep(300,100);
      windows.beep(500,100);
      windows.beep(600,100);
      windows.beep(100,100);
      windows.beep(200,100);
      windows.beep(900,100);
      windows.beep(2300,100);
      windows.beep(1500,100);windows.beep(300,100);
      windows.beep(500,100);
      windows.beep(600,100);
      windows.beep(100,100);
      windows.beep(200,100);
      windows.beep(900,1000);
      windows.beep(900,1000);
      windows.beep(900,1000);
      windows.beep(900,1000);
      ShowMessage('Takie rzeczy to tylko w Erze... żarcik ale tu można wykonac dowolny kod... NIGDY NIE SCIAGAJ TAKICH PROGRAMOW ....');
    end;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var s:string;
begin
  s:=edit2.text;
 if Length(s) >= 4 then
  button1.Enabled:=true;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  WebBrowser_V11.Refresh;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Your Premium code: '+Edit1.Text+' status Active; Server: online');
end;

end.

Nie można wygenerować kodu do weeb.tv... ponieważ działa to na takiej zasadzie iż w momencie zakupu jest generowany kod i dodawany do bazy danych, dopiero wtedy można go użyć.

NIGDY NIE ŚCIĄGAJCIE TAKICH PROGRAMÓW PONIEWAŻ NIE DZIAŁAJĄ! A MOGĄ ZAWIERAĆ DOWOLNY SKRYPT!

Posted: **2013-08-05, 10:16**

Tak myślałem, że to podpucha ;-)

stream-recorder.pl

Dożywotnie konta na weeb tv

Dożywotnie konta na weeb tv