CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 09 22:01:54

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

FAIRE DISPARAITRE LA BARRE DE TâCHE... par leader2000

RE : CHERCHER DES VALEURS DANS UN FICHIER BIN par Nicolas___

RE : GLSCENE ET FICHIER 3DS PENDANT LE RUNTIME, BESOIN D'AIDE par ramon321123

RE : C'EST QUOI L'éQUIVALENT EN DELPHI DE FAIRE BOUTON DROIT NOUVEAU SUR UN FICHIER EXCEL par toutoughou

RE : GLSCENE ET IMPORTATION DE FICHIERS par ramon321123

+ de logiciels à télécharger

1 467 505 membres
563 nouveaux aujourd'hui
15 052 membres club

Trouver une ressource

Trouvez une ressource parmi 40 106 codes, 1 304 621 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

KEYGENME PROTECTION

Information sur la source

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é: 5 331 / 618

Auteur : craftsystem

Site perso

Ecrire un message privé

Note :
Aucune note

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

CrackMe.dpr 185 octets
CrackMe.ex589 312 octets
main.dfm70 004 octets
main.pas 7 074 octets

Télécharger le zip

Historique

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

Sources du même auteur

WEBDEZIGN FORMULAIRE

BLOQUER LE TASKMGR SANS CLÉ DE REGISTRE

CRÉER UN INSTALLATEUR POUR VOS PROGRAMME

INTERPRÉTEUR DE SYNTAXE

SOUNDCRYPT

Toutes les sources de craftsystem

Sources de la même categorie

SECUSB ; LOGICIEL D'EFFACEMENT SÉCURISÉ POUR CLEF USB par ludodelphi

PROTECTION COPIE CD, OU PROGRAMME SUR DONGLE USB par Huugooo

KEYGENME par craftsystem

CRYPTEUR / DÉCRYPTEUR DE FICHIERS par Romano58

GÉNÉRATEUR DE MOT DE PASSE par oliverdev

Toutes les sources de la catégorie Sécurité

Sources en rapport avec celle ci

CRYPTAGE : MÉTHODE DE TRANSPOSITION par bad_dark_spirit

CRYPTAGE : MÉTHODE DE SUBSTITUTION par bad_dark_spirit

SOUNDCRYPT par craftsystem

KEYGENME par craftsystem

HROT, COMPRESSION CODÉE DE FICHIER PAR CLEF 128BITS par f0xi

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