ich habe einen Kopierschutz programmiert, der "normale" Computernutzer davon abhalten sollte Programme zu kopieren. Gegen Programmierer hilft dieser Schutz allerdings nicht, da man ihn leicht knacken kann. Ich wollte mal wissen was ihr davon haltet.
Hier ist mal der Code
Code: Alles auswählen
Define a.s
a = Str(Date())
Name.s = InputRequester("Kopierschutz V1.1","Programmname (ohne .exe)","")
Name + ".exe"
If CreateFile(0,"E:\Sich_Eige_Dateien\Purebasic\Programme(.pb)\Kopier.pb") ;Naja Bei euch ist es bestimmt ein anderer Pfad, wo die Purebasic Dateien abgespeichert werden.
WriteStringN(0,"If (" + a + ") = GetFileDate(ProgramFilename(),#PB_Date_Created)")
WriteStringN(0,"SetEnvironmentVariable(" + Chr(34) + "progkopi" + Chr(34) + "," + Chr(34) + "1" + Chr(34) + ")")
WriteStringN(0,"Else")
WriteStringN(0,"SetEnvironmentVariable(" + Chr(34) + "progkopi" + Chr(34) + "," + Chr(34) + "2" + Chr(34) + ")")
WriteStringN(0,"MessageRequester("+ Chr(34) + "Programm" + Chr(34) + "," + Chr(34) + "ERROR: Bitte wenden Sie sich an den Hersteller." + Chr(34) + ")")
WriteStringN(0,"end")
WriteStringN(0,"endif")
WriteStringN(0,"; IDE Options = PureBasic 4.31 (Windows - x86)")
WriteStringN(0,"; CursorPosition = 7")
WriteStringN(0,"; EnableXP")
CloseFile(0)
Else
MessageRequester("Kopierschutz V1.1","Kann Kopierschutz-Include-Datei nicht erstellen.")
End
EndIf
Repeat
Delay(1000)
Until -1 <> FileSize(Name)
If DeleteFile("E:\Sich_Eige_Dateien\Purebasic\Programme(.pb)\Kopier.pb") ;Da auch
Else
MessageRequester("Kopierschutz V1.1","Kann Kopierschutz-Include-Datei nicht löschen. Bitte manuel löschen unter: E:\Sich_Eige_Dateien\Purebasic\Programme(.pb)\Kopier.pb")
EndIf
SetFileDate(Name,#PB_Date_Created,Val(a))
MessageRequester("Kopierschutz V1.1","Datei geschützt.")
P.S. Ach und bei dem Prog das geschützt werden soll muss in der ersten Zeile stehen Includefile "Kopier.pb"
THEMAVERSCHOBEN [Feedback - Anwendungen > Code, Tipps und Tricks]
Andesdaf