Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
10 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 10 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Estatísticas
Temos 6989 usuários registrados
O último usuário registrado atende pelo nome de rodiney

Os nossos membros postaram um total de 4 mensagens em 2 assuntos

Quebra Senha MDB

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Quebra Senha MDB

Mensagem por Marcos Guedes em 26/2/2010, 12:03

Olá, amigos!
Estou precisando quebrar a senha de uma arquivo .mdb (Se realmente for possível).

Encontrei o seguinte código no link [Você precisa estar registrado e conectado para ver este link.]
Código:
chamada : QuebraSenha("path\arquivo.mdb"), retorna a senha.

Function QuebraSenha(ByVal Arquivo As String) As String
    Dim MaxSize, NextChar, MyChar, secretpos, TempPwd
    Dim secret(13)
    secret(0) = (&H86)
    secret(1) = (&HFB)
    secret(2) = (&HEC)
    secret(3) = (&H37)
    secret(4) = (&H5D)
    secret(5) = (&H44)
    secret(6) = (&H9C)
    secret(7) = (&HFA)
    secret(8) = (&HC6)
    secret(9) = (&H5E)
    secret(10) = (&H28)
    secret(11) = (&HE6)
    secret(12) = (&H13)
    secretpos = 0
   
    Open Arquivo For Input As #1 ' arquivo mdb

    For NextChar = 67 To 79 Step 1 ' Posicoes da senha
        Seek #1, NextChar
        MyChar = Input(1, #1) 'le o caracter
        TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos)) ' transforma caracter criptografado
        secretpos = secretpos + 1
    Next NextChar
    Close #1
    QuebraSenha = TempPwd
End Function

Estou tentando executá-lo, mas o mesmo está apresentando erros nas seguintes linhas:
Linha 1 e 2 escreveu:Dim MaxSize, NextChar, MyChar, secretpos, TempPwd
Dim secret(13)
Linha 18 escreveu:Open Arquivo For Input As #1 ' arquivo mdb
Linha 21 e 22 escreveu:Seek #1, NextChar
MyChar = Input(1, #1) 'le o caracter
Linha 26 escreveu:Close #1
Alguém poderia me dizer o que está errado no código?!
Não conheço muito de VB.


Última edição por Marcos Guedes em 6/5/2010, 23:23, editado 1 vez(es)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Quebra Senha MDB

Mensagem por JPaulo em 1/4/2010, 11:05

Veja este exemplo;

[Você precisa estar registrado e conectado para ver este link.]

JPaulo
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Quebra Senha MDB

Mensagem por Marcos Guedes em 1/4/2010, 11:50

Obrigado, Paulo!
Muito bom este programinha!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Quebra Senha MDB

Mensagem por hugo em 1/4/2010, 11:58

obrigado por compartilhar!

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Quebra Senha MDB

Mensagem por Marcos Guedes em 6/5/2010, 23:27

O aplicativo que o Paulo disponibilizou foi muito útil.
Resolveu o meu problema.
Porém se alguém souber me ajudar com a dúvida postada em minha primeira mensagem, ficarei grato.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Quebra Senha MDB

Mensagem por brunohertzel em 2/12/2010, 10:12

Show de bola, me quebrou um galho e tanto... Muito obrigado Paulo

brunohertzel
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Quebra Senha MDB

Mensagem por edspicer em 27/7/2011, 13:30

Marcos nao sei se e valido dizer mas ai vai: (em relação a 1ª. postagem)
nas duas primeiras linhas faltou termimar a declaração.
Dim MaxSize, NextChar, MyChar, secretpos, TempPwd
Dim secret(13)

declare como string ou se nao souber o que ele ira armazenar declare como variant.
vc pode declarar tambem cada variavel em uma linha (em separado, um sugestão).
Na seguinte linha:
Open Arquivo For Input As #1 ' arquivo mdb
O que seria este mdb, alguma variavel, extensão...?
talvez se deixar somente como arquivo provavelmete funcionara.
exprerimente trocar o #1 por algum nome, talvez fique mais facil de ler o programa.
Espero ter ajudado.

edspicer
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Quebra Senha MDB

Mensagem por Marcos Guedes em 28/7/2011, 14:24

valeu, edspicer!
Smile

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum