TSG Encript / Decript

» 05 Dic 2010 21:24

Disculpen mi Ignoracia sobre el tema.
¿Esto que hace?

» 05 Dic 2010 21:45

Shycker escribió:Disculpen mi Ignoracia sobre el tema.
¿Esto que hace?

Encripta

!	Nota del moderador Franeg95 :
	Y desencripta.

» 06 Dic 2010 00:24

ArzenaTh escribió:
Shycker escribió:Disculpen mi Ignoracia sobre el tema.
¿Esto que hace?

Encripta

[nonmod]Y desencripta./nonmod

Jajaja franco la completaste

Shycker, para que lo entiendas mejor,, es un sistema que convierte un texto, en letras, numeros y simbolos raros.
Si queres encriptar esto por ejemplo: El peluca sabeeee!
Y por ejemplo,, lo queres poner en un text llamado Text1, tendrias que hacer haci:

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

Text1.Text = TSGEncript("El peluca sabeeee!")

Y en el text1 te va a aparecer: Hp%vlt~ml,€oquvwx5

Y vos diras,, para que carajo quiero que un texto se haga en simbolos raros??
La respuesta es que es muy util, para que no te garken datos.
X ejemplo, si hosteas tu sv,, y tu host no es muy confiable, podes encriptar ciertos datos, y el host no va a tener ni idea de lo q significa. Podes encriptar contraseñas,, los nicks de los GMs (haci no te los garka

), entre otras cosas.
Si por ejemplo, encriptas tu nick de GM (Shycker), que quedaria: Vl~irm{ , al loguear no vas a tener que poner ese texto encriptado, sino que tambien esta la funcion TSGDecript, que decripta ese texto, es decir,, vuelve a la normalidad de lo que habia antes, osea, paso del codigo raro a la palabra Shycker. Entonces,, al loguear, aunque en el Server.ini, este encriptado, vos podes loguear directamente escribiendo Shycker, en vez de Vl~irm{

Si queres provar

, hace esto:

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

Text1.Text = TSGDecript("Vl~irm{")

Y vas a ver que en el text1 va a aparecer la palabra Shycker

Ovbiamente,, no solo podes escribir texto adentro de esos parentesis,, podrias hasta hacer esto:

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

Sub Command1_Click()
Text2.Text = TSGEncript(Text1.Text)
End Sub

Ovbiamente, crea dos text, y un command. Y lo que escribas en el primer Text, apretando el boton te va a aparecer en el segundo.
Podes hacerlo viceversa:

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

Sub Command1_Click()
Text2.Text = TSGDecript(Text1.Text)
End Sub

Que poniendo el codigo encriptado en el primer text, apretando el boton, te devuelve el texto original en el segundo text.

Ovbiamente,, a esto, como te dije antes, se le da mucho uso para que no puedan ver algunos datos,, y que se decripten en el codigo.

Para mas seguridad, te recomiendo modificar aunque sea una letra del sistema,, que se yo, si en una parte del encriptado se suma 2, y en el decriptado se resta 2, en ambos lugares cambia el dos por el 1. O nose trata de ir modificando la cosa

, haci, si uno te quiere decriptar los datos llendo a este code,, no va a poder, y le va a decriptar cualquier cosa

, xq vos habrias modificado algo, es una recomendacion nomas

Espero que hayas entendido

Igualmente, tmbn esta el segundo Encriptador/Decriptador, pero no lo recomiendo, xq cualquier pibe segun sus datos puede ir estudiando las combinaciones de 3 letras y fue

Saludos!

» 06 Dic 2010 09:59

Esta bueno el aporte. La verdad me gusto.
Pero yo creo que lo mejor para encriptar y desencriptar es generar una "Clave" de encriptacion distinta todo el tiempo. De esa forma te asegurar que sea mas complejo poder desencriptar una cadena de caracteres. Y si lo usas para controlar el cliente al momento de loguear al PJ listo... Porque de esa forma te aseguras que el cliente es el original y te olvidas de que pueda estar modificando o reenviando paquetes encriptados o no a lo pabote!

.

» 06 Dic 2010 12:40

Silver escribió:Esta bueno el aporte. La verdad me gusto.
Pero yo creo que lo mejor para encriptar y desencriptar es generar una "Clave" de encriptacion distinta todo el tiempo. De esa forma te asegurar que sea mas complejo poder desencriptar una cadena de caracteres. Y si lo usas para controlar el cliente al momento de loguear al PJ listo... Porque de esa forma te aseguras que el cliente es el original y te olvidas de que pueda estar modificando o reenviando paquetes encriptados o no a lo pabote! .

yo habia echo uno parecido , usaba una contraseña la cual cambiaba siempre

y por ahi lo qe encriptaba asi

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

ejfsdafpas{d´s+´+{sdña309

desp por ahi te lo encriptaba asi

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

as´dpaopr'3r¿sd´f´{{z´xc{

entonces siempre cambiaba y nunca qedaba igual y por eso un sniffer no les esrviaa

maTih.-

» 06 Dic 2010 22:14

Gracias ahora entendi...
Pero que tiene que ver con los cheats esto?

» 06 Dic 2010 23:34

y... si lo usas para encriptar el login, no pueden logear con clientes editados, pero igual es facil de pasarlo

maTih.-

» 07 Dic 2010 19:03

Xd.. bueno posta ta lindo para los que desconfian de los que te hostean. Sirve tambien para ocultar la ip en sinfo aunque netstat y fue sino tambien la ip en el init.

» 07 Dic 2010 19:50

maTih.- escribió:y... si lo usas para encriptar el login, no pueden logear con clientes editados, pero igual es facil de pasarlo

maTih.-

Algo asi como un md5¿?

» 07 Dic 2010 22:08

Shycker escribió:
maTih.- escribió:y... si lo usas para encriptar el login, no pueden logear con clientes editados, pero igual es facil de pasarlo

maTih.-

Algo asi como un md5¿?

se es ccomo un md5 en el init te aparece Password: a_`pTm´`p+
es para por ej. cuando vos pones el server en un host el host va a poder ver la contra todo entonces asi estas seguro que no va a loguear pjs que nosean de el.

» 07 Dic 2010 23:07

Esto como seguridad, realmente sería estúpido implementarlo! ¿Por qué? Porque es MUY fácil descifrar el modo en el que encriptas una cadena. Siempre va a encriptar "ENANOH" de la misma manera, nunca va a cambiar, no es algo dinámico. Es decir, supongamos que vos encriptas el paquete de logueo en tu servidor, entonces, yo al loguear envío "Paquete,Enanoh,asd" (Nombre del paquete, nick, password) de esta manera, siempre que yo loguee va a salir "Qctyjzl4Nxlz|v;q„v". No me voy a poner a explicar como haría, sería ayudar a los que no pueden razonar como pasar estas encriptaciónes, pero con un poquito de lógica, lo sacas.
Mi recomendación, es siempre utilizar una clave en la encriptación, y lograr que esa clave sea dinámica, para que yo aunque siempre loguee con "enanoh", el paquete sea diferente, porque la clave es diferente.

Saludos.

» 07 Dic 2010 23:30

Enanoh escribió:Esto como seguridad, realmente sería estúpido implementarlo! ¿Por qué? Porque es MUY fácil descifrar el modo en el que encriptas una cadena. Siempre va a encriptar "ENANOH" de la misma manera, nunca va a cambiar, no es algo dinámico. Es decir, supongamos que vos encriptas el paquete de logueo en tu servidor, entonces, yo al loguear envío "Paquete,Enanoh,asd" (Nombre del paquete, nick, password) de esta manera, siempre que yo loguee va a salir "Qctyjzl4Nxlz|v;q„v". No me voy a poner a explicar como haría, sería ayudar a los que no pueden razonar como pasar estas encriptaciónes, pero con un poquito de lógica, lo sacas.
Mi recomendación, es siempre utilizar una clave en la encriptación, y lograr que esa clave sea dinámica, para que yo aunque siempre loguee con "enanoh", el paquete sea diferente, porque la clave es diferente.

Saludos.

Ajam yo digo que seguridad para anti host porque una ves q vean Pasword = A_`ñdasdbna No creo que ni se molesten en ver como desifrarla por un Ao.

» 07 Dic 2010 23:50

comodin escribió:
Enanoh escribió:Esto como seguridad, realmente sería estúpido implementarlo! ¿Por qué? Porque es MUY fácil descifrar el modo en el que encriptas una cadena. Siempre va a encriptar "ENANOH" de la misma manera, nunca va a cambiar, no es algo dinámico. Es decir, supongamos que vos encriptas el paquete de logueo en tu servidor, entonces, yo al loguear envío "Paquete,Enanoh,asd" (Nombre del paquete, nick, password) de esta manera, siempre que yo loguee va a salir "Qctyjzl4Nxlz|v;q„v". No me voy a poner a explicar como haría, sería ayudar a los que no pueden razonar como pasar estas encriptaciónes, pero con un poquito de lógica, lo sacas.
Mi recomendación, es siempre utilizar una clave en la encriptación, y lograr que esa clave sea dinámica, para que yo aunque siempre loguee con "enanoh", el paquete sea diferente, porque la clave es diferente.

Saludos.

Ajam yo digo que seguridad para anti host porque una ves q vean Pasword = A_`ñdasdbna No creo que ni se molesten en ver como desifrarla por un Ao.

Y entonces para que vas a crear una funcion para encriptar/desencriptar si podés usar tranquilamente MD5, como lo hace alkon?
Envias la password en md5 y el valor de la pass en el char directamente es escrito en md5.

» 08 Dic 2010 10:30

La cosa es meterle XOR, AND, OR, y esas cosas complicarlo un toque entre el HEXADECIMAL y darle cosas que sean complicadas...

Aver, les dejo una piola que ni la uso.

A esta le meto muchas funciones mas para que cambie de forma CONDICIONAL y para que tambien haga una ensalada para complicar a los que intentan chitear

. Y obviamente para mantener la seguridad cambio las funciones cada semana. Lo que tiene que tener un AntiCheat es RENOVACION, es fundamental.

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

Function EncryptINI$(Strg$, Password$)
   
   Dim b$, s$, i As Long, j As Long
   Dim A1 As Long, A2 As Long, A3 As Long, p$
   j = 1
   For i = 1 To Len(Password$)
     p$ = p$ & Asc(mid$(Password$, i, 1))
   Next
    
   For i = 1 To Len(Strg$)
     A1 = Asc(mid$(p$, j, 1))
     j = j + 1: If j > Len(p$) Then j = 1
     A2 = Asc(mid$(Strg$, i, 1))
     A3 = A1 Xor A2
     b$ = Hex$(A3)
     If Len(b$) < 2 Then b$ = "0" + b$
     s$ = s$ + b$
   Next
   EncryptINI$ = s$
End Function
 
Function DecryptINI$(Strg$, Password$)
 
   Dim b$, s$, i As Long, j As Long
   Dim A1 As Long, A2 As Long, A3 As Long, p$
   j = 1
   For i = 1 To Len(Password$)
     p$ = p$ & Asc(mid$(Password$, i, 1))
   Next
   
   For i = 1 To Len(Strg$) Step 2
     A1 = Asc(mid$(p$, j, 1))
     j = j + 1: If j > Len(p$) Then j = 1
     b$ = mid$(Strg$, i, 2)
     A3 = Val("&H" + b$)
     A2 = A1 Xor A3
     s$ = s$ + Chr$(A2)
   Next
   DecryptINI$ = s$
End Function

Saludos!

EDIT: El MD5 no se puede desencriptar, pero hay paginas WEB que tienen una base de datos de todos los MD5 con sus respectivos numeros y en esa web pueden sacar passwords de MD5 normalmente de menos de 6 caracteres. Les sugiero que ENCRIPTEN y despues le meten MD5 seria lo mejor. Pero cuando encriptas MD5 no hay vuelta atras

» 10 Dic 2010 04:21

es algo parecido a

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

Sub EncryptingString(cadenItA As String, contraseNia As String)
Dim Leng As Long
dim racH as integer
Dim X As Integer
Leng = Len(cadenItA)
For X = 1 To Leng
    rach = Asc(Mid$(contraseNia, (X Mod Leng) - Leng * ((X Mod Leng) = 0), 1))
    Mid$(cadenItA, X, 1) = Chr$(Asc(Mid$(cadenItA, X, 1)) Xor Char)
Next
End Sub

pero pasa qe el tuyo es mas complejo, aunque vi un par de cosas al pedo

maTih.-

TSG Encript / Decript

¿Quién está conectado?