hola a todos, mi consulta es la siguiente .., espero sepan responderla xk yo ya estoy mareado jajaj.
Sucede k descarge un code para generar claves no aleatorias a partir de un listado de caracteres.
Cuyo code en un form es el siguiente:
Dim Counter, Cnt As Integer
Private Sub cmdCreate_Click()
On Error GoTo ErrorHandler
Screen.MousePointer = 11
Dim C(100) As String
For i = 0 To 100
C(i) = ""
Next i
If chkSL.Value = 1 Then
Cnt = 1
For i = 1 To 26
C(i) = SL(Cnt)
Cnt = Cnt + 1
Next i
End If
If chkCL.Value = 1 Then
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
Cnt = 1
For i = Counter To Counter + 26 - 1
C(i) = CL(Cnt)
Cnt = Cnt + 1
Next i
End If
If chkNum.Value = 1 Then
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
Cnt = 1
For i = Counter To Counter + 10 - 1
C(i) = Num(Cnt)
Cnt = Cnt + 1
Next i
End If
If chkChar.Value = 1 Then
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
Cnt = 1
For i = Counter To Counter + 28 - 1
C(i) = Char(Cnt)
Cnt = Cnt + 1
Next i
End If
If chkSpce.Value = 1 Then
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
C(Counter) = " "
End If
cmbCharList.Clear
For i = 1 To 100
If C(i) = "" Then
Exit For
End If
cmbCharList.AddItem C(i)
Next i
Dim Cr, StrOutput As String
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
Counter = Counter - 1
StrOutput = ""
Length = txtLength.Text
For i = 1 To txtLength1.Text - txtLength.Text
For k = 1 To Counter * Length
Cr = ""
For j = 1 To Length
Call Randomize
t = Int((Counter * Rnd) + 1)
Cr = Cr & C(t)
Next j
If StrOutput = "" Then
StrOutput = Cr
Else
StrOutput = StrOutput & vbCrLf & Cr
End If
Next k
Length = Length + 1
Next i
If StrOutput = "" Then
GoTo ErrorHandler
End If
On Error GoTo ErrorHandler
Open "C:\PasswordList.txt" For Output As #2
Print #2, StrOutput
Close #2
Label3.Visible = True
MsgBox "Password List Created successfully!", vbInformation + vbOKOnly, "Password Generator"
Screen.MousePointer = 0
Exit Sub
ErrorHandler:
Screen.MousePointer = 0
MsgBox "Failed to create file, try again.", vbCritical + vbOKOnly, "Password Generator"
End Sub
Private Sub cmdGenerate_Click()
Screen.MousePointer = 11
Dim C(100) As String
For i = 0 To 100
C(i) = ""
Next i
If chkSL.Value = 1 Then
Cnt = 1
For i = 1 To 26
C(i) = SL(Cnt)
Cnt = Cnt + 1
Next i
End If
If chkCL.Value = 1 Then
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
Cnt = 1
For i = Counter To Counter + 26 - 1
C(i) = CL(Cnt)
Cnt = Cnt + 1
Next i
End If
If chkNum.Value = 1 Then
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
Cnt = 1
For i = Counter To Counter + 10 - 1
C(i) = Num(Cnt)
Cnt = Cnt + 1
Next i
End If
If chkChar.Value = 1 Then
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
Cnt = 1
For i = Counter To Counter + 28 - 1
C(i) = Char(Cnt)
Cnt = Cnt + 1
Next i
End If
If chkSpce.Value = 1 Then
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
C(Counter) = " "
End If
cmbCharList.Clear
For i = 1 To 100
If C(i) = "" Then
Exit For
End If
cmbCharList.AddItem C(i)
Next i
For j = 1 To 100
If C(j) = "" Then
Counter = j
Exit For
End If
Next j
Counter = Counter - 1
AddDirSep StorePath
PB.Max = 100
PB.Min = 0
PB.Value = 0
picPB.Visible = True
lblPassed.Tag = ""
lblTotal.Tag = ""
Timer2.Enabled = True
Dim N, O, CN, S, nN, strProgressed, oLen
N = 0
nN = 0
O = ""
CN = 0
LPF = txtLPF.Text
DoEvents
If opt4.Value = True Then
oLen = 4
For a1 = 1 To Counter
For a2 = 1 To Counter
For a3 = 1 To Counter
For a4 = 1 To Counter
DoEvents
nN = nN + 1