Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   THC (Source Code Encryption Tool-beta Version) .... (https://www.delphipraxis.net/20514-thc-source-code-encryption-tool-beta-version.html)

justiver 19. Apr 2004 14:16


THC (Source Code Encryption Tool-beta Version) ....
 
Liste der Anhänge anzeigen (Anzahl: 3)
-THE HARDCODER- ...

yo leute ...
Habe mich mal wieder rangesetz und meinen alten Hardcoder ( noch in vb 5.0 ) mal in Delphi übersetz und musste leider feststellen , daß es so unter Delphi gar nicht funktioniert !! :pale: :wall:

Also habe ich flux den Funktionsumfang etwas erweitert .

Was macht das Programm :

Es kodiert ( per XOR ) Methode Strings oder Textdateien in Hardcode .
Wobei der kodierungsfaktor selbst gewählt werden kann ,
oder per Zufall eine Zahl von 0 bis 31 generiert wird . Dieser Code
wird dann in sein ( vielleicht Shareware ) Programm eingefügt und
erst zur Laufzeit dekodiert . Somit kann verhindert werden , daß
jemand z.B. mit einem DisAssembler nach Strings oder Zeichenketten
in dem EXE- File sucht . Wenn der Faktor per Zufall gewählt wird ,
muß man natürlich die verschiedenen Faktoren z.B. in eine Header Datei
schreiben oder direkt in den Source mit einfügen .

Das geht ungefähr so ....
...
Var
faktor:String;
hardcode:String;
Begin
hardcode:= CHR(84)+CHR(101)+CHR(105)+CHR(114);
faktor:= '0#0#26#6#'
End


wenn man jetzt eine MessageBox mit dem Variable hardcode füttert ,
kommt nur Salat raus ...
wenn man aber jetzt den faktor ausliest und jede einzelne Zahl
(# sind nur Platzhalter) ausliest und dann per XOR Methode zurück
kodiert kommt das wort "Test" heraus .. Das muß natürlich zur Laufzeit
passieren ...

Wenn man das gemacht hat , kann man in der Exe-File soviel man will nach
dem String "Test" suchen und findet nix ... gar nix ....

Ich habe schon einmal die vorherige alpha/beta Version und einen Screenshot hochgeladen .

Ich hoffe es gefällt Euch ....
Es hat noch ein paar Bugs , aber ansonsten funktioniert es !
Die neue Version ist Bereits in Arbeit und wird hoffentlich noch heute fertig !
Sie soll dan fertigen Source Code rausschmeißen ! Mal gucken ob das klappt .
Info zum Release :

THC [ The HardCoder ]
version 0.8b (alte version)
läuft eigentlich unter alles Windoof vers.
Download ca. 237KB

viel spaß beim Betatesten
rückinfo an :
mailto://Justiver@gmx.de

und nicht mekkern wegen der vielen Fehler neue Version ist unterwegs .
Schreenshot liegt auch bei :bounce2:
Thc.jpg ist vom neuen Hardcoder ( vorgeschmack )
Main hardcoder.JPG ist der alte (dl verfügbar)
Hardcoder(alte beta).zip ist der alte zum testen des Funktionsumfangs

KÖNNT VIELLEICHT ETWAS HILFE GEBRAUCHEN BEI DER NEUEN VERSION

Ultimator 19. Apr 2004 14:33

Re: THC (Source Code Encryption Tool-beta Version) ....
 
Was ist das für ein komischer Fensterstil? Das "x" in der Ecke so langgezogen?
Aber ansonsten ist das Programm echt gut.

justiver 19. Apr 2004 14:36

Re: THC (Source Code Encryption Tool-beta Version) ....
 
mach mal Screenshot ..... Bei mir ist das normal so wie im Screenshot !!
oder meinst Du die neue Version ..... da kommt ja noch ein Manifest *g*
das passtsschon ..
hmm ...in der neuen Version ist das weg !!!

shmia 19. Apr 2004 14:43

Re: THC (Source Code Encryption Tool-beta Version) ....
 
Ich frage mich gerade nach dem Unterschied von
Delphi-Quellcode:
hardcode:= CHR(84)+CHR(101)+CHR(105)+CHR(114); // Variante 1
// oder so
hardcode:= #84#101#105#114; // Variante 2
Erzeugt der Kompiler bei Variante 1 einen String und legt diesen im Programmcode ab
oder setzt er zur Laufzeit Zeichen für Zeichen zu einem String zusammen ? :wiejetzt:
Die Variante 2 ist zumindest kürzer.

Du könntest die verschlüsselten Strings übrigen gleich ins Clipboard kopieren (falls du das noch nicht drin hast):
Delphi-Quellcode:
Clipboard.AsText := ...

justiver 19. Apr 2004 15:09

Re: THC (Source Code Encryption Tool-beta Version) ....
 
Nein , die erste Variante !!

Du brauchst den faktor um per XOR die CHR Werte wieder zurück zu kodieren
ungefähr so :

z = CHR(122)

XOR(1) bei z macht CHR(123) ...

es wird der CHR Wert verschoben ..
Nach jedem Zeichen wird der Faktor per Zufall gewählt und in die
Header Datei (musst du selbst mit einbauen) geschrieben . Ohne Faktoren
kannst Du nichts zurück kodieren !!

musst dann per XOR das ding zurück kodieren ...

genaue Anleitung follgt auf jeden Fall noch ...
bis dahin ...
melde mich erst später wieder .. muß coden ....
:coder: :coder: :coder: :coder: :coder:



greetings ...


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz