Programma activeren

Pizara zei:

Ik zou vooral voor je registry gaan , dan maak je het nog makkelijker om programma's te kopieren. Dat is het eerste waar ik voor een serial zou gaan zoeken als ik iets wil cracken.

Ik zou eerder voor een processorID gaan en op basis daarvan een serialnummer generen. Dan hoeven mensen alleen maar hun processorID op te geven (of een gegeneerd nummer daarvan) die jij dan weer kan invoeren in je keygen en daar een serialnummer uit opmaken. Die kan je dan terug mailen.

Code:

        Dim objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
        Dim colQuery = objWMIService.ExecQuery("Select * from Win32_Processor")
        For Each item In colQuery
            Debug.Print("ProcessorID: " & item.processorID)
        Next

Klik om te vergroten...

• Hoe stuur je een e-mail met de informatie van Textbox1, 2, 3 enz.
• Hoe plaats je informatie in de registry.

Helogat zei:

Ik heb een vraag,
Ik wil dat als het programma wordt opgestart dat er dan het schermpje van activ1.bmp verschijnt
Als de gebruiker dan een code heeft ingevoerd (en op de knop gedrukt heeft) moet de computer die onthouden en dan krijgt de gebruiker het scherm van activ2.bmp
daarna worden de gegevens naar mijn e-mail adres verstuurd.
ik stuur de gebruiker dan een mailtje terug met een activatiecode en een klein programma.
Hoe ik dat andere programma maak wil ik ook even weten. Het moet een programma zijn wat in het register onder "HKEY_LOCAL_MACINE\Software\Helogat\Activator\" en dan een tekenreekswaarde: "activcode" een bepaalde tekst plaatst en onder "productcode" een bepaalde tekst plaatst.
Bij de volgende keer opstarten krijgt de gebruiker een scherm wat heel erg lijkt op activ1.bmp alleen is er dan nog een veld bij met "Activatiecode"
Als de gebruiker de codes invoert en dan controleert de computer of de activatiecode overeenkomt met de code die zojuist bij "HKEY_LOCAL_MACINE\Software\Helogat\Activator\" en dan de tekenreekswaarde: "activcode" is ingevoerd door het programma. Hij doet dat ook met Productcode maar gebruikt dan in het regsiter:"HKEY_LOCAL_MACINE\Software\Helogat\Activator\" en dan de tekenreekswaarde: "productcode".

Ik weet dat dit heel ingewikkeld is. Maar ik hoop toch dat iemand mij kan helpen. als iemand misschien nog een andere, minder ingewikkelde, manier weet (zoals met een programma als TrialCreator, of Advandced Installer)

Klik om te vergroten...

leuthrick zei:

zo iets heb ik maar dan bij het opstarten van een programma laad hij de code niet en de cod eslaat hij op in programmafiles/naam programma/code
en dan maak ik er een coicoi file van <geen bestaande file maar dan opent hij hem ook niet je kunt hem aleen maar openen met tekst verwerkers maar dat moeten de mensen dan eerst weten

en dat e-mail programma heb ik de code heb ik op een anderen pc staan
die komen er aan:thumb:

mvg rick


ps kan iemand mij helpen: http://www.helpmij.nl/forum/showthread.php?p=2577044#post2577044

ik wil favorieten in mijn webbrowser

Klik om te vergroten...

Helogat zei:

Bij mij werkt het nog niet helemaal goed maar ik ben er mee bezig. het is goed dat je weet hoe je een e-mail stuurt, want dat is het enige wat nog ontbreekt.

Klik om te vergroten...

Helogat zei:

vb herkent een aantal dingen niet (zoals MailMessage) ik heb die gewijzigd in Net.Mail.MailMessage en ook met de SMTP server.

ik heb nu dit:
kijk of het goed is

Code:

Dim MyMailMessage As New Net.Mail.MailMessage()
        Try
            MyMailMessage.From = New Net.Mail.MailAddress("jou gmail@gmail.com")
            MyMailMessage.To.Add("ontvanger")
            MyMailMessage.Subject = ("onderwerp")
            MyMailMessage.Body = ("inhoud")
            Dim SMTP As New Net.Mail.SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("jou gmail@gmail.com", "jou gmail wachtwoord hier")
            SMTP.Send(MyMailMessage)

            MsgBox("e-mail is met succes verzonden", MsgBoxStyle.Information, "information")
        Catch ex As Exception

        End Try

Klik om te vergroten...

Dim MyMailMessage As New Net.Mail.MailMessage()

 Try
            MyMailMessage.From = New Net.Mail.MailAddress("[COLOR="Red"]jou gmail@gmail.com[/COLOR]")
            MyMailMessage.To.Add("[COLOR="Red"]ontvanger[/COLOR]")
            MyMailMessage.Subject = ("[COLOR="Red"]onderwerp[/COLOR]")
            MyMailMessage.Body = ("[COLOR="Red"]inhoud[/COLOR]")
            Dim SMTP As New Net.Mail.SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("[COLOR="Red"]jou gmail@gmail.com[/COLOR]", "[COLOR="Red"]jou gmail wachtwoord hier[/COLOR]")
            SMTP.Send(MyMailMessage)

            MsgBox("[COLOR="Red"]e-mail is met succes verzonden[/COLOR]", MsgBoxStyle.Information, "information")
        Catch ex As Exception

        End Try

Helogat zei:

ik heb dit nu ook verwerkt in een ander programma verwerkt, alleen zie ik nu bij afzender het e-mail adres staan, kan ik daar ook iets anders voor in de plaats zetten zoals dat ook bij outlook en gmail gaat

Klik om te vergroten...

Helogat zei:

Kijk het is zo: als ik met outlook een e-mail stuur ziet de ontvanger mijn naam, en niet mijn e-mailadres. Als ik via deze methode een e-mail stuur ziet de ontvanger mijn e-mailadres en niet mijn naam, nu wil ik dat de gebruiker dan een naam ziet.

Klik om te vergroten...

if textbox1.text= helogat then 
textbox1.text = helogat@???.com
end if