Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
6 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 6 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Retorno quantidade registros tabela mysql

1/10/2018, 16:07 por rrfsistemas

Pessoal não consigo pegar o retorno da consulta MYSQL com o resultado da contagem do numero de …

Comentários: 0

CONEXÃO MYSQL EM SITES

25/7/2018, 16:28 por AMELIO

BOA TARDES A TODOS
ESTOU TENTO UM PROBLEMINHA QUE QUANDO FAÇO A CONEXÃO MYSQL EM SERVIDOR  


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

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

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

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

Os nossos membros postaram um total de 12262 mensagens em 1556 assuntos

Quebra Senha MDB

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

Resolvido Re: Quebra Senha MDB

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo


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