Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
15 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 15 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
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 47 mensagens em 24 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.]
avatar
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.]
avatar
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.
avatar
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