Imprimir Página - Api Guide Encrypt/Decrypt problemas!!

Título: Api Guide Encrypt/Decrypt problemas!!
Publicado por: Hole_System en 25 Diciembre 2008, 22:14 pm

Alguien me puede enseñar a usar el codigo de encrypt y decrypt que viene en la Api Guide...

Salu2

Título: Re: Api Guide Encrypt/Decrypt problemas!!
Publicado por: skyweb07 en 26 Diciembre 2008, 00:35 am

A que code te refieres pon algun ejemplo porque asi no nos enteramos :)

Título: Re: Api Guide Encrypt/Decrypt problemas!!
Publicado por: seba123neo en 26 Diciembre 2008, 02:08 am

el de la api DecryptFile?? o cual?? deci la api sino no sabemos...

Título: Re: Api Guide Encrypt/Decrypt problemas!!
Publicado por: Dessa en 26 Diciembre 2008, 02:54 am

Si Seba, creo que el ej. de la api guide que se refiere es EncryptFile, pero funciona perfecto (solo en NTF5, no en FAT 32), el archivo test.txt creado en "c:\" queda cifrado para otro usuario del equipo.

Código:


'Note: Encryptfile only works on NTFS 5
Private Declare Function EncryptFile Lib "ADVAPI32" Alias "EncryptFileA" (ByVal lpFileName As String) As Boolean
Private Declare Function DecryptFile Lib "ADVAPI32" Alias "DecryptFileA" (ByVal lpFileName As String, ByVal dwReserved As Long) As Boolean
Const mFile = "c:\test.txt"

Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    
    Open "c:\test.txt" For Append As #1
    Print #1, "1"
    Close
    
    Encrypt mFile

End Sub
Sub Encrypt(sFile As String)
    If EncryptFile(mFile) Then
        MsgBox "The file's succesfully encrypted. Log in as another user and try to access this file."
    Else
            MsgBox "NO"
    End If
End Sub
Sub Decrypt(sFile As String)
    If DecryptFile(mFile, 0) = True Then
        MsgBox "The file's succesfully decrypted."
    End If
End Sub

Título: Re: Api Guide Encrypt/Decrypt problemas!!
Publicado por: Hole_System en 27 Diciembre 2008, 01:38 am

Hola gente, bueno les digo que no ese el codigo ahora mismo no tengo la guia aki cuando llegue a casa copio y les pongo exactamente del que les hablo, pero quisiera agregar que busco en si, es que tengo un soft en mi pc que guarda la contraseña maestra en el registro encryptada entonces miren lo que dice la falla que encontre..

Cisco Secure ACS 3.x for Windows stores the passwords of ACS administrators in the Windows registry in an encrypted format. A locally generated master key is used to encrypt/decrypt the ACS administrator passwords. The master key is also stored in the Windows registry in an encrypted format. Using Microsoft cryptographic routines, it is possible for a user with administrative privileges to a system running Cisco Secure ACS to obtain the clear-text version of the master key. With the master key, the user can decrypt and obtain the clear-text passwords for all ACS administrators. With administrative credentials to Cisco Secure ACS, it is possible to change the password for any locally defined users. This may be used to gain access to network devices configured to use Cisco Secure ACS for authentication.

Y esta es la clave

[HKEY_LOCAL_MACHINE\Software\Cisco\CiscoAAAv3.3\CSAdmin\Administrators\root]
"password"=hex:e4,1a,87,ea,1f,28,33,29,c5,62,87,01,1b,95,5c,a2,f8,fc,1c,0c,37,\
0a,dc,d4,67,2d,0d,dd,13,91,60,b7

cualquier comentario se los agradecere... de todas maneras les pondre el codigo de la api guide que yo creo que puede relevar esto..

thx

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Hole_System en 25 Diciembre 2008, 22:14 pm