Mensajes

Siguiendo con lo rustico aca les dejo este modulo para hacer una funcion que VB deberia haber tenido

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mFileExists
' Author    : Elemental Code
' Date      : 01/02/2011
' Purpose   : Check if a file exists in the most rustic way
'---------------------------------------------------------------------------------------
Option Explicit
Dim attr As VbFileAttribute
Public Function FileExists(ByVal sPath As String) As Boolean
On Error GoTo Missing
attr = GetAttr(sPath)
FileExists = True
Exit Function
Missing:
FileExists = False
End Function

Esta es la version estupida, facil y rustica de averiguar si un archivo existe.
Posiblemente haya aproximadamente 15.000 formas mejores pero esta funciona y la arme yo de guapo que soy.

Ademas uso esto como palanca para que un programador capo (Ejem Karcrack, Cobein, Seba123neo, BlackZeroX, Mr.Frog, LeandroA) se jueguen y saquen una version super rapida, con inline de ASM y que tire rayos por los ojos

Saludos.

JAJAJAJAJA
DEJA VU

http://foro.elhacker.net/programacion_visual_basic/api_sendmessage_en_una_shell-t316003.0.html

leete todo que no es largo y si te interesa mandame un pm que te mando el source que tengo 

es bastante al cuete eso porque (por lo menos en la version vieja) pone como comentario la linea original o que cambios hizo.

che se me ocurrio otra idea.
Es rebuscada y no se si servira para algo 

Supongamos que mi code es este:

Código (vb) [Seleccionar] Expandir

Dim unavariable as long
unavariable = timer
unavariable = unavariable - 356
debug.print unavariable

Ahora supongamos que por algo remotamente ilogico mi codigo es detectado por los av.
Literalmente MEZCLO el codigo añadiendo saltos para preservar integridad.
asi:

Código (vb) [Seleccionar] Expandir

'Arranca el soft
goto Arranca
AsigVar:
unavariable = timer
Goto Opera

ShowRes:
debug.print unavariable

Opera:
unavariable = unavariable - 356
goto ShowRes

arranca:
Dim unavariable as long
goto AsigVar


el codigo deberia (DEBERIA ojo) funcionar exactamente igual, pero ahora esta todo re enquilombado y no se si esto cambia en algo al final de cuentas.
Tampoco se si se podra hacer con cadenas mas complejas como condicionales o repetitivas.

Espero que sirva ^^

i know an issue (more like a bug ) on windows Vista

If the exe file, in the name has SETUP, windows will force you to run it as administrator.

Hope it helps

si te dice que el parametro a agregar el /SILENT si 

jamas se me hubiese cruzado por la cabeza hacer algo que funcione mediante IRC

Capas que para un RAT es bastante estupido, pero para una botnet podria funcionar.

Gracias por la idea

[Patch.AssassinsCreed]

jjajajajaja mira lo que detecta ikarus

Ikarus   T3.1.1.97.0   2011.01.23   possible-Threat.Patch.AssassinsCreed


Las companias que hacen juegos y programas pagan colosales cantidades de dinero para que los cracks salgan detectados como virus.

busca el programa USSF

Universal Silent Switch Finder.

le cargas el ejecutable instalador del WGA (crei que WGA habia sido reemplazado por WAT :S)

y te dice cual parametro le tenes que agregar para que sea silent.

cualquiercosa avisame que te explico mas

holaa 

Despues de ver el programa "Turbinas" hecho en vb6.0, no me parecio demasiado complicado recrearlo
Para los que no conocen el soft, es un lammereada que conecta y desconecta muuuuy rapido sockets haciendo un mini ataque DOS.
Se usa para tirar servidores de juegos o cosas asi.

Entonces con un timer y un Winsock deberia ser suficiente pero, Oh sorpresa, no se si el socket lo tengo que poner en udp o tcp ni tampoco se si tengo que esperar respuesta antes de desconectarlo y reconectarlo.


Codigo todavía no escribi nada pero la idea creo que esta.

Si me tiran un cable se los agradeceria ^^