COMPOSANT HASHPROTECTOR (PROTÉGEZ VOS APPLICATIONS CONTRE LA MODIFICATION DE VO
Rudy3212
Messages postés154Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention31 décembre 2007
-
8 avril 2006 à 17:36
cs_matrix1
Messages postés169Date d'inscriptiondimanche 16 février 2003StatutMembreDernière intervention15 avril 2008
-
15 janv. 2008 à 13:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_matrix1
Messages postés169Date d'inscriptiondimanche 16 février 2003StatutMembreDernière intervention15 avril 2008 15 janv. 2008 à 13:25
Pour les NEWBIES il ne s'agit pas de chercher le texte de la boit de dialogue, amis la boite de dialogue elle même si vous voulez, l'API de cette boite de dialogue, par ce que faire apparaitre ou disparaitre une fenêtre c du gâteau, mais c les API qu'on cherche.
May_delphi_be_with_you.
cs_matrix1
Messages postés169Date d'inscriptiondimanche 16 février 2003StatutMembreDernière intervention15 avril 2008 15 janv. 2008 à 13:17
Ce que t'as Mr shining sur le RemObject si intéressant, et j'avoue que j'ai pensé a ça avant, mais j'ai bien peur que c pas tros dure de craké ça, bon! je pense!! c la presque la même façon q'une application qui contien a loader qui decompresse et decrypte l'application original, c a dire faire un dumpe et bla bla en peut faire merveilles avec Ollydebug.
on tous cas j'ai pas encore éssayé par manque du temps et en plus en j'ai pas encore eu un projets Top secret a faire aller May Delphi be with you.
cirrusminor
Messages postés1Date d'inscriptionvendredi 20 janvier 2006StatutMembreDernière intervention25 octobre 2006 25 oct. 2006 à 02:01
cracké ;)
6/10 ciao.
_cirrus_
Rudy3212
Messages postés154Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention31 décembre 2007 12 avril 2006 à 11:49
non, mais en faîte cété pas la faute a delphi lol, j'ai installé un truc qui ma tout fait bogue, j'ai désinstaller prog pareil, mais une petite réstauration et c'est reparti ^^
cs_shining
Messages postés304Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention10 mars 2012 10 avril 2006 à 21:39
Okay merci pour l'info :), c'est vrai qu'une boîte de Dialogue qui ne bloque pas la fiche chui ptdr !!!, ouep chez moi aussi ça bloque la form et pareil j'ai aussi XP faudra voir sur des plateform Win98 et 95 ce que ça donne, la nouvelle version offrira un peu plus de possibilitées !!, au fait si Delphi plante t'es pas obligé de tout re-intaller lol un simple reboot de la machine et le tour est jouer !!! enfin en principe ô_Ô
Rudy3212
Messages postés154Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention31 décembre 2007 10 avril 2006 à 21:20
Voila j'ai réglé mon pb ^^,
Bon ton prog marche super bien et sa bloque la form de départ sa c'est cool.
Pour l'info j'ai Windows Xp Familiale SP2 et un autre PC avec SP1
Rudy3212
Messages postés154Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention31 décembre 2007 10 avril 2006 à 20:21
Désolé je ne peut tester Delphi vient de boguer mechant et plus rien n'aparait sur ma form et toute les ecritures dans l'ide sont manquantes lol, afin jle réinstall je test ton code et je te tient au courant :)
cs_shining
Messages postés304Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention10 mars 2012 10 avril 2006 à 00:28
Ouep c'est bien toi (enfin je crois) ^-^
Ouep pour le messagebox j'ai vu ça ô_Ô Ô_ô Ô_Ô!! désolé c'est un petit étourdissement de ma part ^_^ en fait c'est pas un bug !!! c'est juste que la boîte de message est non "blocante" c'est un problème de flag , une nouvelle version est en cours ... avec compréssion de l'exe et plus !!!
en attendant voici une rectif du code
dans HashProtectors.pas
remplace la fonction "function THashProtector.MBAF28A821A1229A1Z(S : String): Integer;"
par
function THashProtector.MBAF28A821A1229A1Z(S : String): Integer;
var
K : String;
H : Integer;
P1,P2 : Pointer;
begin
// Préparation de la clé
K := HexToStr(Decrypt(D93E4DCD578A1B24556C54121D5F2E90 , 'FC6BF536BE94401DB4BD0F82A666B070'));
H := LoadLibrary(PChar(HexToStr(Decrypt(Z6A38AE74A0FB8E45F48A2EC4FZHJLFM , K))));
@Z60F8F11890A820383 := GetProcAddress(H , Pchar(HexToStr(Decrypt('ì¦?°Ý7Ûç`å+³A?', K))));
// Text
if S <> '' then
P1 := PChar(S) else
P1 := PChar(HexToStr(Decrypt('ÍRt?ß¼c?R§?Äcp', K)));
je pense qu'au lieu de se prendre la tête à crypter les Api's windows il me vient à l'esprit ceci
depuis plusieurs mois(Années ?) une équipent bossent sur un Script Pascal qui gère l'appel au dll ect.. assez puissant !!!
pourquoi ne pas tout simplement crypter le script pascal avec un bon DES et offrir ainsi l'opportunité à l'utilisateur de faire ses propres routines !!
à vous de voir on pourra par exemple faire une boîte de dialogue "mot de passe" en Script Pascal , et étant donné que ça sera crypté il ya donc moins de risque de voir apparaître l'appel au Api's ..., certes certaines les Api's peuvent être cryptées convenablement comme dans l'exemple MessageBox "Warning Failure" , "Invalid pointer division by zero" ect.. ;) mais le problème est qu'on appel l'api LoadLibrary !!!!, enfin bon c'était juste pour te montrer comment faire un checksum "moderne" :), tiens moi au courant si le code ci-dessus marche chez toi ainsi que ta version de windows !!
Rudy3212
Messages postés154Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention31 décembre 2007 8 avril 2006 à 20:08
C'est bon sa marche, mé sa me sert pas trop, puisque Ma form marche tjs, ya juste un messagebox pas très génante.
Comment peut-on faire pour corrigé cela ?
Rudy3212
Messages postés154Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention31 décembre 2007 8 avril 2006 à 18:58
Voila quand je le fait a mon Programme j'ajoute dans les Uses et je met les var,
ben mon programme me dit BadKey plusieur fois et se ferme.
Je comprend pas Si tu sais pk ?
Rudy3212
Messages postés154Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention31 décembre 2007 8 avril 2006 à 18:00
Merci, sa marche super Bien, c'est ce que je rechercher Cool :).
jsé pas comment te remercier lol.
Ha j'allez oublier lol, faut notez :)
bien sur 0/10 ^^
Comme tu peut le voir
Rudy3212
Messages postés154Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention31 décembre 2007 8 avril 2006 à 17:36
lol il me semble que la personne dont tu fait référence c'est moi lol, bon donc je dl tout de suite et jte tien au courant et surtout Merci ^^
15 janv. 2008 à 13:25
May_delphi_be_with_you.
15 janv. 2008 à 13:17
on tous cas j'ai pas encore éssayé par manque du temps et en plus en j'ai pas encore eu un projets Top secret a faire aller May Delphi be with you.
25 oct. 2006 à 02:01
6/10 ciao.
_cirrus_
12 avril 2006 à 11:49
10 avril 2006 à 21:39
10 avril 2006 à 21:20
Bon ton prog marche super bien et sa bloque la form de départ sa c'est cool.
Pour l'info j'ai Windows Xp Familiale SP2 et un autre PC avec SP1
10 avril 2006 à 20:21
10 avril 2006 à 00:28
Ouep pour le messagebox j'ai vu ça ô_Ô Ô_ô Ô_Ô!! désolé c'est un petit étourdissement de ma part ^_^ en fait c'est pas un bug !!! c'est juste que la boîte de message est non "blocante" c'est un problème de flag , une nouvelle version est en cours ... avec compréssion de l'exe et plus !!!
en attendant voici une rectif du code
dans HashProtectors.pas
remplace la fonction "function THashProtector.MBAF28A821A1229A1Z(S : String): Integer;"
par
function THashProtector.MBAF28A821A1229A1Z(S : String): Integer;
var
K : String;
H : Integer;
P1,P2 : Pointer;
begin
// Préparation de la clé
K := HexToStr(Decrypt(D93E4DCD578A1B24556C54121D5F2E90 , 'FC6BF536BE94401DB4BD0F82A666B070'));
H := LoadLibrary(PChar(HexToStr(Decrypt(Z6A38AE74A0FB8E45F48A2EC4FZHJLFM , K))));
@Z60F8F11890A820383 := GetProcAddress(H , Pchar(HexToStr(Decrypt('ì¦?°Ý7Ûç`å+³A?', K))));
// Text
if S <> '' then
P1 := PChar(S) else
P1 := PChar(HexToStr(Decrypt('ÍRt?ß¼c?R§?Äcp', K)));
// Caption
P2 := PChar(HexToStr(Decrypt('¸?<ò.½&Jp?<Æc$¤Ábµ?Zÿ??#Í;', K)));
//MessageBox
Z60F8F11890A820383(0 , P1 , P2, StrToInt(HexToStr(Decrypt('?̲pÚó[g¬ÿÊKø(?Ð' , K))));
FreeLibrary(H);
result := $128;//Fake
end;
je pense qu'au lieu de se prendre la tête à crypter les Api's windows il me vient à l'esprit ceci
depuis plusieurs mois(Années ?) une équipent bossent sur un Script Pascal qui gère l'appel au dll ect.. assez puissant !!!
pourquoi ne pas tout simplement crypter le script pascal avec un bon DES et offrir ainsi l'opportunité à l'utilisateur de faire ses propres routines !!
http://www.remobjects.com/freedownloads.asp?id={02A079E7-80AD-4CB4-BCF6-D213F45C4FC4}
à vous de voir on pourra par exemple faire une boîte de dialogue "mot de passe" en Script Pascal , et étant donné que ça sera crypté il ya donc moins de risque de voir apparaître l'appel au Api's ..., certes certaines les Api's peuvent être cryptées convenablement comme dans l'exemple MessageBox "Warning Failure" , "Invalid pointer division by zero" ect.. ;) mais le problème est qu'on appel l'api LoadLibrary !!!!, enfin bon c'était juste pour te montrer comment faire un checksum "moderne" :), tiens moi au courant si le code ci-dessus marche chez toi ainsi que ta version de windows !!
8 avril 2006 à 20:08
Comment peut-on faire pour corrigé cela ?
8 avril 2006 à 18:58
ben mon programme me dit BadKey plusieur fois et se ferme.
Je comprend pas Si tu sais pk ?
8 avril 2006 à 18:00
jsé pas comment te remercier lol.
Ha j'allez oublier lol, faut notez :)
bien sur 0/10 ^^
Comme tu peut le voir
8 avril 2006 à 17:36