elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Còmo puedo cifrar archivos VBS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Còmo puedo cifrar archivos VBS  (Leído 3,221 veces)
Linterna_Blue

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Còmo puedo cifrar archivos VBS
« en: 2 Marzo 2014, 22:57 pm »

Hola, saludos a todos, me doy la bienvenida  ;D espero aportar al Foro.
Conversando por inbox con un grande, expuse  la duda de còmo cifrar un VBS, por lo tanto aqui va la consulta de modo que quede abierta para las opiniones.

¿Còmo cifrar un .VBS???

Gracias  :D


En línea

Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.164


Cheats y Trainers para todos!


Ver Perfil WWW
Re: Còmo puedo cifrar archivos VBS
« Respuesta #1 en: 2 Marzo 2014, 23:03 pm »

Hola, Bienvenido al foro.

Hay varias formas de cifrar un VBS. Recientemente he creado un pequeño programa para cifrar cualquier VBS, lo deja "oculto" y completamente FUD a los antivirus:



El programa es MUY sencillo, simplemente poner un TextBox y un botón. En el código del botón escribir:

Código
  1. Private Sub menuC_Click()
  2.    Randomize
  3.    Separator1 = Mid("!|@#$%&=-_", Int(Rnd * 10) + 1, 1)
  4.    Variables1 = Mid("ABCD", Int(Rnd * 4) + 1, 1)
  5.    Variables2 = Mid("WXYZ", Int(Rnd * 4) + 1, 1)
  6.  
  7.    R = Int(Rnd * 10)
  8.  
  9.    For i = 1 To Len(Text1.Text)
  10.        X = X & (Asc(Mid(Text1.Text, i, 1)) - R) & Separator1
  11.    Next i
  12.  
  13.    Open App.Path & "\crypted.vbs" For Output As #1
  14.        Print #1, Variables1 & " = " & Chr(34) & X & Chr(34)
  15.        Print #1, Variables1 & " = split(" & Variables1 & "," & Chr(34) & Separator1 & Chr(34) & ")"
  16.        Print #1, "for i = 0 to ubound(" & Variables1 & ") - 1"
  17.        Print #1, Variables2 & " = " & Variables2 & " & chr(" & Variables1 & "(i)+" & R & ")"
  18.        Print #1, "next"
  19.        Print #1, "executeglobal " & Variables2
  20.    Close #1
  21.    DoEvents
  22.    MsgBox "Encryption completed!" & vbCrLf & vbCrLf & "File saved here: " & App.Path & "\crypted.vbs" & vbCrLf & vbCrLf & "Cryptonumber used: " & R
  23. End Sub
  24.  

El programa puede generar hasta 90 archivos diferentes (si mis cálculos no fallan). En la foto, el código VBS cifrado quedaría así:

Código
  1. D = "32%73%90%108%109%94%25%114%104%110%107%25%79%59%76%25%108%104%110%107%92%94%25%97%94%107%94%25%90%103%93%25%105%107%94%108%108%25%109%97%94%25%91%110%109%109%104%103%39%39%39%6%3%6%3%70%108%96%59%104%113%25%27%62%108%109%104%25%94%108%25%110%103%90%25%105%107%110%94%91%90%25%105%90%107%90%25%94%101%97%90%92%100%94%107%39%103%94%109%27%"
  2. D = split(D,"%")
  3. for i = 0 to ubound(D) - 1
  4. Y = Y & chr(D(i)+7)
  5. next
  6. executeglobal Y

Aunque también podría quedar así:

Código
  1. B = "36|77|94|112|113|98|29|118|108|114|111|29|83|63|80|29|112|108|114|111|96|98|29|101|98|111|98|29|94|107|97|29|109|111|98|112|112|29|113|101|98|29|95|114|113|113|108|107|43|43|43|10|7|10|7|74|112|100|63|108|117|29|31|66|112|113|108|29|98|112|29|114|107|94|29|109|111|114|98|95|94|29|109|94|111|94|29|98|105|101|94|96|104|98|111|43|107|98|113|31|"
  2. B = split(B,"|")
  3. for i = 0 to ubound(B) - 1
  4. X = X & chr(B(i)+3)
  5. next
  6. executeglobal X

Si alguien le interesa mi programa para cifrar, subo el EXE + Source. Saludos!!

https://www.mediafire.com/?xi3iug9bcar5r9z


« Última modificación: 2 Marzo 2014, 23:29 pm por ||MadAntrax|| » En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Còmo puedo cifrar archivos VBS
« Respuesta #2 en: 2 Marzo 2014, 23:05 pm »

puedes incrustar alguna funcion en vbs y que el resto del codigo este cifrado y almacenado en una string y solo pasar esta por un eval()...

http://www.w3schools.com/vbscript/func_eval.asp

Dulces Lunas!¡.
En línea

The Dark Shadow is my passion.
Linterna_Blue

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Re: Còmo puedo cifrar archivos VBS
« Respuesta #3 en: 2 Marzo 2014, 23:13 pm »

Ey!! muchas gracias por las respuestas... voy quedando mas claro.

Saludos!!!!  :laugh:
En línea

Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.164


Cheats y Trainers para todos!


Ver Perfil WWW
Re: Còmo puedo cifrar archivos VBS
« Respuesta #4 en: 2 Marzo 2014, 23:31 pm »

https://www.mediafire.com/?xi3iug9bcar5r9z

Aquí tienes mi programa para descargar, está compilado para que lo puedas usar, pero si quieres puedes mirar el source que está incluido en el ZIP.

Con éste programa podrás cifrar un mismo fichero de distintas formas, cada copia será única, con nombres de variables aleatorios, stringencription randon, tamaño del fichero final aleatorio, etc...

Debería dejarte cualquier fichero VBS FUD ante cualquier AV.

Que lo disfrutes! :D
En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
como puedo cifrar mi base de datos y a la vez tener seguridad sql « 1 2 »
Desarrollo Web
tecasoft 11 5,983 Último mensaje 20 Noviembre 2012, 22:06 pm
por tecasoft
Como cifrar archivos desde el menú contextual de Nautilus
Noticias
wolfbcn 0 1,517 Último mensaje 12 Diciembre 2012, 02:57 am
por wolfbcn
Cómo cifrar los archivos que almacenamos en nuestra computadora
Noticias
Mister12 0 1,352 Último mensaje 22 Agosto 2013, 21:41 pm
por Mister12
Como Puedo cifrar Un Virus .exe
Análisis y Diseño de Malware
imanol555 2 3,457 Último mensaje 21 Marzo 2016, 07:19 am
por fary
Cómo proteger y cifrar tus archivos en una memoria USB
Noticias
wolfbcn 0 1,264 Último mensaje 10 Julio 2017, 21:34 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines