[Delphi] Una inocente broma xD

« **en:** Diciembre 06, 2013, 10:14:33 am »

Siempre quize hacer la tipica broma donde te mandan un programa donde aparece la foto de una mina en tetas y cuando queres cerrar la ventana en vez de cerrarse se multiplica.
Si la victima no quiere cerrar la ventana puse un timer cada 1 segundo para que se multiplique de todas formas.

Hice algo asi en delphi , pondria una captura del programa en accion pero me borrarian la imagen xDD.

El codigo.

Código: Delphi

// Joke : Big Tits
// (C) Doddy Hackman 2013
 
unit big;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, acPNG, ExtCtrls, Math;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure nomepiensoir();
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.nomepiensoir;
 
// Based on : http://delphi.about.com/od/adptips2006/qt/formclone.htm
// Thanks to Zarko Gajic
 
var
 
  parte1: TMemoryStream;
  acatoy: TForm;
 
const
  dimensiones: array [1 .. 5] of string = ('100', '200', '300', '400', '500');
 
begin
 
  parte1 := TMemoryStream.Create;
  parte1.WriteComponent(Form1);
 
  parte1.Position := 0;
 
  acatoy := TFormClass(Form1.ClassType).CreateNew(Application);
  parte1.ReadComponent(acatoy);
 
  acatoy.Left := Form1.Left + StrToInt(dimensiones[RandomRange(1, 5)]);
  acatoy.Top := Form1.Top + StrToInt(dimensiones[RandomRange(1, 5)]);
 
  acatoy.Show;
 
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  nomepiensoir();
  Abort;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  nomepiensoir();
end;
 
end.
 
// The End ?
 

Si lo quieren bajar lo pueden hacer de aca.

« **Respuesta #1 en:** Diciembre 06, 2013, 10:23:37 am »

Muy bueno Doddy! recuerdo hace tiempo que vi un virus similar!
En que linea le pasas el path de la imagen?

Saludos!

« **Respuesta #2 en:** Diciembre 06, 2013, 12:48:57 pm »

HOLA!!!

Claramente la tiene directamente en el formulario.-

P.D: podrias poner un enlace de desacarga doddy

GRACIAS POR LEER!!!

« **Respuesta #3 en:** Diciembre 07, 2013, 06:56:36 pm »

estaria bueno que se multiplicara pero no en la misma venta o sea en diferente posicion o cordenada para joderlo mas

Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009 Iniciado por ANTRAX	Respuestas: 0 Vistas: 3377	Febrero 24, 2010, 04:57:14 pm por ANTRAX
[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team Iniciado por ANTRAX	Respuestas: 0 Vistas: 2116	Febrero 24, 2010, 04:35:15 pm por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team Iniciado por ANTRAX	Respuestas: 0 Vistas: 3766	Febrero 24, 2010, 04:34:48 pm por ANTRAX
[Delphi] Creacion de un Server Builder con recursos Iniciado por BigBear	Respuestas: 1 Vistas: 1553	Marzo 09, 2015, 07:56:20 pm por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad) Iniciado por BigBear	Respuestas: 2 Vistas: 3283	Diciembre 28, 2015, 10:27:44 am por BigBear

Esta es una respuesta al tema: [Delphi] Una inocente broma xD en La plantilla. Delphi

[Delphi] Una inocente broma xD

BigBear

[Delphi] Una inocente broma xD

ANTRAX

Re:[Delphi] Una inocente broma xD

79137913

Re:[Delphi] Una inocente broma xD

Krapermors

Re:[Delphi] Una inocente broma xD

Similar topics (5)