Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
20 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

marcos de boni

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7035 usuários registrados
O último usuário registrado atende pelo nome de marcos de boni

Os nossos membros postaram um total de 31 mensagens em 17 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