Título: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 00:06 am
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
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 00:10 am
S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File6 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File6: Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt7.Value = True Then oLen = 7 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File7 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File7: Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt8.Value = True Then oLen = 8 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter For a8 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) & C(a8) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File8 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File8: Next a8 Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt9.Value = True Then oLen = 9 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter For a8 = 1 To Counter For a9 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) & C(a8) & C(a9) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File9 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File9: Next a9 Next a8 Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt10.Value = True Then oLen = 10 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter For a8 = 1 To Counter For a9 = 1 To Counter For a10 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) & C(a8) & C(a9) & C(a10) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 00:12 am
N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File10 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File10: Next a10 Next a9 Next a8 Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt11.Value = True Then oLen = 11 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter For a8 = 1 To Counter For a9 = 1 To Counter For a10 = 1 To Counter For a11 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) & C(a8) & C(a9) & C(a10) & C(a11) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File11 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File11: Next a11 Next a10 Next a9 Next a8 Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt12.Value = True Then oLen = 12 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter For a8 = 1 To Counter For a9 = 1 To Counter For a10 = 1 To Counter For a11 = 1 To Counter For a12 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) & C(a8) & C(a9) & C(a10) & C(a11) & C(a12) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File12 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File12: Next a12 Next a11 Next a10 Next a9 Next a8 Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt13.Value = True Then oLen = 13 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter For a8 = 1 To Counter For a9 = 1 To Counter For a10 = 1 To Counter For a11 = 1 To Counter For a12 = 1 To Counter For a13 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) & C(a8) & C(a9) & C(a10) & C(a11) & C(a12) & C(a13) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File13 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File13: Next a13 Next a12 Next a11 Next a10 Next a9 Next a8 Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt14.Value = True Then oLen = 14 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter For a8 = 1 To Counter For a9 = 1 To Counter For a10 = 1 To Counter For a11 = 1 To Counter For a12 = 1 To Counter For a13 = 1 To Counter For a14 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) & C(a8) & C(a9) & C(a10) & C(a11) & C(a12) & C(a13) & C(a14) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File14 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File14: Next a14 Next a13 Next a12 Next a11 Next a10 Next a9 Next a8 Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If opt15.Value = True Then oLen = 15 For a1 = 1 To Counter For a2 = 1 To Counter For a3 = 1 To Counter For a4 = 1 To Counter For a5 = 1 To Counter For a6 = 1 To Counter For a7 = 1 To Counter For a8 = 1 To Counter For a9 = 1 To Counter For a10 = 1 To Counter For a11 = 1 To Counter For a12 = 1 To Counter For a13 = 1 To Counter For a14 = 1 To Counter For a15 = 1 To Counter DoEvents nN = nN + 1 S = C(a1) & C(a2) & C(a3) & C(a4) & C(a5) & C(a6) & C(a7) & C(a8) & C(a9) & C(a10) & C(a11) & C(a12) & C(a13) & C(a14) & C(a15) strProgressed = (nN * 100) / (Counter ^ oLen) PB.Value = strProgressed lblPB.Caption = Int(strProgressed) & "%" If PB.Value = PB.Max Then MsgBox "Finished!!!", vbOKOnly + vbInformation, "Password Generator" picPB.Visible = False
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 00:13 am
End If N = N + 1 If O = "" Then O = S Else O = O & vbCrLf & S End If If LPF = 0 Then GoTo lblExSave2File15 If N = LPF Then CN = CN + 1 Save2File O, CN O = "" N = 0 End If lblExSave2File15: Next a15 Next a14 Next a13 Next a12 Next a11 Next a10 Next a9 Next a8 Next a7 Next a6 Next a5 Next a4 Next a3 Next a2 Next a1 End If
If LPF = 0 Then Save2File O, 0 GoTo lblEx End If If (N < LPF) And (N <> 0) Then Save2File O, CN + 1 End If
lblEx: Screen.MousePointer = 0 End Sub
Private Sub cmdSetPath_Click() Form2.Show 1, Me End Sub
Private Sub Form_Load() On Error Resume Next SetChars
StorePath = GetSetting("Password Generator", "Options", "Path", StorePath) If StorePath = "" Then StorePath = "C:\" End If
lblPath.Caption = "The output file(s) will be stored in: " & StorePath
picPB.Visible = False
End Sub
Private Sub Timer2_Timer() Static i i = i + 1 If i = 100 Then lblPassed.Tag = Val(lblPassed.Tag) + 1 i = 0 End If
If Test = False Then X = PB.Value End If Test = True P = P + 1 If PB.Value - X >= 1 Then Test = False lblTotal.Tag = (P * 100) / 100 P = 0 X = PB.Value End If Dim TMP TMP = Val(lblTotal.Tag) - Val(lblPassed.Tag) If TMP < 0 Then lblRemained.Tag = 0 lblRemained.Caption = "--------" Else lblRemained.Tag = Val(lblTotal.Tag) - Val(lblPassed.Tag) End If Dim oH, oM, oS oH = Val(lblPassed.Tag) \ 3600 oM = Val(lblPassed.Tag) \ 60 oS = Val(lblPassed.Tag) Mod 60 lblPassed.Caption = oH & ":" & oM & ":" & oS
oH = Val(lblTotal.Tag) \ 3600 oM = Val(lblTotal.Tag) \ 60 oS = Val(lblTotal.Tag) Mod 60 lblTotal.Caption = oH & ":" & oM & ":" & oS oH = Val(lblRemained.Tag) \ 3600 oM = Val(lblRemained.Tag) \ 60 oS = Val(lblRemained.Tag) Mod 60 lblRemained.Caption = oH & ":" & oM & ":" & oS
End Sub
Private Sub txtLPF_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 Case 8 Case Else: KeyAscii = 0 End Select End Sub
y en un modulo el siguiente: Public CL(26) As String Public SL(26) As String Public Num(10) As String Public Char(30) As String Public Spce As String Public LPF As Long Public StorePath As String
Public Test As Boolean Public P As Long Public X As Double
Global Const gstrSEP_URLDIR$ = "/" Global Const gstrSEP_DIR$ = "\"
Sub SetChars() On Error Resume Next
Char(1) = "~" Char(2) = "!" Char(3) = "@" Char(4) = "#" Char(5) = "$"
Char(6) = "%" Char(7) = "^" Char(8) = "&" Char(9) = "*" Char(10) = "("
Char(11) = ")" Char(12) = "_" Char(13) = "-" Char(14) = "=" Char(15) = "+"
Char(16) = "'" Char(17) = """" Char(18) = ";" Char(19) = ":" Char(20) = "\"
Char(21) = "|" Char(22) = "/" Char(23) = "?" Char(24) = "." Char(25) = ">"
Char(26) = "," Char(27) = "<" Char(28) = "`" Char(29) = "" Char(30) = ""
Cnt = 65 For i = 1 To 26 CL(i) = Chr(Cnt) Cnt = Cnt + 1 Next i
Cnt = 97 For i = 1 To 26 SL(i) = Chr(Cnt) Cnt = Cnt + 1 Next i
Cnt = 0 For i = 1 To 10 Num(i) = CStr(Cnt) Cnt = Cnt + 1 Next i
Spce = " "
End Sub
Public Sub Save2File(ByVal Content As String, ByVal Index As Long)
AddDirSep StorePath
Open StorePath & "Output[" & Index & "].txt" For Output As #2
Print #2, Content
Close #2
End Sub
Sub AddDirSep(strPathName As String) If Right(Trim(strPathName), Len(gstrSEP_URLDIR)) <> gstrSEP_URLDIR And _ Right(Trim(strPathName), Len(gstrSEP_DIR)) <> gstrSEP_DIR Then strPathName = RTrim$(strPathName) & gstrSEP_DIR End If End Sub
este code lo k hace es kada x cntidad de password generadas las guarda en un archivo Output[xxx].txt con el siguiente formato: aaaa aaab aaac aaad aaae aaaf aaag aaah aaai aaaj
lo k yo necesito es k las guarde y a cada password le sume el texto "GENERATED" es decir k el archivo aparezca con las claves asi: aaaa GENERATED aaab GENERATED aaac GENERATED aaad GENERATED aaae GENERATED aaaf GENERATED aaag GENERATED aaah GENERATED aaai GENERATED aaaj GENERATED
Alguien sabria orientarme sobre donde deberia hacer la modificacion para lograr esta generacion de datos a la manera que la necesito???? Desde ya muchas gracias y saludos a todos
Título: Re: ayuda con modificacion simple de este code
Publicado por: Ferсhu en 17 Enero 2008, 00:25 am
este code lo k hace es kada x cntidad de password generadas las guarda en un archivo Output[xxx].txt
con el siguiente formato:
Código:
aaaa aaab aaac aaad aaae aaaf aaag aaah aaai aaaj
lo k yo necesito es k las guarde y a cada password le sume el texto "GENERATED"
es decir k el archivo aparezca con las claves asi:
Código:
aaaa GENERATED aaab GENERATED aaac GENERATED aaad GENERATED aaae GENERATED aaaf GENERATED aaag GENERATED aaah GENERATED aaai GENERATED aaaj GENERATED
Alguien sabria orientarme sobre donde deberia hacer la modificacion para lograr esta generacion de datos a la manera que la necesito????
Aver sin leer el codigo te lo resumo. busca la cadena q genera las letras y antes de escribr en el archivo haces: Cadena=Cadena + "GENERATED" tan dificil es?? jaja
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 00:30 am
disculpa man es k ya estoy mareado y no puedo retener dos palabras juntas jajaja e intente seguir el rastro de la generacion de las claves y la cadena de texto como dices pero komo t digo a estas horas ya no logro retener jajaj por eso preguntaba si alguien lograba ver la famoza "cadena="
Título: Re: ayuda con modificacion simple de este code
Publicado por: Ferсhu en 17 Enero 2008, 00:44 am
jajaj dejate de joder jaj enserio q no la vez? :xD aver com ose llama el archivo jaja vos mismo lo dijiste :xD y a simple vista se ve: Open StorePath & "Output[" & Index & "].txt" For Output As #2
Print #2, Content
Close #2 q pasa si pones Open StorePath & "Output[" & Index & "].txt" For Output As #2
Print #2, Content+ " GENERATED"
Close #2 eso se llama vaganciaaaaaaaaaaaaaaaaaaa.
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 00:50 am
eso ya lo probe y no funciona jaj, lo k pasa es k hay k mirar bien el code antes..
Título: Re: ayuda con modificacion simple de este code
Publicado por: Ferсhu en 17 Enero 2008, 00:53 am
Es la unica parte q aparece un archivo y q se mete algo en el. proba guardandolo en la variable y dsp meter la variable Content= Content + " GENERATED" Print #2, Content
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 00:55 am
sisi te entiendo yo tambien habia pensado eso eh intente toda la tarde pero no logro entender pork no funciona. si kerres te paso el proyecto para k veas k de verdad no funciona asi. ya no se como seguirlo xk es hay donde aparece solamente el content y despues pierdo el rastro y si lo ingreso en la variable como decis ,e genera todas las claves y solo lo agrtega en la ultima ABMI ABMJ ABMK ABMLgenerated
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 01:04 am
viste k no estaba tan facil jaj
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 02:55 am
lo logre!! ja aqui esta la modificacion del code.Deben modificar en la parte del code correspondiente a la cantidad de caracteres k tendra la pass a generar. Muchas gracias de todos modos amigo. If O = "" Then O = S + "GENERATED" Else O = O & vbCrLf & S + "GENERATED" End If Saludos
Título: Re: ayuda con modificacion simple de este code
Publicado por: ActiveSheet en 17 Enero 2008, 07:44 am
que lammer, yo no se como le contestan a esta gente.
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 17 Enero 2008, 16:38 pm
deberias ocuparte de aprender pork "esta gente" como tu dices te ah ayudado en tus dudas o no recuerdas???!! jajaj o es k si reconoces haber recibido ayuda de mi tu te considerarias lammer??? espero k leas las reglas y sepas k los post sin sentidos como el tuyo k no hacen otra cosa k satisfacer tus necesidades sexuales no atendidas, son de poca utilidad y dejes de escribir post sin sentido y para la proxima trata de aprender de los k saben mas k vos y no t kedes solo en el intento de ser alguien. Ya me despido pork no quiero decirte toda la verdad de lo k sos, te dejo algo de suspenso para k t sorprendas el dia k descubras k perdiste años en adquirir conocimientos k yo puedo enseñarte en pocas palabras " Aprende a Escuchar y luego habla" .
Bye Bye y saludos a la familia.
PD: si contestaste esas palabras sinsentido ... xk no contestaste a la duda del code??? o sabes mas hablar sin sentido que programar???????????????????????????????????????? :-X :-X :-X ;D
Título: Re: ayuda con modificacion simple de este code
Publicado por: ActiveSheet en 18 Enero 2008, 11:48 am
Deje este lenguaje por obsoleto ;)
Un Saludo ; 201.253.57.16
Ya no tomes tan apecho las cosas, la vida ahi que vivirla ;)
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 18 Enero 2008, 12:10 pm
:D :o y ese IP ????? xke l mio no es jajajja, yo uso dos saltos por redes wi-fi para conectarme asi k vaya a saber de kien sera ese IP... jajajajajaja :huh: ;D :xD
Título: Re: ayuda con modificacion simple de este code
Publicado por: ActiveSheet en 18 Enero 2008, 13:35 pm
quien dijo que es tuya?
triki trankis :huh:
Un Saludo; 216.239.59.104 ;)
Llevatela trankis ese
Título: Re: ayuda con modificacion simple de este code
Publicado por: Tengu en 18 Enero 2008, 18:15 pm
oks tienes razon, todo bien. Saludos
Título: Re: ayuda con modificacion simple de este code
Publicado por: ActiveSheet en 19 Enero 2008, 04:15 am
Eso es lo que queria oir hermano.
Asi se habla ;)
Un Saludo y un abraso compañero.
te invito a mi foro eres buen elemento.
Título: Re: ayuda con modificacion simple de este code
Publicado por: AlbertoBSD en 21 Enero 2008, 05:47 am
El mensaje se pudo a ver comprimido y adjuntado, o linkeado.
Pero Bueno. ;D
|