ah , ok .
bueno yo convierto el texto a hex y me baso en este viejo virus wsf .
el code que pase a hex fue msgbox "hola" que al pasarlo quedo
6D7367626F782022686F6C6122 y como me base en este code puedo codificar cualquier vbs.
y en cualquier caso para descifrar el code , según lo que me acaban de explicar quedaría asi:
Gracias por las explicaciones . .
bueno yo convierto el texto a hex y me baso en este viejo virus wsf .
Código (actionscript) [Seleccionar]
<?XML version="1.0"?><job>
<script language="VBScript">
<![CDATA[
FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("6D7367626F782022686F6C6122")
ExecuteGlobal FACEBOOKFACEBOOK
Function php(FACEBOOKFACEBOOK) : For y = 1 To Len(FACEBOOKFACEBOOK) Step 2 : ub = ub & Chr(Clng("&H" & Mid(FACEBOOKFACEBOOK, y, 2))) : Next : php = ub : End Function
]]>
</script>
</job>
el code que pase a hex fue msgbox "hola" que al pasarlo quedo
6D7367626F782022686F6C6122 y como me base en este code puedo codificar cualquier vbs.
y en cualquier caso para descifrar el code , según lo que me acaban de explicar quedaría asi:
Código (actionscript) [Seleccionar]
<?XML version="1.0"?><job>
<script language="VBScript">
<![CDATA[
FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("6D7367626F782022686F6C6122")
Function php(FACEBOOKFACEBOOK) : For y = 1 To Len(FACEBOOKFACEBOOK) Step 2 : ub = ub & Chr(Clng("&H" & Mid(FACEBOOKFACEBOOK, y, 2))) : Next : php = ub : End Function
Set fso = CreateObject("scripting.filesystemobject")
Set fichero = fso.CreateTextFile("decrypted.txt", True)
fichero.write(FACEBOOKFACEBOOK)
fichero.close
]]>
</script>
</job>
Gracias por las explicaciones . .