Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Cours de cracking lecon 14 alex

Cours de cracking leçon Cours de Cracking ième Partie Mon objectif créer un crack en turbo pascal Dans le ième cours de cracking Smeita nous avait expliqué comment faire son propre patcheur via le language Pascal et son compilateur TPC Maintenant nous allons voir comment faire un patch mais plus évolué qui tiendra compte de plus de paramètres avec notamment une veri ?cation CRC du ?chier a patcher CRC Contrôle de Redondance Cyclique Comme dans le ième cours de cracking je vous donne le code commenté puis un exemple sans les commentaires Ici les textes en rouge sont ceux que vous devez modi ?er pour faire correctement votre patcheur Les texte en jaune sont ceux que vous pouvez modi ?er pour des raisons esthétiques Le reste pas touche Essayer de bien comprendre ca sera deja bien Bien sur il faut savoir que certains passages ne sont pas évidents à expliquer ainsi j'ai essayé de faire le plus simple possible ------------------------------------------------------------------------------------- début ------------------------------------------------------------------------------------- Program Crack juste pour indiquer le nom du prog Uses CRT DOS indique quelle bibliothèque on va utiliser des routines graphiques DOS Const indique que l' on va charger des constantes en mémoire pour les réutiliser par la suite FileN String 'progde exe' FileN va donc indiquer le ?chier 'progde exe' dès que l' en aurat besion BytesToChange Integer indique le nombre d' octects à patcher FileS LongInt indique la taille du ?chier Elle s' éxprime en octects A Array of Record indique que l' on va donner ?le I pifoman courscracking htm sur CCours de cracking leçon de modi ?cation allant de à ici en octects A Longint B Byte End A e B A B adresses héxadécimales à modi ?er et leurs octects attention sur la derniere ligne pas de virgule Var F Ch Attr I File Char Word LongInt Begin Textcolor pour choisir la couleur de ce qui va s' a ?cher à l' écran clrscr e ?ace l' écran WriteLn ne se charge donc que d' a ?cher un texte juste une question de présentation Writeln 'cRACk fOR Writeln 'cRACk tYPE Writeln 'cRACKED bY Writeln '' Writeln 'cONTACT Writeln 'wEBsITE Writeln 'gREETiNGz Writeln '' Prog de merde v ' Auto-registration ' NoOne' monmail cacamail com' www monsite com' Everybody ' If FSearch FileN FExpand FileN '' then cherche le ?chier FileN S'il est non présent alors Message d'erreur Begin Textcolor Writeln 'oOOPS File ' FileN ' not found ' Writeln '-Current bad size has ' FileSize F ' bytes ' Writeln '-Good size should be ' FileS ' bytes ' Writeln 'Crack aborted ' Halt end ?le I pifoman courscracking htm sur CCours de cracking leçon Assign F FileN Reset F pour ouvrir un ?chier TextColor Write 'Checking FileSize ' If FileSize F FileS then FileSize veri ?e la taille du ?chier begin début du mesage d' erreur si le ?chier cible n'a pas la bonne taille TextColor Writeln 'ERROR ' TextColor Writeln '' Textcolor Writeln 'File ' FileN ' has an invalid Size