Código: Seleccionar todo

Indetectables.net = ten.selbatcetednI

Código: Seleccionar todo

   RESULTS:	2/27
AVG Free	OK
ArcaVir	OK
Avast!	OK
AntiVir (Avira)	OK
BitDefender	Trojan.Dropper.RSS
Clam Antivirus	OK
COMODO Internet Security	OK
Dr.Web	OK
F-PROT Antivirus	OK
F-Secure Internet Security	OK
G Data	Trojan.Dropper.RSS
IKARUS Security	OK
Kaspersky Antivirus	OK
McAfee	OK
MS Security Essentials	OK
ESET NOD32	OK
Norman	OK
Norton Antivirus	OK
Panda Security	OK
F-Squared	OK
Quick Heal Antivirus	OK
Rising Antivirus	OK
Solo Antivirus	OK
Sophos	OK
VBA32 Antivirus	OK
Vexira Antivirus	OK
Webroot Internet Security	OK

Código: Seleccionar todo

Indetectables.net =  nIedettcbael.sent

Código: Seleccionar todo

 RESULTS:	0/27
AVG Free	OK
ArcaVir	OK
Avast!	OK
AntiVir (Avira)	OK
BitDefender	OK
Clam Antivirus	OK
COMODO Internet Security	OK
Dr.Web	OK
F-PROT Antivirus	OK
F-Secure Internet Security	OK
G Data	OK
IKARUS Security	OK
Kaspersky Antivirus	OK
McAfee	OK
MS Security Essentials	OK
ESET NOD32	OK
Norman	OK
Norton Antivirus	OK
Panda Security	OK
F-Squared	OK
Quick Heal Antivirus	OK
Rising Antivirus	OK
Solo Antivirus	OK
Sophos	OK
VBA32 Antivirus	OK
Vexira Antivirus	OK
Webroot Internet Security	OK

Código: Seleccionar todo

'Nombre: SReverse Mod
'Autor: Sanlegas
'Descripcion: Simple modificacion del strreverse
'Modo de uso: sreversemod(String), para desencriptar igual

Public Function SReverseMod(Text As String) As String
Dim N As Variant
For N = 1 To Len(Text) Step 2
SReverseMod = SReverseMod & StrReverse(Mid(Text, N, 2))
DoEvents
Next N
End Function

Código: Seleccionar todo

La criptografía (del griego ?????? krypto, «oculto», y ????? graphos, «escribir», literalmente «escritura oculta») es [b]el arte o ciencia de cifrar y descifrar información mediante técnicas especiales[/b] y se emplea frecuentemente para permitir un intercambio de mensajes que sólo puedan ser leídos por personas a las que van dirigidos y que poseen los medios para descifrarlos.