Manage Folders 0.1 xD

Hola, les dejo aca mi nuevo "invento" :P lo hize cuando estaba aburrido

Lo que hace este programita, encripta una carpeta y cuando se cambia de usuario, el otro no la podra abrir....
esta bueno no ?
:P

dejo el code y el .exe

Code

Option Explicit   'obligo a declrar las variables

Dim sisisi As Boolean ' declaro una variable con valo booleano

Dim ruta As String  'declaro una variable ruta con valor de cadnea

Dim sisisi2 As Boolean 'declaro la variable sisisi2 con valor booleano

Dim rut33 As String  'etc

Private Declare Function AnimateWindow Lib "user32" ( _

ByVal hwnd As Long, _

ByVal dwTime As Long, _

ByVal dwFlags As Long) As Long     'declaro la api animatewindow 

REM hwnd se aplica a la ventana que quiero aplicar el efecto

rem dwtime es el tiempo en el que sucedera la accion (en milisegundos)

rem dwflags son los valores que permiten indicar que efecto usar y otras propiedades  como la orientación del efecto, es decir que vaya apareciendo desde el medio , del lado izq al derecho con efecto fade o transparencia, etc

Private Const AW_ACTIVATE = &H20000  'constante que indica que despues se active la ventana

Private Const AW_BLEND = &H80000  ' constante que indica la transparencia

Private Declare Function EncryptFile Lib "ADVAPI32" Alias "EncryptFileA" ( _

ByVal lpfilename As String) As Boolean 'declaro api para encriptar archivos

Private Declare Function DecryptFile Lib "ADVAPI32" Alias "DecryptFileA" ( _

ByVal lpfilename As String, _

ByVal dwreserved As Long) As Long 'api para desencriptar archivos

Public Function encriptar_archivos(ByVal ruta1 As String) As Boolean 'declaro una funcion con la variable ruta1 

encriptar_archivos = EncryptFile(ruta1) 'digo que la funcion sea = a la api

End Function

Public Function desencriptar_archivos(ByVal ruta2 As String) As Boolean 'declaro funcion y la var ruta2

desencriptar_archivos = DecryptFile(ruta2, 0) 'digo que la funcion sea = a la api pero esta vez con la opearcion inversa (0)

End Function

Private Sub command1_click() 'al hacer click

ruta = InputBox("Ruta del Archivo a encriptar: ", "By Dr [F]", "Aca") ' digo que la variable ruta sea el inputbox

sisisi = encriptar_archivos(ruta) 'sisisi = se aplica la funcion desencriptar en la ruta

If sisisi Then ' si sisisi nada entonces

MsgBox "Archivos Encriptado Satisfactoriamente", vbInformation, "Good" 'este mensaje

Else ' de lo contrario  

MsgBox Err.Description 'el error que haya sucedido

End If

End Sub

Private Sub command2_click()

rut33 = InputBox("Ruta del Archivo a desencriptar: ", "By Dr [F]", "Aca")

sisisi2 = desencriptar_archivos(rut33)

If sisisi2 Then

MsgBox "Archivos desencriptado satisfactoriamente", vbInformation, "Good"

Else

MsgBox Err.Description, vbCritical, "Error"

End If

Rem lo mismo

End Sub

Private Sub form_load()

Me.Caption = "Manage Folder v 0.1 xD"

Dim lala As Long

lala = AnimateWindow(Me.hwnd, 700, AW_BLEND Or AW_ACTIVATE)

Command1.Caption = "Encriptar"

Command2.Caption = "Desencriptar"

Command1.BackColor = vbGreen

Command2.BackColor = vbGreen

End Sub

Aca dejo el .exe no tengo ganas de analizarlo ... analisenlo uds, asi depaso se acostumbran

lo pueden analisar aca:

http://scanner.novirusthanks.org/

.exe:

Descargar

By Dr [F]