[VB6] Anti Anubis

    Hallo,


    hier mal ein Anti-Anubis Code:


    Code
    Public Function Anubis() As StringIf Dir$(&quot;C:\exec\popupKiller.exe&quot;) <> &quot;&quot; ThenIf FileLen(&quot;C:\exec\popupKiller.exe&quot;) = 327865 ThenAnubis = TrueEnd IfElseAnubis = FalseEnd IfIf Anubis = True ThenAnubis = FileLen(&quot;C:\&quot;)End IfEnd Function


    Die Funktion wird aufgerufen mit:


    Code
    Call Anubis


    Mfg. Lemontree