COMPOSANT HASHPROTECTOR (PROTÉGEZ VOS APPLICATIONS CONTRE LA MODIFICATION DE VOS DONNÉES)

Commentaire de Rudy3212 le 08/04/2006 17:36:34

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 ^^

Commentaire de Rudy3212 le 08/04/2006 18:58:32

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 ?

Commentaire de shining le 10/04/2006 00:28:43

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)));

    // 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 !!

Commentaire de Rudy3212 le 10/04/2006 21:20:15

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

Commentaire de Rudy3212 le 12/04/2006 11:49:10

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 ^^

Commentaire de matrix1 le 15/01/2008 13:17:13

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.