Trail nach [x] Tagen selbst löschen

pittgi · 14. April 2013, 16:25

Hallo Freunde,

ich sitze jetzt nun schon seit Stunden an meinem Programm, fast ist es fertig - mein Gehirn ist am brennen, nichts geht mehr.
Jetzt fehlt nur noch das letzte kleine Feature.
Und zwar benötige ich eine Art "Trail-Funktion", was soviel bedeutet, dass das Programm nach x Tagen (in meinem Falle 60) eine Funktion ausführt (hier sich löscht).
Mein Problem liegt allerdings darin, dass (mein Hirn soeben durchbrennt) ich das ganze über den Tag im Jahr steuere. Somit entstehen Problematiken mit der Differenz (Bsp.: Trail beginnt an Tag 320 (somit endet die Trail-Version am tage 380, welchen es garnicht gibt)).

Bitte helft mir! Z.z. sieht es bei mir so aus:

VB.NET-Quellcode

Sub set_impact_to_zero()
'Impact (Selbstzerstörung) wird verschoben
Dim im As Integer = My.Computer.Clock.LocalTime.DayOfYear + 60
If im > 365 Then
im = im - 365
End If
My.Settings.impact = im
My.Settings.started = True
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.started = False Then
set_impact_to_zero()
Else
'Hier checken, ob 60 Tage vergangen sind
End If
End Sub

FreakJNS · 14. April 2013, 16:35

Einfach die gut durchdachten Klassen des Frameworks benutzen:

VB.NET-Quellcode

Option Strict On
Dim dateStart As Date = ... 'der startzeitpunkt
Dim dauer As TimeSpan = TimeSpan.FromDays(30)'die gültigkeitsdauer
Dim dateEnde As Date = dateStart + dauer
If Now >= dateEnde Then
MsgBox("abgelaufen!")
End If

rotherford · 14. April 2013, 16:35

Wenn der Benutzer das Programm zum ersten mal ausführt, speicherst du einfach das Datum, an dem das "Trail" ablaufen soll.

VB.NET-Quellcode

If FirstRun Then
My.Settings.Expired = Now + TimeSpan.FromDays(60)
End If

Bei Jedem Aufruf deines Programmes bzw. in Zeile 30, fragst du ab, ob es abgelaufen ist.

VB.NET-Quellcode

if Now >= My.Settings.Expired Then
'abgelaufen
End If

/nicht getestet

Wichtig:
Der Code ist extrem ranzig und einfach zu manipulieren.

RodFromGermany · 14. April 2013, 16:43

@pittgi: Was, wenn der Rechner an diesem Tag nicht an ist oder das Programm nicht gestartet wurde?

SAR-71 · 14. April 2013, 17:35

Und es heißt Trial und Trail. :P

Mfg.
SAR

TVX · 14. April 2013, 19:38

Ich dachte irgendwie in der Richtung !

EDIT:

Ist immer noch ein Reiner Testaufbau aber geht :!:

VB.NET-Quellcode

Option Strict On
Imports System.IO
Public Class Form1
Dim Datum_Erststart As Date = Date.Now.Date
Dim Datei As String
Dim Pfad As String = "C:\Users\zeus\Desktop\Neuer Ordner (8)\Data_z.cfg"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Text = CStr("Aktuelles Datum: " & Datum_Erststart)
'Ermitteln ob Datei vorhanden ist,wenn ja auslesen und vergleichen mit heutigem Datum!
If My.Computer.FileSystem.FileExists(Pfad) Then
Datei = File.ReadAllText(Pfad)
Label2.Text = CStr("Ablaufdatum: " & Datei)
If Datum_Erststart > CDate(Datei) Then
MsgBox("Ihre Testphase ist abgelaufen")
End
Else
End If
Else
Dim Msg, Number, StartDate As String
Dim Days As Double
Dim SecondDate As Date = Datum_Erststart
Dim IntervalType As DateInterval
IntervalType = DateInterval.DayOfYear 'Monat-Tag-usw- als Interval einstellbar !
StartDate = CStr(Datum_Erststart) 'Zeit bei Start
SecondDate = CDate(StartDate)
Number = "20" 'Zeit in Tagen die hinzugerechnet wird (( DayOfYear ))
Days = Val(Number)
Msg = CStr(DateAdd(IntervalType, Days, SecondDate)) 'Neues erstelltes Datum (+20Tage)
'Datei erstellen und datum reinschreiben mit +20 Tage
Dim txt As String = Msg
Dim fss As StreamWriter = File.CreateText(Pfad) 'Später ins Gemüse wos keiner findet !
fss.Write(txt)
fss.Close()
'Ermitteln ob Datei vorhanden ist,wenn ja auslesen und vergleichen mit heutigem Datum!
Datei = File.ReadAllText(Pfad)
If Datum_Erststart > CDate(Datei) Then
End
End If
End If
'Restzeit bis Ablauf !
Dim Differenz_Zeit As Long = DateDiff("d", Datum_Erststart, Datei)
Label3.Text = CStr("Restzeit: " & Differenz_Zeit)
End Sub
'Label1 und Label2 sind nicht nötig !
End Class

LG Andre.................. :rolleyes:

FreakJNS · 14. April 2013, 21:06

@TVX
garnicht schön... xD
Nuir um ein paar Negativbeispiele zu nennen:

Zeile 12: Vergleichst du etwas String und Datum?! Option Strict On! Da kann nur murks bei rumkommen xD
Zeile 25: Warum der Weg über einen String? Warum nicht gleich ein Integer?
Zeile 18: Warum lokale Variablen oben deklarieren? Das ist total unübersichtlich. Deklariere doch erst dann wenn nötig und weise dann in einem Schritt den Wert zu
Zeile 19: Days ist vom Denken her ganzzahlig - Integer wäre angebracht
Zeile 10: Besser System.IO.FileInfo-Klasse benutzen als mit dem My-Namespace-Methoden zu hantieren. System.IO kann schon alles^^

Könnte denke ich noch mehr nennen^^ Soll keinesfalls böse gemeint sein!

Aber nochmal: Option Strict On!

TVX · 14. April 2013, 21:19

Ja ist klar hast recht , bin ja noch am basteln und werde Post 8 noch Edieren !

Hab mir aber Gedanken drum gemacht !

Hatte schon Angst das RodFromGermany mich wieder bürstet - aber was nicht ist das kann noch werden

LG Andre.........

PS: Option Strict On

TVX · 15. April 2013, 12:33

Bastelmappe :

Testphase mit Verschlüsselung Test 5.rar
www38.zippyshare.com/v/74968631/file.html

Crypter für Testphase Beispiel !.exe
www20.zippyshare.com/v/87277823/file.html

EDIT: MIT VERSCHLÜSSELUNGS TEST !

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.IO
Imports System.Security.Cryptography
Public Class Form1
Dim Datum_Erststart As Date = Date.Now.Date
Dim Datei As String
Dim Verschlüsselt As String
Dim Entschlüsseln As String
Dim Passverschlüsselung As String
'ANPASSUNGEN HIER !
Dim Ablaufzeit As Integer = "20" 'Testzeit jetzt In Tagen ! - Monate und Jahre möglich !
Dim Verschlüsselungspasswort_Zeit As String = "Mein Privates Passwort" 'Frei änderbar !
Dim Verschlüsselungspasswort_Passwort As String = "Mein Privates Passwort" 'Muss generiert werden - gehört zu Serial_Key !
Dim Serial_Key As String = "EUWQ/QIsjeC61WYRgoRs9aZdlVm4y5xwnC+8FzC5BVs=" ' Serial Key für nach der Testphase festlegen! = CF49-E3ZU-YK1P-LVQ5
Dim Dateipfad As String = "C:\Windows\System32\Data_z.cfg" 'Pfad + Speicherdatei (( Data_z.cfg )) die versteckt wird !
'ANPASSUNGEN ENDE !
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Anfang:
If My.Settings.Serial_Key = Serial_Key Then 'Wenn Key da ,dann sofort freischalten / wenn nicht weiter im Ablauf !
Label1.Text = "Aktuelles Datum: " & Datum_Erststart
Label2.Text = "Ablaufdatum: Keins !"
Label3.Text = "Vollversion !"
Label4.Text = "Key: " & My.Settings.Serial_Key
GoTo Direckt_mit_Key_freischalten
End If
Label1.Text = "Aktuelles Datum: " & Datum_Erststart
'Ermitteln ob Datei vorhanden ist ! - Wenn ja auslesen und zur Überprüfung springen ! - Wenn nicht existiert mit GoTo Weiter angegebene Zeit zurechnen und Datei ertellen !
If My.Computer.FileSystem.FileExists(Dateipfad) Then
Entschlüsseln = File.ReadAllText(Dateipfad)
'########################################################################################################################-Entschlüsseln 1/1 Anfang (( Zeit ))
Dim oAesProvider1 As New AesManaged
Dim btCipher1() As Byte
Dim Entschlüsseln_1() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator1 As New Rfc2898DeriveBytes(Verschlüsselungspasswort_Zeit, Entschlüsseln_1)
oAesProvider1.Key = oKeyGenerator1.GetBytes(oAesProvider1.Key.Length)
oAesProvider1.IV = oKeyGenerator1.GetBytes(oAesProvider1.IV.Length)
Dim ms1 As New IO.MemoryStream
Dim cs1 As New CryptoStream(ms1, oAesProvider1.CreateDecryptor(), CryptoStreamMode.Write)
Try
btCipher1 = Convert.FromBase64String(Entschlüsseln) 'Verschlüsselt rein
cs1.Write(btCipher1, 0, btCipher1.Length)
cs1.Close()
Datei = System.Text.Encoding.UTF8.GetString(ms1.ToArray) 'Entschlüsselt raus
Catch
MsgBox("Eine Startinformation konnte nicht gelesen werden !" & vbCrLf & vbCrLf & "Das Programm wird nun geschlossen !", MsgBoxStyle.Exclamation, "Fehler!")
End
End Try
'########################################################################################################################-Entschlüsseln 1/1 Ende (( Zeit ))
Label2.Text = "Ablaufdatum: " & Datei
GoTo Prüfe_Datum
Else
GoTo Weiter_zum_erstellen
End If
Prüfe_Datum:
If Datum_Erststart > CDate(Datei) Then
GoTo Prüfe_Serial_Key
Else
GoTo Freischalten
End If
Prüfe_Serial_Key:
If My.Settings.Serial_Key = Serial_Key Then
GoTo Freischalten
Else
GoTo Key_Eingabe
End If
Key_Eingabe:
Passverschlüsselung = InputBox("Ihre Testphase ist abgelaufen !" & vbCrLf & vbCrLf & "Bitte Key eingeben !", "Die " & Ablaufzeit & " Tage der Testphase ist zu Ende !")
'########################################################################################################################-Passwortverschlüsselung 1/3 Anfang
Dim oAesProvider3 As New AesManaged
Dim btClear3() As Byte
Dim btSalt3() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator3 As New Rfc2898DeriveBytes(Verschlüsselungspasswort_Passwort, btSalt3)
oAesProvider3.Key = oKeyGenerator3.GetBytes(oAesProvider3.Key.Length)
oAesProvider3.IV = oKeyGenerator3.GetBytes(oAesProvider3.IV.Length)
Dim ms3 As New IO.MemoryStream
Dim cs3 As New CryptoStream(ms3, _
oAesProvider3.CreateEncryptor(), _
CryptoStreamMode.Write)
btClear3 = System.Text.Encoding.UTF8.GetBytes(Passverschlüsselung) 'Eingang unverschlüsselt !
cs3.Write(btClear3, 0, btClear3.Length)
cs3.Close()
My.Settings.Serial_Key = Convert.ToBase64String(ms3.ToArray) ' Ausgang Verschlüsselt
My.Settings.Save()
'########################################################################################################################-Passwortverschlüsselung 1/3 Ende
If My.Settings.Serial_Key = "" Then
End
Else
GoTo Key_Eingabe_überprüfen
End If
Key_Eingabe_überprüfen:
If My.Settings.Serial_Key = Serial_Key Then
Label2.Text = "Ablaufdatum: Keins !"
GoTo Freischalten
Else
GoTo Falsche_Key_Eingabe
End If
Falsche_Key_Eingabe:
If MsgBox("Falscher Key !" & vbCrLf & vbCrLf & "Möchten Sie den Key erneut eingeben ?", CType(vbApplicationModal + vbYesNo, MsgBoxStyle), "Falscher Serial_Key !") = vbNo Then
End
Else
GoTo Anfang
End If
Weiter_zum_erstellen:
Dim Msg, Number, StartDate As String
Dim Days As Double
Dim SecondDate As Date = Datum_Erststart
Dim IntervalType As DateInterval
IntervalType = DateInterval.DayOfYear 'Monat-Tag-usw- als Interval einstellbar !
StartDate = CStr(Datum_Erststart) 'Zeit bei Start
SecondDate = CDate(StartDate)
Number = CStr(Ablaufzeit) 'Zeit in Tagen die hinzugerechnet wird (( Momentan in Tagen DayOfYear - sihe Interval ))
Days = Val(Number)
Msg = CStr(DateAdd(IntervalType, Days, SecondDate)) 'Neues erstelltes Datum (+20Tage)
'########################################################################################################################-Vershlüsseln Anfang (( Zeit ))
Dim oAesProvider As New AesManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes(Verschlüsselungspasswort_Zeit, btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, oAesProvider.CreateEncryptor(), CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(Msg) 'Eingang unverschlüsselt !
cs.Write(btClear, 0, btClear.Length)
cs.Close()
Verschlüsselt = Convert.ToBase64String(ms.ToArray) ' Ausgang Verschlüsselt
'########################################################################################################################-Vershlüsseln Ende (( Zeit ))
Try
IO.File.WriteAllText(Dateipfad, Verschlüsselt) 'Datei erstellen und datum reinschreiben mit +20 Tage
Catch ex As Exception
MsgBox("Ausnahmefehler das Programm wird geschlossen !", MsgBoxStyle.Critical, "Ausnahmefehler !")
End
End Try
Entschlüsseln = File.ReadAllText(Dateipfad) 'Datei vorhanden ist,wenn ja auslesen
'########################################################################################################################-Entschlüsseln 2/2 Anfang (( Zeit ))
Dim oAesProvider2 As New AesManaged
Dim btCipher2() As Byte
Dim Entschlüsseln_2() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator2 As New Rfc2898DeriveBytes(Verschlüsselungspasswort_Zeit, Entschlüsseln_2)
oAesProvider2.Key = oKeyGenerator2.GetBytes(oAesProvider2.Key.Length)
oAesProvider2.IV = oKeyGenerator2.GetBytes(oAesProvider2.IV.Length)
Dim ms2 As New IO.MemoryStream
Dim cs2 As New CryptoStream(ms2, oAesProvider2.CreateDecryptor(), CryptoStreamMode.Write)
Try
btCipher2 = Convert.FromBase64String(Entschlüsseln) 'Verschlüsselt rein
cs2.Write(btCipher2, 0, btCipher2.Length)
cs2.Close()
Datei = System.Text.Encoding.UTF8.GetString(ms2.ToArray) 'Entschlüsselt raus
Catch
MsgBox("Eine Startinformation konnte nicht gelesen werden !" & vbCrLf & vbCrLf & "Das Programm wird nun geschlossen !", MsgBoxStyle.Exclamation, "Fehler!")
End
End Try
'########################################################################################################################-Entschlüsseln 2/2 Ende (( Zeit ))
Label2.Text = "Ablaufdatum: " & Datei
If Datum_Erststart > CDate(Datei) Then 'Datei vergleichen mit heutigem Datum!
GoTo Prüfe_Serial_Key
Else
GoTo Freischalten
End If
Freischalten:
If Datum_Erststart > CDate(Datei) Then
Label3.Text = "Vollversion !"
Label4.Text = "Key: " & My.Settings.Serial_Key
Else
Dim Differenz_Zeit As Long = DateDiff("d", Datum_Erststart, Datei) 'Restzeit bis Ablauf anzeigen - wenn keine Restzeit = Vollversion !
Label3.Text = "Restzeit: " & Differenz_Zeit
End If
Direckt_mit_Key_freischalten:
End Sub
'Manuelle Keyeingabe Anfang !
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Manueller_Anfang:
Passverschlüsselung = InputBox("Bitte geben Sie nun ihren Key ein !", "Serial_Key ?")
'########################################################################################################################-Passwortverschlüsselung 2/4 Anfang
Dim oAesProvider4 As New AesManaged
Dim btClear4() As Byte
Dim btSalt4() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator4 As New Rfc2898DeriveBytes(Verschlüsselungspasswort_Passwort, btSalt4)
oAesProvider4.Key = oKeyGenerator4.GetBytes(oAesProvider4.Key.Length)
oAesProvider4.IV = oKeyGenerator4.GetBytes(oAesProvider4.IV.Length)
Dim ms4 As New IO.MemoryStream
Dim cs4 As New CryptoStream(ms4, oAesProvider4.CreateEncryptor(), CryptoStreamMode.Write)
btClear4 = System.Text.Encoding.UTF8.GetBytes(Passverschlüsselung) 'Eingang unverschlüsselt !
cs4.Write(btClear4, 0, btClear4.Length)
cs4.Close()
My.Settings.Serial_Key = Convert.ToBase64String(ms4.ToArray) ' Ausgang Verschlüsselt
My.Settings.Save()
'########################################################################################################################-Passwortverschlüsselung 2/4 Ende
If My.Settings.Serial_Key = "" Then
End
Else
GoTo Manuelle_Keyeingabe_überprüfen
End If
Manuelle_Keyeingabe_überprüfen:
If My.Settings.Serial_Key = Serial_Key Then
Label2.Text = "Ablaufdatum: Keins !"
Label3.Text = "Vollversion !"
Label4.Text = "Key: " & My.Settings.Serial_Key
' MsgBox("Das Programm wurde erfolgreich freigeschaltet", MsgBoxStyle.Information, "Serial_Key ok !")
Me.Refresh()
Else
If MsgBox("Falscher Key !" & vbCrLf & vbCrLf & "Möchten Sie den Key erneut eingeben ?", CType(vbApplicationModal + vbYesNo, MsgBoxStyle), "Falscher Serial_Key !") = vbNo Then
End
Else
GoTo Manueller_Anfang
End If
End If
End Sub
'Manuelle Keyeingabe Ende !

LG Andre..........

FreakJNS · 15. April 2013, 19:23

Oh je @TVX xD
Die ganzen GoTo's sind das schlimmste... Und den Serial im Code einzuarbeiten ist so als hättest du keinen... Außerdem scheinst du garnicht zu wissen was sich überhaupt hinter den Datentypen verbirgt. Immerhin castest du einen String zu einem String bevor du ihm einem Label zuweist (Zeile 188 etc).

btw: [Sammelthread] Code-Korrektur
(aber bitte nicht dort posten, deinen jetzigen Code wird dort niemand überarbeiten...er ist einfach zu lang)

Hast dir trotzdem mühe gegeben. Wenn du dir die Grundlagen nochmal ganz genau ansiehst wirst du schon in einem Monat über deinen Code lachen xD
lg

TVX · 15. April 2013, 19:37

Kann sein wollte halt mal wissen ob das so geht , die gotos sind nicht die schönsten aber verschafften mir beim testen nen guten überblick

Und wenn ich so weit zufrieden bin verbessere und ändere ich bis es schöner ist

Auserdem ist der innere Key verschlüsselt und wird durchs Programm verglichen !

So weit funktioniert es jetzt Reibungslos .

LG Andre.....................

RodFromGermany · 16. April 2013, 07:35

TVX schrieb:

die gotos sind nicht die schönsten aber verschafften mir beim testen nen guten überblick

ist doch die total falsche Herangehensweise.
Du versuchst permanent, die Aufgaben der anderen zu lösen, allerdings mit suboptimalen Mitteln. So wird das nix.
Gewöhne Dir erst mal einen ordentlichen Stil an.

TVX · 18. April 2013, 01:11

Ich habe noch nicht aufgegeben ,jetz sollte es etwas besser sein :whistling:

Benötigt wird nur ein Button / Für test noch Button2
Und Label1,text

VB.NET-Quellcode

Option Strict On
Imports System.IO
Imports System.Security.Cryptography
Public Class Form1
'Deklarationen MD5 Hash
Dim InputBox_Passworteingabe_MD5 As String
'Deklaration Zeitdatei Verschlüsselung
Dim Verschlüsseltes_Ablaufdatum As String
Dim Entschlüsseltes_Ablaufdatum As String
'Uhr & Ablaufdatum
Dim Aktuelles_Datum As Date = Date.Now.Date
Dim Ablaufdatum As String = DateAdd(DateInterval.Day, 15, Date.Now.Date) ' Hier die zeit einstellen für die Testphase
'Passwörter
Dim MD5_Pass As String = "098f6bcd4621d373cade4e832627b4f6" ' übersetzt = test
'Pfad für Zeitspeicher Datei
Dim Dateipfad As String = "C:\Users\zeus\Desktop\z\Data_z.cfg" 'Pfad für Speicherdatei zu verstecken
Dim Key_aus_Inputbox As String
'MD5 Hash aus Passwort erzeugen um zu vergleichen
Private Function StringToMD5(ByVal Content As String) As String
Dim M5 As New Security.Cryptography.MD5CryptoServiceProvider
Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
ByteString = M5.ComputeHash(ByteString)
Dim FinalString As String = Nothing
For Each bt As Byte In ByteString
FinalString &= bt.ToString("x2")
Next
Return FinalString
End Function
'MD5 Hash Ende
'Beim Start der Form Passwort überprüfen !
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Zum_Anfang:
If Not MD5_Pass = My.Settings.MD5_Pass_Speicher Then '0
'Wenn die Datei nicht existiert , dann das Ablaufdatum nehmen / Zeit verschlüsseln und Datei in vorgegebenen Pfad erstellen
If Not My.Computer.FileSystem.FileExists(Dateipfad) Then '1
'########################################################################################################################-Vershlüsseln Anfang (( Zeit ))
Dim oAesProvider As New AesManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes("ax59kj71l5po9u5gc0s3we13tmv", btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, oAesProvider.CreateEncryptor(), CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(Ablaufdatum) 'Eingang unverschlüsselt !
cs.Write(btClear, 0, btClear.Length)
cs.Close()
Verschlüsseltes_Ablaufdatum = Convert.ToBase64String(ms.ToArray) ' Ausgang Verschlüsselt
'########################################################################################################################-Vershlüsseln Ende (( Zeit ))
Try 'Ablaufdatum verschlüsselt in Datei schreiben
IO.File.WriteAllText(Dateipfad, Verschlüsseltes_Ablaufdatum) 'Datei erstellen und datum reinschreiben mit +20 Tage
Catch ex As Exception
MsgBox("Ausnahmefehler das Programm wird geschlossen !", MsgBoxStyle.Critical, "Ausnahmefehler !")
End
End Try 'Datei schreiben Ende
Application.Restart()
Else '1 'Wenn die Datei da ist , diese auslesen und vergleichen mit aktuelles Datum
Verschlüsseltes_Ablaufdatum = File.ReadAllText(Dateipfad)
'########################################################################################################################-Entschlüsseln Anfang (( Zeit ))
Dim oAesProvider As New AesManaged
Dim btCipher() As Byte
Dim Entschlüsseln_() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes("ax59kj71l5po9u5gc0s3we13tmv", Entschlüsseln_)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, oAesProvider.CreateDecryptor(), CryptoStreamMode.Write)
Try
btCipher = Convert.FromBase64String(Verschlüsseltes_Ablaufdatum) 'Verschlüsselt rein
cs.Write(btCipher, 0, btCipher.Length)
cs.Close()
Entschlüsseltes_Ablaufdatum = System.Text.Encoding.UTF8.GetString(ms.ToArray) 'Entschlüsselt raus
Catch
MsgBox("Ein Lesefehler ist aufgetreten !" & vbCrLf & vbCrLf & "Das Programm wird deshalb beendet !", MsgBoxStyle.Exclamation, "Fehler!")
End
End Try
'########################################################################################################################-Entschlüsseln Ende (( Zeit ))
If Aktuelles_Datum > CDate(Entschlüsseltes_Ablaufdatum) Then '2
While Not MD5_Pass = My.Settings.MD5_Pass_Speicher
Key_aus_Inputbox = InputBox("Bitte geben Sie ihren Key ein !", "Ende der Testphase ereicht !")
My.Settings.MD5_Pass_Speicher = StringToMD5(Key_aus_Inputbox)
My.Settings.Save()
If Key_aus_Inputbox = "" Then '3
End
End If '3
End While
GoTo Zum_Anfang
Else '2
End If '2
End If '1
' Verbleibende Zeit anzeigen
Dim Zeitdiverrenz_Anzeige As String = CStr(DateDiff("d", Aktuelles_Datum, Entschlüsseltes_Ablaufdatum))
Label1.Text = "Es sind noch " & Zeitdiverrenz_Anzeige & " Testzeit übrig "
Else '0 'Wenn Key Vorhanden , direckt von Start nach hier springen !
Label1.Text = "Mit Key aktiviert !"
End If '0
End Sub
'Manuelle Passworteingabe
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
While Not MD5_Pass = My.Settings.MD5_Pass_Speicher
InputBox_Passworteingabe_MD5 = InputBox("Bitte geben Sie jetz ihren Serial_Key ein !" & vbCrLf & vbCrLf & "Anschliesend wird das Programm beendet um den Serial_Key ordnungsgemäß zu übernehmen !", "Serial Key ?")
My.Settings.MD5_Pass_Speicher = StringToMD5(InputBox_Passworteingabe_MD5) 'Hier wird das Pass nach Eingabe in MD5 gewandelt und zb. in My.Setings gespeichert !
My.Settings.Save()
If InputBox_Passworteingabe_MD5 = "" Then
End
End If
End While
Me.Refresh()
If MD5_Pass = My.Settings.MD5_Pass_Speicher Then
Label1.Text = "Mit Key aktiviert !"
End If
End Sub
End Class

'Dieser Button dient nur testzwecken !

VB.NET-Quellcode

'Dieser Button dient nur testzwecken !
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
My.Settings.Reset()
End
End Sub
End Class

Download Testmappe + MD5 Hash Ersteller
www71.zippyshare.com/v/38908044/file.html

LG ANdre.................................................................... :whistling:

FreakJNS · 18. April 2013, 07:35

Da sind ja immernoch GoTo's drin xD
Ein kleiner Tipp: Verteile die Methode doch auf mehrere Untermethoden, z.B. Prüfen, Datei anlegen, und was sonst noch anfällt. Das können auch Functions sein die einen z.B. einen Boolean zurückgeben. In einer zentralen Prüf-Routine könntest du dann in wenigen Zeilen diese Hilfsmethoden ansteuern und ggf erneut aufrufen.

Programmcode den man mehrmals ausführen will (aber nicht mehrmals aufschreiben sollte) lagert man in Methoden aus. Die Codeteile mit GoTo anzuspringen ist schon länger aus der Mode xD

TVX · 18. April 2013, 12:00

Jo genau 1 goto ist noch drinn,wollte das eigentlich mit Me.Refresh oder Application.Restart lösen

Man sollte meinen das das den selben Efeckt ,da er dann oben wieder anfängt aber dem ist nicht so ,
ich müsste Restart 2x ausführen

So weit funktioniert es super , Da ich Strings damit verschlüsseln kann ,kann ich mir aussuchen
ob ich ne Datei erstelle oder es in die reg schreibe !
Zu beachten sei halt nur die Berechtigung demnach anzupassen -(( Admin )) !

LG Andre............................................

SeriTools · 18. April 2013, 12:03

An alle Anfänger: Wenn ihr in einem Code Sprungmarken und GoTos seht, einfach wegwerfen.

@TVX: Ein Goto ist eins zuviel ==> Schrottcode
Und plenken.

TVX · 19. April 2013, 00:04

GoTos seht, einfach wegwerfen.

Du bist ja richtig geistreich

SpaceyX · 19. April 2013, 01:21

Aber Du musst schon zugeben, sonderlich kreativ, bzw. geistreich sind Deine Code-Beispiele auch nicht, oder? Ich mein, Du bist ja jetzt auch schon ne Weile hier und Dir wurde es schon sehr oft gesagt, dass manche Programmiertechniken einfach Müll sind. Nur richtig auseinandersetzen tust Dich wohl damit auch nicht. Versteh´s nicht falsch, Du gibst Dir viel Mühe und setzt Dich bestimmt oft hin und codest für jemanden was zusammen, weil Du es ja für Dich als Übung brauchst. So jedenfalls hab ich´s mal aus einem Deiner Posts herausgelesen. Nur, was halt dabei rauskommt, hilft den anderen meist nicht viel. Deine Codes sind oft sehr wirr und eben leider voll mit Fehlern. Du kannst nicht einfach irgendwas zusammentippen und es dann immer als "Hier haste es, hab´s schnell ausm Ärmel geschüttelt"-Lösung präsentieren. Das kommt gar nicht gut an. Anders wär´s, wenn Deine Codes Hieb- und Stichfest sind, aber so machst Du Dich ein bisschen lächerlich. Nicht in den falschen Hals kriegen bitte, ich sag´s Dir nur, wie ich es sehe. Ich mein, Du hast schon Potenzial, aber eben ein bisschen runter vom Gas, auch wenn Du Deine Lösung für Dich noch so als gut erachtest. Denk an den, der hier Hilfe gesucht hat, den hilft es nicht und Deinem Ego auch nicht, wenn Du jedesmal eine aufn Deckel bekommst. Aber da scheinst Du ja ziemlich resistent zu sein.

Nimm das Gesagte nicht als harte Kritik, sondern setz Dich mal richtig mit dem Thema .NET auseinander. Deine Codes sind ein MischMasch zwischen altem VB6, .NET und ich frag mich, wenn ich mir Deine Codes so ansehe, ob Du wirklich weißt, was die verschiedenen Datentypen überhaupt sind. Beispielsweise wandelst Du Strings in Strings, nutzt GOTO´s, InputBoxen, MsgBoxen, Nutzt nicht die angebotenen Funktionen des FrameWorks, sondern den My-NameSpace, Try-Catches, ohne wirkliche Fehlerbehandlung, DateDiff, DateAdd und und und. Es gibt wirklich für jedes altes VB6-Überbleibsel ein besseres, effizienteres, objektorientiertes Gegenstück.

Du musst verstehen, dass das dem Hilfesuchenden nicht hilft und Dir hilft es letztendlich auch nicht wirklich viel.

In diesem Sinne, nimms Dir mal zu Herzen und mach was aus Deinem Potenzial...

Danny

TVX · 19. April 2013, 08:02

Ist Klar und deshalb jetz ohne goto

1x Button1 für Keyeingabe
Label1 für zustandsanzeige

Button2 nur für test nötig um Pass wieder zu löschen

VB.NET-Quellcode

Option Strict On
Imports System.IO
Imports System.Security.Cryptography
Public Class Form1
'InputBox Eingabe
Dim Key_aus_Inputbox As String
'Uhr & Ablaufdatum
Dim Aktuelles_Datum As Date = Date.Now.Date
Dim Ablaufdatum As String = DateAdd(DateInterval.Day, 15, Date.Now.Date) ' Hier die zeit einstellen für die Testphase
'Private Einstellungen MD5 Passwort
Dim MD5_Pass As String = "098f6bcd4621d373cade4e832627b4f6" 'MD5 Passwort - übersetzt = test
'MD5 Hash aus Passwort erzeugen um zu vergleichen
Private Function StringToMD5(ByVal Content As String) As String
Dim M5 As New Security.Cryptography.MD5CryptoServiceProvider
Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
ByteString = M5.ComputeHash(ByteString)
Dim FinalString As String = Nothing
For Each bt As Byte In ByteString
FinalString &= bt.ToString("x2")
Next
Return FinalString
End Function
'MD5 Hash Ende
'String verschlüsseln Anfang + Declaration
Dim String_verschlüsseln_Eingabe As String, String_entschlüsseln_Eingabe As String
'----------------------------------------------------------------------------------'
Private Function String_verschlüsseln_Ausgabe() As String
Dim oAesProvider As New AesManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes("ax59kj71l5po9u5gc0s3we13tmv", btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, oAesProvider.CreateEncryptor(), CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(String_verschlüsseln_Eingabe) 'Eingang unverschlüsselt !
cs.Write(btClear, 0, btClear.Length)
cs.Close()
Return Convert.ToBase64String(ms.ToArray) ' Ausgang Verschlüsselt
End Function 'String verschlüsseln Ende
'String Entschlüsseln Anfang
Private Function String_entschlüsseln_Ausgabe() As String
Dim oAesProvider As New AesManaged
Dim btCipher() As Byte
Dim Entschlüsseln_() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes("ax59kj71l5po9u5gc0s3we13tmv", Entschlüsseln_)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, oAesProvider.CreateDecryptor(), CryptoStreamMode.Write)
Try
btCipher = Convert.FromBase64String(String_entschlüsseln_Eingabe) 'Verschlüsselt rein
cs.Write(btCipher, 0, btCipher.Length)
cs.Close()
Return System.Text.Encoding.UTF8.GetString(ms.ToArray) 'Entschlüsselt raus
Catch
MsgBox("Ein Lesefehler ist aufgetreten !" & vbCrLf & vbCrLf & "Das Programm wird deshalb beendet !", MsgBoxStyle.Exclamation, "Fehler!")
End
End Try
End Function 'String Entschlüsseln Ende
'Security_Manager Anfang
Private Sub Security_Manager()
'MD5 Pass überprüfen
If MD5_Pass = My.Settings.MD5_Pass_Speicher Then '0
Label1.Text = "Mit Key aktiviert !"
Else '0
'Prüfen ob Datei Exsistiert / Wenn nicht dann erstellen / wenn doch dann auslesen und prüfen
If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\AZ_Key", "azd", Nothing) Is Nothing Then '1
String_verschlüsseln_Eingabe = Ablaufdatum
Try
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\AZ_Key", "azd", String_verschlüsseln_Ausgabe) 'xxxxxxxxxxxxxxxxxxxxxxxxxx
Catch ex As Exception
MsgBox("Ausnahmefehler das Programm wird geschlossen !", MsgBoxStyle.Critical, "Ausnahmefehler !")
End
End Try
String_entschlüsseln_Eingabe = CStr(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\AZ_Key", "azd", Nothing)) 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Dim Zeitdiverrenz_Anzeige As String = CStr(DateDiff("d", Aktuelles_Datum, String_entschlüsseln_Ausgabe()))
Label1.Text = "Es sind noch " & Zeitdiverrenz_Anzeige & " Testzeit übrig "
Label1.ForeColor = Color.Orange
Else '1
String_entschlüsseln_Eingabe = CStr(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\AZ_Key", "azd", Nothing)) 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Aktuelles Datum mit Ablaufdatum aus Datei vergleichen
If Aktuelles_Datum > CDate(String_entschlüsseln_Ausgabe()) Then '3
' Wenn nicht stimmt MD5 Pass prüfen
While Not MD5_Pass = My.Settings.MD5_Pass_Speicher
Key_aus_Inputbox = InputBox("Bitte geben Sie ihren Key ein !", "Ende der Testphase ereicht !")
My.Settings.MD5_Pass_Speicher = StringToMD5(Key_aus_Inputbox)
My.Settings.Save()
If Key_aus_Inputbox = "" Then '4
End
End If '4
End While
'wenn Md5 Pas richtig eingegenen dann dass
Label1.Text = "Mit Key aktiviert !"
Label1.ForeColor = Color.Lime
Else '3
String_entschlüsseln_Eingabe = CStr(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\AZ_Key", "azd", Nothing)) 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Dim Zeitdiverrenz_Anzeige As String = CStr(DateDiff("d", Aktuelles_Datum, String_entschlüsseln_Ausgabe()))
Label1.Text = "Es sind noch " & Zeitdiverrenz_Anzeige & " Testzeit übrig "
Label1.ForeColor = Color.Orange
End If '3
End If '1
End If '0
End Sub 'Security_Manager Ende
'Manuelle Passworteingabe Anfang
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
While Not MD5_Pass = My.Settings.MD5_Pass_Speicher
Key_aus_Inputbox = InputBox("Bitte geben Sie jetz ihren Serial_Key ein !" & vbCrLf & vbCrLf & "Anschliesend wird das Programm beendet um den Serial_Key ordnungsgemäß zu übernehmen !", "Serial Key ?")
My.Settings.MD5_Pass_Speicher = StringToMD5(Key_aus_Inputbox) 'Hier wird das Pass nach Eingabe in MD5 gewandelt und zb. in My.Setings gespeichert !
My.Settings.Save()
If Key_aus_Inputbox = "" Then
End
End If
End While
My.Application.SaveMySettingsOnExit = True
If MD5_Pass = My.Settings.MD5_Pass_Speicher Then
Label1.Text = "Mit Key aktiviert !"
Label1.ForeColor = Color.Lime
End If
End Sub ' Manuelle Passworteingabe Ende
'FORM START
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Security_Manager()
End Sub
End Class

Button2 wird nur für Funktionstest verwendet !

VB.NET-Quellcode

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
My.Settings.Reset()
Application.Restart()
End Sub

LG Andre................................................................................................................

FreakJNS · 19. April 2013, 14:26

Sieht ja schon besser aus! xD
So 100%ig gefällt mir das ganze immer noch nicht - vllt weil ich deinen Ansatz das ganze "sicherer" zu machen viel zu wirr halte. Auf jeden Fall ausbaufähig sind z.B. Variablen wie Key_aus_Inputbox. In dem Fall würde ich eben keine Variable klassenweit deklarieren sondern den Methoden als Parameter übergeben. So hält man Ordnung und das ganze System bleibt Übersichtlicher. Wenn du viel Code auf die Art produzierst wirst du irgendwann nicht mehr wissen was genau passiert weil alles mit allem verstrickt ist. Durch übergeben von Parametern siehst du direkt "ah - die Methode will ein Passwort-String haben und gibt das und das zurück", mal eine Gegenüberstellung:

VB.NET-Quellcode

private Passwort_Eingabe_FensterXYZ as String 'steht iwo gaaaaanz Oben, die Variable wird irgendwo zugewiesen
Private Function prüfePasswort() as Boolean'steht iwo mittendrin
'... Passwort_Eingabe_FensterXYZ prüfen
'return ...
end Function

VB.NET-Quellcode

Private Function prüfePasswort(byval Passwort as String) as Boolean
'...
'return ...
end Function

Du siehst sofort, dass prüfePasswort() immer irgendwie an eine Variable "gebunden" ist. Diese kann von überall aus verändert werden. (Soll nicht heißen, dass das immer schlecht ist!). Außerdem - wenn du mehrere Passwortfelder hättest - müsstest du andauernd neue Methoden schreiben. prüfePasswort(passwort) ist da viel flexibler. Du kannst es immer wiederverwenden.
Btw brauchst du die Variable Key_aus_Inputbox auch NUR in deiner GültigkeitsPrüfRoutine - Methoden die ganz andere Aufgaben erfüllen wollen von der Variable garnichts wissen - trotzdem zeigt IntelliSense sie dir an. Das kann ein ganz schöner Durcheinander werden.

Der Nächste Schritt für mich wäre das ganze Prüf-System in eine Klasse auszulagern. Würde für mich insofern Sinn machen, weil das ein relativ großes Problem ist, das ggf auch mehrmals gelöst werden möchte^^ Wenn du Klassen für dich Nutzt kannst du deinen Code sinnvoll gliedern und zusammenhänge darstellen. Außerdem verteilst du ein großes Problem (dein komplettes Programm) auf viele kleine Probleme (Prüfen, Updater, Speichern/Laden, eigene Controls, Datenstrukturen, und und und). In der Form1-Klasse müsste im Endeffekt nur folgendes stehen:

VB.NET-Quellcode

Public Const PFAD_TRIAL_DATUM As String = "/daten/trial.tri"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Macht alles automatisch: Datei anlegen wenn nicht vorhanden, auslesen wenn da. Auch das korrekte Passwort wird hier geladen/alternativ übergeben
Dim trialCecker = New TrialChecker(PFAD_TRIAL_DATUM)
trialCecker.StandardPasswortEingabe() 'Hier wird das Eingegebene Passwort gesetzt
'trialCecker.Passwort = eigenerDialogZumPasswortEingeben.Passwort
If trialCecker.isExpired Then 'und hier überprüft
'trial ist abgelaufen, dialog anzeigen, programm schließen
End If
End Sub

Wie der TrialChecker arbeitet ist Problem des TrialCheckers. Das Programm welches ihn verwendet kümmert es nicht weiter und kann gemütlich ganz andere Probleme lösen^^

Bevor du das versuchst umzusetzten: Lass deinen Anti-Hacker-Kiddys-Verwirr-Algo raus. Sowas ist sicherer aber immernoch weit weg von "sicher". Sowas kann jemand der den Source benutzen will einbauen. Dein Code sollte das Prinzip so einfach wie möglich demonstrieren - aber nicht mehr, denn das macht einen 20 Zeilen Code mal schnell 100 Zeilen lang und unübersichtlich.

Trail nach [x] Tagen selbst löschen

Trail nach [x] Tagen selbst löschen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

TVX schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben