maTih.- escribió:es re pasable pero we en ves de hacer minusculas ty mayusculas uubieras usado UCase$

edit : todos los qe comentaron en este post tan nominados menos yo
maTih.-

Nose, pero creo que si por ejemplo tenes una pass: ASdasD, y la encriptascuando buelvas a la normalidad te quedaria ASDASD, o asdasd

Igualmente,, Midraks, es muy buena forma lo q me dijiste,, no se me habia ocurrido
Estaría bueno jugar un poco con el encriptado haci es dificil
Muchisimas gracias por la idea!, ya voy a buscar la funcion que pasaba a ASSCI, xq me olvide


Saludos!

Thusing escribió:

maTih.- escribió:es re pasable pero we en ves de hacer minusculas ty mayusculas uubieras usado UCase$

edit : todos los qe comentaron en este post tan nominados menos yo.

maTih.-

Nose, pero creo que si por ejemplo tenes una pass: ASdasD, y la encriptascuando buelvas a la normalidad te quedaria ASDASD, o asdasd

Igualmente,, Midraks, es muy buena forma lo q me dijiste,, no se me habia ocurrido
Estaría bueno jugar un poco con el encriptado haci es dificil
Muchisimas gracias por la idea!, ya voy a buscar la funcion que pasaba a ASSCI, xq me olvide


Saludos!

Midraks escribió:Aca tenes maso menos como es:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Option Explicit
2.  
3. Public Function Encriptar(sTexto As String) As String
4. Dim i As Integer
5. Dim CodeAscii As Integer 'Almacena el codigo Ascii de la letra
6. Dim sLetra As String 'Almacena una letra
7.     'Bucle que recorre cada letra del sTexto
8.     For i = 1 To Len(sTexto)
9.         sLetra = mid(sTexto, i, 1) 'Almacena la letra
10.             CodeAscii = ((Asc(sLetra) + 123) - 123) 'Obtiene el Ascii del sLetra
11.             If CodeAscii < 100 Then  'Si es menor que 100
12.                 Encriptar = Encriptar & "0" & CodeAscii 'Imprime un 0 delante para que tenga 3 caracteres
13.             Else
14.                 Encriptar = Encriptar & CodeAscii 'Lo deja talcual
15.             End If
16.     DoEvents 'Realiza cada evento
17.     Next i
18. End Function 'Fin de la funcion
19.  
20. Public Function DesEncriptar(ByVal sTexto As String) As String
21. On Error Resume Next   'En caso de error continua
22. Dim i, T As Integer
23. Dim sCodeAscii As String
24. Dim lnCodeAscii As Long
25.     T = 1
26.     'Bucle que recorre el sTexto y toma de a 3 caracteres
27.     For i = 1 To Len(sTexto) / 3
28.         sCodeAscii = mid(sTexto, T, 3) 'Toma 3 caracteres y los almacena en sCodeAscii
29.         lnCodeAscii = ((Val(sCodeAscii) - 123) + 123) 'Tranforma sCodeAscii en numero y lo almacena en lnCodeAscii
30.         T = T + 3 'Aumenta en 3 la variable t
31.             DesEncriptar = DesEncriptar & Chr(lnCodeAscii) 'Transforma el Ascii al caracter correspondient e
32.     DoEvents 'Realiza eventos
33.     Next i
34. End Function 'Fin de la funcion

Midraks escribió:

Thusing escribió:

maTih.- escribió:es re pasable pero we en ves de hacer minusculas ty mayusculas uubieras usado UCase$

edit : todos los qe comentaron en este post tan nominados menos yo,

maTih.-

Nose, pero creo que si por ejemplo tenes una pass: ASdasD, y la encriptascuando buelvas a la normalidad te quedaria ASDASD, o asdasd

Igualmente,, Midraks, es muy buena forma lo q me dijiste,, no se me habia ocurrido
Estaría bueno jugar un poco con el encriptado haci es dificil
Muchisimas gracias por la idea!, ya voy a buscar la funcion que pasaba a ASSCI, xq me olvide


Saludos!

Aca tenes maso menos como es:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Option Explicit
2.  
3. Public Function Encriptar(sTexto As String) As String
4. Dim i As Integer
5. Dim CodeAscii As Integer 'Almacena el codigo Ascii de la letra
6. Dim sLetra As String 'Almacena una letra
7.     'Bucle que recorre cada letra del sTexto
8.     For i = 1 To Len(sTexto)
9.         sLetra = mid(sTexto, i, 1) 'Almacena la letra
10.             CodeAscii = ((Asc(sLetra) + 123) - 123) 'Obtiene el Ascii del sLetra
11.             If CodeAscii < 100 Then  'Si es menor que 100
12.                 Encriptar = Encriptar & "0" & CodeAscii 'Imprime un 0 delante para que tenga 3 caracteres
13.             Else
14.                 Encriptar = Encriptar & CodeAscii 'Lo deja talcual
15.             End If
16.     DoEvents 'Realiza cada evento
17.     Next i
18. End Function 'Fin de la funcion
19.  
20. Public Function DesEncriptar(ByVal sTexto As String) As String
21. On Error Resume Next   'En caso de error continua
22. Dim i, T As Integer
23. Dim sCodeAscii As String
24. Dim lnCodeAscii As Long
25.     T = 1
26.     'Bucle que recorre el sTexto y toma de a 3 caracteres
27.     For i = 1 To Len(sTexto) / 3
28.         sCodeAscii = mid(sTexto, T, 3) 'Toma 3 caracteres y los almacena en sCodeAscii
29.         lnCodeAscii = ((Val(sCodeAscii) - 123) + 123) 'Tranforma sCodeAscii en numero y lo almacena en lnCodeAscii
30.         T = T + 3 'Aumenta en 3 la variable t
31.             DesEncriptar = DesEncriptar & Chr(lnCodeAscii) 'Transforma el Ascii al caracter correspondient e
32.     DoEvents 'Realiza eventos
33.     Next i
34. End Function 'Fin de la funcion

,, despues de varias horas de distintos tipos de pruevas, logre terminar uno de una manera parecida a la tuya, nada mas q en vez de encriptar en numeros encripta en letras, simbolos, o numeros, lo q sea , y cada letra no tiene un valor fijo, va variando según la longitud, haci es muy dificil de sacar
Te re agradezco por haber dejado esa forma, me dejaste varias cosas claras, no sabia que existia la funcion: Mid, y yo habia usado el Left y Right
Posta te lo re agradezco

Ya edite y deje las dos formas


Saludos!

Lorwik escribió:Bueno aunque sea malo, tienen que mirar por el lado positivo...

Va a joder a mas de un manco que no sepa hacer cheats, y solo se limite a usarlos.
Va a joder a mas de un manco que sepa hacer cheats, pero no sea muy bueno.

Y lo mas importante

Aprender.

Ya agregue uno mas funcional y seguro,, no se si lo viste

Saludos!

Midraks escribió:

Thusing escribió:

maTih.- escribió:es re pasable pero we en ves de hacer minusculas ty mayusculas uubieras usado UCase$

edit : todos los qe comentaron en este post tan nominados menos yo.

maTih.-

Nose, pero creo que si por ejemplo tenes una pass: ASdasD, y la encriptascuando buelvas a la normalidad te quedaria ASDASD, o asdasd

Igualmente,, Midraks, es muy buena forma lo q me dijiste,, no se me habia ocurrido
Estaría bueno jugar un poco con el encriptado haci es dificil
Muchisimas gracias por la idea!, ya voy a buscar la funcion que pasaba a ASSCI, xq me olvide


Saludos!

Aca tenes maso menos como es:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Option Explicit
2.  
3. Public Function Encriptar(sTexto As String) As String
4. Dim i As Integer
5. Dim CodeAscii As Integer 'Almacena el codigo Ascii de la letra
6. Dim sLetra As String 'Almacena una letra
7.     'Bucle que recorre cada letra del sTexto
8.     For i = 1 To Len(sTexto)
9.         sLetra = mid(sTexto, i, 1) 'Almacena la letra
10.             CodeAscii = ((Asc(sLetra) + 123) - 123) 'Obtiene el Ascii del sLetra
11.             If CodeAscii < 100 Then  'Si es menor que 100
12.                 Encriptar = Encriptar & "0" & CodeAscii 'Imprime un 0 delante para que tenga 3 caracteres
13.             Else
14.                 Encriptar = Encriptar & CodeAscii 'Lo deja talcual
15.             End If
16.     DoEvents 'Realiza cada evento
17.     Next i
18. End Function 'Fin de la funcion
19.  
20. Public Function DesEncriptar(ByVal sTexto As String) As String
21. On Error Resume Next   'En caso de error continua
22. Dim i, T As Integer
23. Dim sCodeAscii As String
24. Dim lnCodeAscii As Long
25.     T = 1
26.     'Bucle que recorre el sTexto y toma de a 3 caracteres
27.     For i = 1 To Len(sTexto) / 3
28.         sCodeAscii = mid(sTexto, T, 3) 'Toma 3 caracteres y los almacena en sCodeAscii
29.         lnCodeAscii = ((Val(sCodeAscii) - 123) + 123) 'Tranforma sCodeAscii en numero y lo almacena en lnCodeAscii
30.         T = T + 3 'Aumenta en 3 la variable t
31.             DesEncriptar = DesEncriptar & Chr(lnCodeAscii) 'Transforma el Ascii al caracter correspondient e
32.     DoEvents 'Realiza eventos
33.     Next i
34. End Function 'Fin de la funcion