Últimos Temas de: zack0zack

Mostrar Temas
Páginas: [1]

1	Programación / .NET (C#, VB.NET, ASP) / [VB] Downloader GigaSize	en: 2 Julio 2009, 23:25 pm
Estoy creando un programa para descargar archivos de GigaSize. El Captcha ya lo solucione atraves de un rudimentario OCR, pero no se como o que objeto/control utilizo y como lo implmento para cargar la pagina web con la respectiva imagen del captcha y como enviar el formulario para obtener la respuesta con la respectiva direccion de descarga

Programación / .NET (C#, VB.NET, ASP) / Password Access

en: 16 Mayo 2009, 16:38 pm

estoy haciendo un programa en VB.NET para saber la contraseñas de las bases de datos de Acces y encontre este codigo, pero no funciona alguien me puede decir mi error

Código:

'Access 95/97 Password Revealer
'Copyright (c) Nir Sofer 2002
'
'Web site: http://nirsoft.mirrorz.com
'
'This small utility instantly recovers the database password of Microsoft Access files (mdb files)
'It works only with Access 95 or 97.
'
Option Explicit

Private Function XorPassword(Bytes As Variant) As String
    Dim XorBytes()      As Variant
    Dim strPassword     As String
    Dim intIndex        As Integer
    Dim CurrChar        As String * 1
    
    XorBytes = Array(&H86, &HFB, &HEC, &H37, &H5D, &H44, &H9C, &HFA, &HC6, &H5E, &H28, &HE6, &H13, &HB6, &H8A, &H60, &H54, &H94)
    strPassword = vbNullString
    intIndex = 0
    
    Do
        'Get a character from the password by doing a XOR with the appropriate value in XorBytes array.
        CurrChar = Chr$(Bytes(intIndex + &H42) Xor XorBytes(intIndex))
        'If we get a Null character, get out of the loop.
        If Asc(CurrChar) = 0 Then Exit Do
        'Add the password character to the accumulated password string.
        strPassword = strPassword & CurrChar
        intIndex = intIndex + 1
    Loop Until intIndex = 17
    
    XorPassword = strPassword
End Function

Private Function GetAccessPassword(strFilename As String) As String
    Dim intFileNum      As Integer
    Dim Bytes(&H100)    As Byte
    
    intFileNum = FreeFile
    'Open the Access filename
    Open strFilename For Binary As #intFileNum
    
    'Read first 256 bytes
    Get #intFileNum, , Bytes
    
    'Get the password from the XorPassword function
    GetAccessPassword = XorPassword(Bytes)
    Close #intFileNum
End Function

Private Sub cmdBrowse_Click()
    On Error GoTo canceled
    OpenDialog.Flags = cdlOFNExplorer Or cdlOFNFileMustExist Or cdlOFNHideReadOnly
    OpenDialog.ShowOpen
    txtFilename.Text = OpenDialog.FileName
    Exit Sub
canceled:
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdGetPassword_Click()
    Dim strFilename     As String
    
    strFilename = Trim$(txtFilename.Text)
    If Len(strFilename) = 0 Then
        MsgBox "You must select a filename !", vbOKOnly Or vbInformation
    ElseIf Len(Dir(strFilename)) = 0 Then
        MsgBox "The filename does not exist !", vbOKOnly Or vbInformation
    Else
        txtPassword.Text = GetAccessPassword(strFilename)
    End If
End Sub

3	Programación / .NET (C#, VB.NET, ASP) / [VB] Setting?	en: 24 Enero 2009, 23:08 pm
utilizo mi aplicacion en un Pen-Driver y cada ves que lo desconecto y lo conecto de nuevo no guarda la configuracion por eso quiero ponerla en un archivo y que lea la configuracion desde, ahi si alguien sabe como se hace por favor

4	Programación / Scripting / Ayuda con VBscript para saber Version de programa	en: 10 Junio 2007, 00:09 am
necesito ayuda para saber la version de cualquier programa con vbscript. lo que tengo hasta ahora es abrir el archivo (.exe) con fso.OpenTextFi le y obtener la parte de la informacion . Todo esto lo saque imbestigando con un editor hexadecimal archivos EXE y DLL y comparandolo con las propiedades del archivo. Al final de cada variable hay caracteres de sobra que no encuntro la forma de quitarlos ya que la cantidad de caracteres varia dependiendo de la propiedad del archivo si alguin le encuentra un problema o lo mejora por favor subalo al foro o embiamelo a: zack0zack@hotmail.com guardar como: version.VBS ********************* CORTAR AQUI ************************** set fso=CreateObject("Scripting.File SystemObject") FILE=inputbox("Archivo:") if FILE=""then WScript.Quit set f = fso.OpenTextFi le(FILE) 'abro el archivo a = f.ReadAll 'lo leo todo f.close 'cierro el archivo 'Variable donde empieza informacion del Archivo DeclaracionInf o = "V" & chr(00) & "S" & chr(00) & "_" & chr(00) & "V" & chr(00) & "E" & chr(00) & "R" & chr(00) & "S" & chr(00) & "I" & chr(00) & "O" & chr(00) & "N" & chr(00) & "_" & chr(00) & "I" & chr(00) & "N" & chr(00) & "F" & chr(00) & "O" a = mid(a,instr(a,DeclaracionInfo)) a = replace(a,chr(00) & chr(01) & chr(00),",+\|;") 'Creo delimitador para la matriz, antes de sacar los 00 'bucle para borrar caracteres indeceables como los 00 'los caracteres que quedan son: ' a-z A-Z 0-9 (Avance de línea)(Retorno de carro)(espacio)!"#$%&'()+,-./:;<=>?@[\]^_`{\|}~€‚ƒ„‘’“”–—˜™©¿ for x = 0 to 9 a = replace(a,chr(x),"") Next a = replace(a,chr(11),"") a = replace(a,chr(12),"") For x = 14 to 31 a = replace(a,chr(x),"") Next a = replace(a,chr(127),"") a = replace(a,chr(129),"") For x = 133 to 144 a = replace(a,chr(x),"") Next a = replace(a,chr(149),"") For x = 154 to 168 a = replace(a,chr(x),"") Next a = replace(a,chr(170),"") a = replace(a,chr(171),"") a = replace(a,chr(172),"") For x = 173 to 190 a = replace(a,chr(x),"") Next For x = 192 to 255 a = replace(a,chr(x),"") Next 'encrontre archivos que al final de la informacion por lo general tiene 'esto <?xml por lo que desde de esto ya no necesito esto lo quito if instr(a,"<?xml")<>0 then a = left(a,instr(a,"<?xml")-1) a = replace(a,",+\|;VarFileInfo$Translation","") 'no le encontre utilidad a esto por eso lo borro Info = Split(a,",+\|;") 'Creo matriz para separar los datos 'bucle donde pongo los datos a las variables for x=0 to ubound(Info) info(x) = left(info(x),len(info(x))-1) if instr(info(x),"CompanyName") <>0 then Organizacion = replace(info(x),"CompanyName","") end if if instr(info(x),"FileDescriptio n") <>0 then Descripcion = replace(info(x),"FileDescriptio n","") end if if instr(info(x),"FileVersion") <>0 then VersionArchivo = replace(info(x),"FileVersion","") end if if instr(info(x),"InternalName") <>0 then NombreInterno = replace(info(x),"InternalName","") end if if instr(info(x),"LegalCopyright") <>0 then Copyright = replace(info(x),"LegalCopyright","") end if if instr(info(x),"OriginalFilena me") <>0 then NombreOriginalArchivo = replace(info(x),"OriginalFilena me","") end if if instr(info(x),"ProductName") <>0 then NombreProducto = replace(info(x),"ProductName","") end if if instr(info(x),"ProductVersion") <>0 then Version = replace(info(x),"ProductVersion","") end if if instr(info(x),"LegalTrademark s") <>0 then MarcasRegistradas = replace(info(x),"LegalTrademark s","") end if if instr(info(x),"PrivateBuild") <>0 then DescripcionVersionPrivada = replace(info(x),"PrivateBuild","") end if if instr(info(x),"SpecialBuild") <>0 then DescripcionVersionEspecial = replace(info(x),"SpecialBuild","") end if if instr(info(x),"Comments") <>0 then Comentarios = replace(info(x),"Comments","") end if next 'muestro información wscript.echo "Organizacion: " & Organizacion & vbcrlf & _ "Descripcion: " & Descripcion & vbcrlf & _ "Version del Archivo: " & VersionArchivo & vbcrlf & _ "Nombre Interno: " & NombreInterno & vbcrlf & _ "Copyright: " & Copyright & vbcrlf & _ "Nombre original del archivo: " & NombreOriginal Archivo & vbcrlf & _ "Nombre del Producto: " & NombreProducto NombreProducto NombreProducto & vbcrlf & _ "Version: " & Version & vbcrlf & _ "Marcas Registradas: " & MarcasRegistra das & vbcrlf & _ "Descripcion de la version Privada: " & DescripcionVer sionPrivada & vbcrlf & _ "Descripcion de la version Especial: " & DescripcionVer sionEspecial" & vbcrlf & _ "Comentarios: " & Comentarios msgbox "TERMINE "&WScript.Script FullName ******************** FIN **************************

Páginas: [1]