begin process at 2012 02 11 06:24:51
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Sécurité

 > KEYGENME PROTECTION

KEYGENME PROTECTION


 Information sur la source

Note :
Aucune note
Catégorie :Sécurité Classé sous :cryptage, keygenme, crackme, detection, timelimit Niveau :Débutant Date de création :23/09/2007 Date de mise à jour :23/09/2007 10:25:08 Vu / téléchargé :7 789 / 832

Auteur : craftsystem

Ecrire un message privé
Site perso
Commentaire sur cette source (18)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Salut

suite a mon premier keygen
j'avais promis de re-deposer une protection
qui ma fois m'a l'air plus que concluante

après de multiple recherche sur le site
et après mettre tiré les cheveux plus d'une fois

je me permet de reposter se que l'on pourait appeler une protection
certe elle est contournable mais....

detection de Ollydebug,Ida,w32Dasm,Pied,StudPe,Dede.
qui au lancement de keygenme ferme c'est applications
si elle sont allumer et mon programme
plus une petite protection antisoftice que je me
suis permit d'empreinter a je ne sais plus qui
mais je le remercie

ensuite j'ai rajouter un timelimit et
un petit cryptage vernam façon MAURICIO que je remercie
au passage

voilà c'est tous

Source

  • //-----------------------ANTITOUS------------------
  • procedure TForm1.FormActivate(Sender: TObject);
  • var aHandle: THandle;
  • begin
  • begin
  • aHandle := FindWindow('OllyDbg', nil);
  • if aHandle > 0 then begin
  • SendMessage(aHandle, WM_CLOSE, 0, 0);
  • Application.Terminate;
  • end;
  • begin
  • aHandle := FindWindow('TIdaWindow', nil);
  • if aHandle > 0 then begin
  • SendMessage(aHandle, WM_CLOSE, 0, 0);
  • Application.Terminate;
  • end;
  • begin
  • aHandle := FindWindow('OWL_Window', nil);
  • if aHandle > 0 then begin
  • SendMessage(aHandle, WM_CLOSE, 0, 0);
  • Application.Terminate;
  • end;
  • begin
  • aHandle := FindWindow('TDeDeMainForm', nil);
  • if aHandle > 0 then begin
  • SendMessage(aHandle, WM_CLOSE, 0, 0);
  • Application.Terminate;
  • end;
  • begin
  • aHandle := FindWindow('#32770', nil);
  • if aHandle > 0 then begin
  • SendMessage(aHandle, WM_CLOSE, 0, 0);
  • Application.Terminate;
  • end;
  • end;
  • end;
  • end;
  • end;
  • end;
  • end;
//-----------------------ANTITOUS------------------

procedure TForm1.FormActivate(Sender: TObject);
var aHandle: THandle;
begin
  begin
    aHandle := FindWindow('OllyDbg', nil);
    if aHandle > 0 then begin
      SendMessage(aHandle, WM_CLOSE, 0, 0);
      Application.Terminate;
    end;
    begin
      aHandle := FindWindow('TIdaWindow', nil);
      if aHandle > 0 then begin
        SendMessage(aHandle, WM_CLOSE, 0, 0);
        Application.Terminate;
      end;
      begin
        aHandle := FindWindow('OWL_Window', nil);
        if aHandle > 0 then begin
          SendMessage(aHandle, WM_CLOSE, 0, 0);
          Application.Terminate;
        end;
        begin
          aHandle := FindWindow('TDeDeMainForm', nil);
          if aHandle > 0 then begin
            SendMessage(aHandle, WM_CLOSE, 0, 0);
            Application.Terminate;
          end;
          begin
            aHandle := FindWindow('#32770', nil);
            if aHandle > 0 then begin
              SendMessage(aHandle, WM_CLOSE, 0, 0);
              Application.Terminate;

            end;
          end;
        end;
      end;
    end;
  end;
end;

 Conclusion

Je remercie aussi les membres de ForumCrack
qui m'on bien conseiller
et cirec qui ma bien aidé pour la finalisation

en Gros Merci a tous

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

23 septembre 2007 10:25:08 :
petite dedicasse oublier

 Sources du même auteur

Source avec Zip Source avec une capture WEBDEZIGN FORMULAIRE
BLOQUER LE TASKMGR SANS CLÉ DE REGISTRE
Source avec une capture CRÉER UN INSTALLATEUR POUR VOS PROGRAMME
INTERPRÉTEUR DE SYNTAXE
Source avec Zip Source avec une capture SOUNDCRYPT

 Sources de la même categorie

Source avec Zip Source avec une capture EXE PROTECTOR V1 par MrClock
Source avec Zip Source avec une capture LYNX : CHIFFREMENT À BLOC/FLUX, EXEMPLE INCLUS par Bacterius
Source avec Zip FBCREATEUSER par fbalien
Source avec Zip Source avec une capture SCANNER DE MALWARES ( ßE SCANNER ) par MrClock
Source avec Zip Source avec une capture GOLDEN PASSWORDS - STOCKEZ VOS MOTS DE PASSE ! par Bacterius

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture GOLDEN PASSWORDS - STOCKEZ VOS MOTS DE PASSE ! par Bacterius
Source avec Zip Source avec une capture LEA EN MODE CHIFFREMENT (SEA) par Bacterius
Source avec Zip Source avec une capture CRYPTAGE : MÉTHODE DE TRANSPOSITION par bad_dark_spirit
Source avec Zip Source avec une capture CRYPTAGE : MÉTHODE DE SUBSTITUTION par bad_dark_spirit
Source avec Zip Source avec une capture SOUNDCRYPT par craftsystem

Commentaires et avis

Commentaire de craftsystem le 23/09/2007 12:42:19

Faille avec strcmp

trops facile
merci baboon

alors si quelqu'un peu me guider
sur comment faire en sorte de ne pas voir la comparaison
sa serais cool.

merci

Commentaire de Oniria le 23/09/2007 13:37:07

Bonjour,

Je trouve que ta source est sympa. Certe, elle est très facilement contournable voir même trop mais pour faire une protection difficilement piratable, delphi n'est pas (d'ailleur aucun langage évolué) adapté pour la tache. En effet, toutes tes chaine de caractére vont apparaitre dans WDASM ainsi que ton FindWidows qui sera tout de suite visible donc contournable. Mais cette protection est efficace contre quelqu'un ne maitrisant pas l'assembleur (Il n'utilisera pas Softice ou autre car il ne sauras pas quoi en faire).

Par contre, je salue l'initiative, de plus, c'est très instructif. Notamment sur le principe de fermer les applis concernées...

Bonne continuation

Oniria

Commentaire de craftsystem le 23/09/2007 13:46:14

merci

en parlant des strcmp
j'ai trouvé la solution
Merci Tiga qui m'a m'y sur la voie

après un keygenme comme ça
sa vie 5 min et encore

je te tiendrais au courant de l'évolution

Commentaire de f0xi le 23/09/2007 17:36:09 administrateur CS

il ne faut pas couper les logiciels, il faut interdire le demarrage de ton programme si l'un des logiciels est en cours d'utilisation.

si le mec travail sur un autre programme avec l'un de ces logiciels, qu'il n'a pas sauvegarder et qu'en lancant ton prog ça lui coupe tout, tu risque de te prendre un mega-coup-de-boulle dans la face.

regarde les jeux, il refuse de se lancer si un debuger "blacklisté" est en fonction.
mais ce genre de protection n'arrete pas les vrai crackers.

Commentaire de craftsystem le 23/09/2007 17:41:32

5 minute top chrono

on Xor tous les test de detectio antidebug

breaker sur une des clé affichier dans strData
F8,F8,F8... et un beau jour on tombe sur le serial

Commentaire de craftsystem le 23/09/2007 17:43:01

le problème c'est la comparaison vraiment trops visible


un collègue ma refilé sa

longueur du nom +1 +1 +1 = X1
serial -1 -1 = X2
X1 - X2 ?= 0
ou
X1 xor X2 ?= 0

bien bo mais maintenant fo le traduire
si yen a un qui veut me donner un coup de pouce
se sera avec grand plaisir

Commentaire de craftsystem le 23/09/2007 17:52:43

un cracker n'est pas gentille avec les protection
alors pour etre gentille avec eux

WM_CLOSE

au moin sa donne le ton

Commentaire de f0xi le 23/09/2007 17:54:36 administrateur CS

procedure TForm1.FormActivate(Sender: TObject);
var CanRunning : boolean;
  function __inp(const WindowName : string) : boolean;
  begin
    result := FindWindow(WindowName, nil) = 0;
  end;
begin
  CanRunning := __inp('OllyDbg') and
                __inp('TIdaWindow') and
                __inp('OWL_Window') and
                __inp('TDeDeMainForm') and
                __inp('#32770');
  
  if not CanRunning then
    Application.Terminate;
end;

Commentaire de craftsystem le 23/09/2007 17:59:43

sa raccourci le code d'un coup
bien vus fOxi

Commentaire de japee le 24/09/2007 10:14:34 administrateur CS





procedure TForm1.FormActivate(Sender: TObject);
begin
  if  FindWindow('OllyDbg', nil)
    + FindWindow('TIdaWindow', nil)
    + FindWindow('OWL_Window', nil)
    + FindWindow('TDeDeMainForm', nil)
    + FindWindow('#32770', nil) <> 0 then
          Application.Terminate;
end;

;-)

Commentaire de craftsystem le 24/09/2007 12:07:54

des que j'ai reglé cette histoire strcmp
je fais la mise jour

je pensé a un truc...
si je faisais la comparaison
pas avec des string mais avec des integer

bref j'arrete de parlait et je boss merci Japee

Ps: c'est le concours du code le plus cours ou quoi?

merci pour tous

Commentaire de Zeroc00l le 04/10/2007 11:19:11

Pas besoin d'être hacker !
Si les deux logiciels peuvent pas se supporter on les lance pas en meme temps !

Moi je :

lance le keygen,
le copie dans le presse papier,
ferme le keygen,
lance l'application,
rentre le keygen ...

Non ?

Commentaire de Zeroc00l le 04/10/2007 11:23:39

A la limite il faudrait demander à windows quels sont les noms des programmes qui ont été lancé
Je ne sais pas si ca existe...
Mais dans un log, le journal d'evenement ou que sais-je ca doit se trouver.
Ensuite si le logiciel à proteger détecte dans cet historique un truc qui lui plait pas, il modifie un fichier de config interne (interne = binaire)
et interdit toute tentative de lancement / d'install et affiche un message...

Commentaire de craftsystem le 04/10/2007 11:26:34

oui certe

mais tous le monde ne connais pas se que toi tu connais
sur cent personnes il y en a 5 qui sauront comment fonctionne une protection, meme si a mon gout 5 personnes c'est déjà trops.

mais je te remercie pour remarque. Elle me sera utile.



Commentaire de craftsystem le 04/10/2007 11:28:20

j'apprecie encore plus ta deuxième remarque
qui a mon gout n'est pas une mauvaise idée

et je te dirais tous est possible

Commentaire de craftsystem le 04/10/2007 11:31:42

un hacker n'est pas un cracker

juste une petite remarque en passant,
riende bien méchant.

Commentaire de craftsystem le 04/10/2007 11:35:53

je vien de bosser sur un keygenme avec mon pote Hacker13

et franchement sa devrait le faire,
il devrait poser la source, je lui laisse l'honneur,
de vous présenter un travaille de groupe,
qui n'utilise pas spécialement des truc de fous
exemple mon system d'handle, mais une idée que j'ai cité un peu plus haut,

comparaison des serials en Integer, se qui rend la recherche
beaucoup plus hardu.

Bref il vous expliqueras tous sa au moment voulus

Commentaire de Zeroc00l le 07/10/2007 20:14:19

Cracker ... Hacker ... Pirate ... tous dans le meme panier pour moi !
"Han lalalala mais t'es fou c'est pas pareil" dirons certains .
Qu'il soient honnete ou pas ne sont-ils pas de toute manière des cheaters :D

Bon bref...
Admetons que 5% des gens aient les connaissances suffisantes.
Maintenant la vrai question est : A quoi ressemble le panel des consommateurs a qui tu destine cette application ?
Il y a de fortes chances que la moitié de ce panel fasse parti des 5% de la population !
Sans rien programmer mon pere à déjà utilisé un keygen par exemple.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

detection ouverture de session [ par WinBernardo ] Bonjour à tousComment faire pour detecter l'ouverture de session sous NT4.0, 2000 et 98 sans utiliser le Windows message WM_USERCHANGED qui n'est plus Detection de machines connectées a mon PC [ par ouldkhaouat ] Salut!Je veux savoir par un programme delphi, comment détecter (savoir) les machines (nom ou @IP) de mon réseau local qui sont connectées à mon PC sur detection connexion internet sous Delphi 6 [ par Smeito79 ] Slt a tous,je voudrai creer un programme qui detecte lorceque la connexion a internet est établie et lorcequ'elle est coupé.J'ai deja vu ce sujet sur detection os (win9x/NT/2000/XP) comment?! [ par gaudetm ] bonjour,je souhaite savoir comment faire pour detecter le type de l'OS sous windows avec delphi5.C'est en fait pour executer des fonctions qui dépende detection os, dossier windows, variables d'environnement... [ par gaudetm ] Bonjour, je sui débutant,et je souhaite savoir, si qcq'un peut m'aider, comment connaitre la version de windows (tout simplement win9x/2000/XP) et con Crackme [ par neowa ] luvoila , je veut realiser un crackme , qui me permettra de develloper mes capacitée en delphi 6.je voudrait : un algo , qui prendrai la date sous cet Cryptage MD2 MD4 MD5 [ par MAsterC ] Bonjour à tous! J'ai Delphi 7 et Borland C++ Builder 6 puis dans le logiciel C++ de Borland dans l'onglet "Indy - Divers" il y a Les composant de Cryptage MD5 [ par Kruger ] Bonjour tous le monde, je suis en train de develloper une petite application sous delphi 6 entreprise dont une partie est "protégée" par un mots de p Detection mac/pc [ par noya ] Bonjour,je suis en train de developper un cd-rom en flash, et je me demandais s'il etait possible par une quelconque appli (ici delphi) de savoir s'il detection application externe [ par MoveX ] (delphicool tu reconnais le titre?)bon j aimerais detecter si une application tourne, j ai bien vu la methode findwindow comme dans la source de delph


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,186 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales