Pues lo bueno de aquí, es que puedes ver como se decifra el string encodeado, así hay que seguir la secuencia:
La string encodeada:
dDssDajcooSLscaC = (("“šžŸKhKMbY˜šššYŽš˜M85›šŸKhKd^b
Está es la función para descifrar el encode, a modo de ejemplo sólo tome los primeros 2 caracteres del encode, que en realidad serian 5
dDssDajcooSLscaC = (("“š"))
msgbox dcssLdchdcdDCsiijSS(dDssDajcooSLscaC)
Function dcssLdchdcdDCsiijSS(sStr)
Do
i = i + &H1 ' &H1 Es hexadecimal que equivale a 1, es decir, incrementa la variable i de 1 en 1, manteniendo el valor
bLen = Left(sStr, i) ' Recorre el encode de izquierda al valor incrementado de i
dcssLdchdcdDCsiijSS = i ' Devuelve el valor real del tamaño de la cadena encodeada
Loop While sStr <> bLen
End Function
La siguiente función es la que se encarga de descifrar el valor del encode, veamos:
Function sddfskcIdCLcsoSkso()
For i = 1 to dcssLdchdcdDCsiijSS(dDssDajcooSLscaC) ' Toma la función anterior para obtener el tamaño real del encode
hsDCcocssccCaVICC = hsDCcocssccCaVICC & ((CHRW(ASC((MID(dDssDajcooSLscaC, i))) - ASC("+"))))
Next
ExecuteGlobal hsDCcocssccCaVICC ' Ejecución del encode
End Function
En la Linea 3, es donde esta el decifrado el usa las siguientes funciones:
CHRW ' devuelve un carácter Unicode; sin embargo, en los sistemas que no son compatibles con el conjunto de caracteres Unicode, la función se comporta de forma idéntica a CHR.
ASC ' Convierte el primer carácter de una cadena en código ANSI y devuelve el resultado.
MID ' Devuelve un número específico de caracteres de una cadena.
Veamos la conversión con las dos primeros caracteres del encode,
[AHORA SIGO xD]