Jump to content
Tuts 4 You

Keygen Template - Simple


X-88

Recommended Posts

*.Res only


examp.zip


Res.zip


exmp : post-65081-0-89557600-1355062264.png


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 by X-88
  • Like 2
Link to comment
  • 1 month later...

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


Link to comment

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.

Link to comment

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.

 

Link to comment

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 by X-88
Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...