Keygen Template - Simple

December 9, 2012

*.Res only

exmp :

created using Delphi 7, I actually want to wear Delphi 2010 as already support *. png format, but size still big, so ...

Color : Red, Green/Lime & Blue.

Edited December 9, 2012 by X-88

December 16, 2012

keren bang . haha

December 17, 2012

Haha. Fun. Nice temp.

December 18, 2012

Thanks for share bro

Cool, I like it !

Edited December 18, 2012 by Diver

December 21, 2012

Thx Bro n Sist.

Another time I'll upload source code it, and maybe I'd be more sparse Online.

December 22, 2012

This source code is what I promised yesterday, language: Delphi, I hope you like it. lol

Source Code.zip

December 23, 2012

tarikkk dlu .. buat menuhin hardisk bang

December 23, 2012

@pandagrind : tp entah file tsb korup/g?!... aku hrp tdk t-jadi korup, sa'at aku m-upld-nya.

December 24, 2012

test dlu ntar sore klo dah nyampe rmh om

February 23, 2013

Deep Thanx for the code

If you dont mind i got lost in code would you please just add some hint inside code Explaining the function and aims of Structures and codes

Depp Thanx for being Patient

February 27, 2013

Deep Thanx for the code

If you dont mind i got lost in code would you please just add some hint inside code Explaining the function and aims of Structures and codes

Depp Thanx for being Patient

about a month ago, I could make a tutorial together with its functions and statements one by one in the Indonesian language, because I plan to upload it to my blog, but 4 days ago my HDD is broken and I have not gotten a copy on external HDD :(, what part that makes you confused? maybe next time I can help you.

February 28, 2013

thanks for share

February 28, 2013

I tried to write and translate with google, but whatever it is sufficient to understand or not?!?!

I've marked in addition to its

^{unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
ExtCtrls, StdCtrls, uFMOD, Sfx;type
TFZN = class(TForm)
{
   Delphi 7 tip : if you are confused with the name of the component/composition function that I briefly then click
   [Ctrl] + Left Mouse Button on the short name of the component / variable that makes you confused.   e.g : [Ctrl] + [Left Mouse Button] -> T1 -- jump to ---> T1: TTimer;
}
    //components used---------->
    T1: TTimer;
    T2: TTimer;
    T3: TTimer;
    IBG: TImage;
    E1: TEdit;
    E2: TEdit;
    PBA: TPaintBox;
    PBC: TPaintBox;
    PBG: TPaintBox;
    PBUS: TPaintBox;
    IA: TImage;
    //---------->
    procedure FormCreate(Sender: TObject);
    procedure PBCPaint(Sender: TObject);
    procedure PBCMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PBCClick(Sender: TObject);
    procedure PBAPaint(Sender: TObject);
    procedure T1Timer(Sender: TObject);
    procedure PBGPaint(Sender: TObject);
    procedure PBUSPaint(Sender: TObject);
    procedure PBGMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PBGMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PBGMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormDestroy(Sender: TObject);
    procedure T2Timer(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure T3Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PBCMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PBGClick(Sender: TObject);
private
    { http://amateur-guide.blogspot.com }
public
    { By : X-88, Dec 2012 }
end;var
   FZN: TFZN; // Form1
   AL, AW, LP, RP : Integer; //Anim Left, Anim Witdh, Left position, Right Position

implementation{$R *.dfm}
{$R NZ.res} //Load External Resourceprocedure TFZN.FormCreate(Sender: TObject);
begin
   DoubleBuffered := true; //prevent Flicker on animated
// things that are not important------------------>
   E1.Font.Color := $FFFFFF;
   E2.Font.Color := $FFFFFF;
   E1.Height := 17;
   E2.Height := 17;
// UF Mod Player------------------>
   uFMOD_SetVolume(128);
   uFMOD_PlaySong(@SfxData, SfxSize, XM_MEMORY);
// Load Cursor from Ext Res---------->
   Screen.Cursors[1] := LoadCursor(HInstance, 'MC');
   FZN.Cursor := 1;
// Default set : Anim Left, Anim Witdh, Left position, Right Position---------->
   LP := 0;
   RP := 1;
   AL := 0;
   AW := 1;
end;procedure TFZN.PBCPaint(Sender: TObject);
var
   BM : TBitmap;
begin
   BM := TBitmap.Create;
   BM.Transparent := true;
   BM.TransparentMode := TMAuto;
   BM.TransparentColor := $333333;
   BM.LoadFromResourceName(HInstance,'BT'); //load Gfx Button
   PBC.Canvas.CopyRect(Rect(0, 0, 19, 22), // left Pos, Top, Img Height, Img Width. for more details you can click on [Ctrl] + [Left Mouse Button] -> TRect
                      BM.Canvas,
                      Rect(0, 44, 19, 66));// left Pos, Top, Img Height, Img Width. for more details you can click on [Ctrl] + [Left Mouse Button] -> TRect
   BM.Free;
end;procedure TFZN.PBCMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
   BM : TBitmap;
begin
if Button <> MBLeft then
   Exit
else
   BM := TBitmap.Create;
   BM.LoadFromResourceName(HInstance,'BT');
   PBC.Canvas.CopyRect(Rect(0, 0, 19, 22),
                      BM.Canvas,
                      Rect(0, 22, 19, 44));
   BM.Free;
end;procedure TFZN.PBCClick(Sender: TObject);
begin
   Application.Terminate;
end;procedure TFZN.PBAPaint(Sender: TObject);
// string message 0..255
const
   MS = '                                                 Apps Name : KeyGen Template v0.xx     Themes : Old Style [3 Color]     Code + Gfx By : X-88     Sfx : Dancin'' Together (Hardcore Remix)     Tools : Delphi 7, Adobe PS 7 & Res Editor.';
   SS = '     I''am Not Cracker So...      Merry X-Mas 2012 & Happy New Year 2013     Hi to : All Tuts4you Members     Special Thx to : Jesus Christ.';
begin
//-----------------------
   T1.Tag := T1.Tag + 1; //T1.Tag = 0 + 1 until Length(MS + SS)
if T1.Tag = Length(MS + SS) then
   T1.Tag := 0;
with PBA.Canvas do
begin
   Brush.Style := BSClear;
   Pen.Style := PSSolid;
   Font.Size := 12;
   Font.Style := [FSBold]+[FSItalic];
   Font.Name := 'Times New Roman';
   Font.Color := Random(95899);
   TextOut(0, 0, Copy(MS + SS, T1.Tag, Length(MS + SS))); //Copy 1st Char .. Last Char [primary]
   Font.Color := ClWhite;
   TextOut(2, 2, Copy(MS + SS, T1.Tag, Length(MS + SS))); //Copy 1st Char .. Last Char [shadow]
end;end;procedure TFZN.T1Timer(Sender: TObject);
var
   BMI : TBitmap;
const
   H = 120;//height
   W = 66;//width
begin
   BMI := TBitmap.Create;
   BMI.Transparent := true;
   BMI.TransparentMode := TMAuto;
   BMI.TransparentColor := CLAqua;
   BMI.LoadFromResourceName(HInstance,'AN');// load gfx anim from Ext Res
   AL := AL + 1;//AL.Tag = 0 + 1 until AL = 12
if AL = 12 then
   AL := 0;
//-------------------
   AW := AW + 1;//as I wrote above
if AW = 13 then
   AW := 1;
//-------------------
   IA.Canvas.CopyRect(Rect(0, 0, W, H),
                      BMI.Canvas,
                      Rect(W * AL, 0, W * AW, H));//as I wrote above
//-----------------------------------
   BMI.Free;
   PBA.Invalidate;
end;procedure TFZN.PBGPaint(Sender: TObject);
begin
with PBG.Canvas do
begin
   Brush.Style := BSClear;
   Pen.Style := PSSolid;
   Font.Size := 12;
   Font.Style := [FSBold]+[FSItalic];
   Font.Name := 'Times New Roman';
   Font.Color := CLBlack;
   TextOut(0, 0, '   Generate');
   Font.Color := ClWhite;
   TextOut(2, 2, '   Generate');
end;end;procedure TFZN.PBUSPaint(Sender: TObject);
begin
with PBUS.Canvas do
begin
   Brush.Style := BSClear;
   Pen.Style := PSSolid;
   Font.Size := 8;
   Font.Style := [FSBold];
   Font.Name := 'Times New Roman';
   Font.Color := CLWhite;
   TextOut(0, 0, 'User Name :');
   TextOut(0, 22, 'Serial Number :');
   Font.Style := [];
   Font.Color := CLSilver;
   TextOut(0, 50, 'X-88, Dec 2012');
end;end;procedure TFZN.PBGMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with PBG.Canvas do
begin
   Brush.Style := BSClear;
   Pen.Style := PSSolid;
   Font.Size := 12;
   Font.Style := [FSBold]+[FSItalic];
   Font.Name := 'Times New Roman';
   Font.Color := CLBlue;
   TextOut(0, 0, '   Generate');
   Font.Color := ClWhite;
   TextOut(2, 2, '   Generate');
end;
end;procedure TFZN.PBGMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button <> MBLeft then
   Exit
else
with PBG.Canvas do
begin
   Brush.Style := BSClear;
   Pen.Style := PSSolid;
   Font.Size := 12;
   Font.Style := [FSBold]+[FSItalic];
   Font.Name := 'Times New Roman';
   Font.Color := CLRed;
   TextOut(0, 0, '   Generate');
   Font.Color := ClWhite;
   TextOut(2, 2, '   Generate');
end;

end;procedure TFZN.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
   PBGPaint(Self);
   PBCPaint(Self);
end;procedure TFZN.PBGMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
   PBGPaint(Self);
end;procedure TFZN.FormDestroy(Sender: TObject);
begin
   uFMOD.uFMOD_StopSong;// kill uf mod
end;procedure TFZN.T2Timer(Sender: TObject);
var
   BM : TBitmap;
const
   H = 150;
   W = 320;
begin
   BM := TBitmap.Create;
   BM.Transparent := true;
   BM.TransparentMode := TMAuto;
   BM.TransparentColor := CLAqua;
   BM.LoadFromResourceName(HInstance,'BG');//as I wrote above
//-------------------
   LP := LP + 1;
if LP = 3 then
   LP := 0;
//-------------------
   RP := RP + 1;
if RP = 4 then
   RP := 1;
//-------------------
   IBG.Canvas.CopyRect(Rect(0, 1, W, H),
                      BM.Canvas,
                      Rect(W * LP, 1, W * RP, H));//as I wrote above// things that are not important------------------>
if LP = 0 then
begin
   E1.Color := ClBlue;
   E2.Color := ClBlue;
end
else
begin
if LP = 1 then
begin
   E1.Color := ClRed;
   E2.Color := ClRed;
end
else
begin
if LP = 2 then
begin
   E1.Color := ClLime;
   E2.Color := ClLime;
end;
//---------------------
   BM.Free;
//   IBG.Invalidate;
end;end;end;procedure TFZN.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   Perform(wm_SysCommand, $f012, 0);//drag form
end;procedure TFZN.T3Timer(Sender: TObject);
begin
   FZN.AlphaBlend := true;
   FZN.AlphaBlendValue := 80;
   T3.Tag := T3.Tag + 5; //T3.tag = 80 + 5 until T3.tag = 200
if T3.Tag = 200 then
begin
   FZN.AlphaBlendValue := T3.Tag;
   T3.Enabled := false;
end;end;procedure TFZN.FormShow(Sender: TObject);
begin
   ShowWindow(Application.Handle, SW_Hide);// hide from taskbar
end;procedure TFZN.PBCMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
   BM : TBitmap;
begin
   BM := TBitmap.Create;
   BM.Transparent := true;
   BM.TransparentMode := TMAuto;
   BM.TransparentColor := $333333;
   BM.LoadFromResourceName(HInstance,'BT');//as I wrote above
   PBC.Canvas.CopyRect(Rect(0, 0, 19, 22),
                      BM.Canvas,
                      Rect(0, 0, 19, 22));
   BM.Free;
end;procedure TFZN.PBGClick(Sender: TObject);
begin
   E2.Text := 'Serial Number LOL :D';
end;end.}

February 28, 2013

if you are confused on the animation, I took the part to be more focused on just this section.

Global Var

var
AL, AW : Integer; //Anim Left [AL = to take a position at the Left], Anim Witdh [AW = to take a position at the Right]

//that can be called from anywhere

On Form Create

procedure TFZN.FormCreate(Sender: TObject);
begin
   DoubleBuffered := true; // prevent Flicker on animated// Default set : Anim Left, Anim Witdh---------->
   AL := 0; //if only using AL - 1 then going awry eg: 0 turn into -1
   AW := 1;
end;

On T1/Timer 1

procedure TFZN.T1Timer(Sender: TObject);
var
   BMI : TBitmap;// Tmp Bitmap
const
   H = 120; // Height = 120
   W = 66; // Width = 66
begin
   BMI := TBitmap.Create;
   BMI.Transparent := true;
   BMI.LoadFromResourceName(HInstance,'AN');// Load Bitmap from Resource
   AL := AL + 1; // AL = 0 + 1 until AL = 12 or AL = total frame [0..12] = 13
if AL = 12 then // if AL position = 12 then back to 0
   AL := 0;
//-------------------
   AW := AW + 1; // as above but starting from [1..13] = 13 or AW = W = 66/ Width = 66, [66..66 * 13]
if AW = 13 then
   AW := 1;
//------------------->

//IA = TImage
   IA.Canvas.CopyRect(Rect(0, 0, W, H),// Left, Top, Right, Bottom [0, 0, 66, 120]
                      BMI.Canvas,//Copy From Temp Bitmap
                      Rect(W * AL, 0, W * AW, H));// Left, Top, Right, Bottom [66 * 0..12, 0, 66*1..13, 120]
//eg : frame 1 = 0..66, frame 2 = 67..132, frame 13 = 793..858
//-----------------------------------
   BMI.Free;
   PBA.Invalidate;
end;

I forgot how many frames are there in the resource because I had to edit the file that I uploaded & I have not had time to fix my PC, and sorry about my english.

I hope it can help. I just added it

Edited March 2, 2013 by X-88

March 2, 2013

i cant thank you enough

very talented

Sign In

Keygen Template - Simple

Recommended Posts

X-88

Link to comment

pandagrind

Link to comment

Vic

Link to comment

Diver

Link to comment

X-88

Link to comment

X-88

Link to comment

pandagrind

Link to comment

X-88

Link to comment

pandagrind

Link to comment

iNjECTOR

Link to comment

X-88

Link to comment

gongxi7facai

Link to comment

X-88

Link to comment

X-88

Link to comment

iNjECTOR

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Community

Search