Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Source Codes
Autor
Nachricht
boterfreak_
Coder
Coder

Anmeldedatum: 19.01.2008
Beiträge: 75
Einfacher Keygen
Verfasst am: 20.01.2008, 10:38
Habe hier mal ein code der für ein einfachen keygen gebraucht werden kann

Was braucht ihr Keys Von dem Programm die ihr ausgeben wollt

Ihr zieht Eine Textbox auf eure form net den name nicht TextBox1 sondern Text1
Dan ein Button der Command1 heist

Und dan fügt ihr den code ein

Zitat:
Public Class Form1
Dim i As Integer
Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click

Dim random As Short

Randomize()

random = Rand(1, 32)

Select Case random

Case Is = 1
Text1.Text = "AKEB-DVSJ-DHRL-XGDW"
Case Is = 2
Text1.Text = "SDVB-DBGK-JLDN-VNJH"
Case Is = 3
Text1.Text = "euer key"
Case Is = 4
Text1.Text = "euer key"
Case Is = 5
Text1.Text = "euer key"
Case Is = 6
Text1.Text = "euer key"
Case Is = 7
Text1.Text = "euer key"
Case Is = 8
Text1.Text = "euer key"
Case Is = 9
Text1.Text = "euer key"
Case Is = 10
Text1.Text = "euer key"
Case Is = 11
Text1.Text = "euer key"
Case Is = 12
Text1.Text = "euer key"
Case Is = 13
Text1.Text = "euer key"
Case Is = 14
Text1.Text = "euer key"
Case Is = 15
Text1.Text = "euer key"
Case Is = 16
Text1.Text = "euer key"
Case Is = 17
Text1.Text = "euer key"
Case Is = 18
Text1.Text = "euer key"
Case Is = 19
Text1.Text = "euer key"
Case Is = 20
Text1.Text = "euer key"
Case Is = 21
Text1.Text = "euer key"
Case Is = 22
Text1.Text = "euer key"
Case Is = 23
Text1.Text = "euer key"
Case Is = 24
Text1.Text = "euer key"
Case Is = 25
Text1.Text = "euer key"
Case Is = 26
Text1.Text = "euer key"
Case Is = 27
Text1.Text = "euer key"
Case Is = 28
Text1.Text = "euer key"
Case Is = 29
Text1.Text = "euer key"
Case Is = 30
Text1.Text = "euer key"
Case Is = 31
Text1.Text = "euer key"
Case Is = 32
Text1.Text = "euer key"
End Select
End Sub

Public Function Rand(ByVal Low As Integer, ByVal High As Integer) As Integer
Rand = Int((High - Low + 1) * Rnd()) + Low
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub


Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Combo1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.TextChanged

End Sub
End Class


Wichtig der code ist nicht von mir bei fragen einfach posten
_________________
 
Marduk_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 17.06.2007
Beiträge: 389

Verfasst am: 20.01.2008, 20:43
Naja, das is wohl nicht so ganz ein Keygen Very Happy Very Happy


Code:
Dim rand As Random = New Random
        Dim i As Integer = rand.Next(0, 32)


Damit brauchst du auch keine Funktion mehr, die in meinen Augen irgendwie nicht funktioniert, da es kein return gibt Confused

Naja, egal. Trotzdem gute Idee für einen Keygen Very Happy

// Und das ganze Gedöns am Ende ist überflüssig Wink
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
 
v1p3r_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 10.02.2008
Beiträge: 29

Verfasst am: 10.02.2008, 17:57
gibs sowas auch für VB6?
 
tr4st_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()

Verfasst am: 18.02.2008, 23:33
Einfach umschreiben?

Ist ja wohl nicht sonderlich schwer..
Und die Events am Ende kannst du löschen.
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
 
regenz11_
Coder
Coder



Anmeldedatum: 29.07.2007
Beiträge: 77

Verfasst am: 26.03.2008, 13:57
Thx für das Tut !
Ist ja aber einfach Smile
_________________
 
Five-Three-Nine_
Tutorial Leser
Tutorial Leser



Anmeldedatum: 23.06.2007
Beiträge: 34

Verfasst am: 26.03.2008, 14:02
Ein Keygen produziert die Keys aus einem Algorithmus.
Das Dings hier gibt dir einfach Keys aus einem vorher Definiertem Feld aus.

Was hat das überhaupt für einen Sinn?
 
marcel1994_
Coder
Coder

Anmeldedatum: 08.02.2008
Beiträge: 202

Verfasst am: 26.03.2008, 14:07
@ Five-Three-Nine: das habe ich mich auch gefragt ?!
@ v1p3r: Nach dem oben geposteten Source ist es jawohl nicht sonderlich schwer einen "KeyGen" in vb6 zu machen, denn nach dem Source würde er nach dem Prinzip einen Passwortgenerators funktionieren.
 
dcm_
Newbie
Newbie

Anmeldedatum: 24.02.2008
Beiträge: 15

Verfasst am: 02.04.2008, 13:55
Is es nich auch ein bisschen blöd, die keys als unverschlüsselten text zu speichern? Mr. Green
_________________
 
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 28.11.2007
Beiträge: 425

Verfasst am: 02.04.2008, 14:07

marcel1994 hat Folgendes geschrieben:
Nach dem oben geposteten Source ist es jawohl nicht sonderlich schwer einen "KeyGen" in vb6 zu machen, denn nach dem Source würde er nach dem Prinzip einen Passwortgenerators funktionieren.

Das ist kein Keygen. Er wählt nur einen Zufälligen Key von vielen aus.
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Source Codes

Tags: keygen, key, code, random, einfacher

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Button/Text 867 18.06.2009, 15:21
Keine neuen Beiträge E-Mail bekomm nach Button klicken 662 02.10.2007, 16:45
Keine neuen Beiträge Bestimmten "Button" auf Website klicken 1535 14.09.2007, 20:27
Keine neuen Beiträge webbrowser/ webformular button klicken 1534 23.07.2007, 22:07
Keine neuen Beiträge Button drücken.. 738 01.07.2007, 12:19
 




[ Time: 0.4866s ][ Queries: 115 (0.1847s) ][ GZIP on - Debug on ]