schileid

Nao testei, portanto não sei se dará certe. Sorte.... 1-) Primeiro crie um banco de dados vazio ( sem tabelas , sem nada..) com a mesma data de criação do arquivo mdb que você perdeu a senha 2-) Inicie um novo projeto no Visual Basic e no formulário padrão insira um botão de comando - command1 - e uma caixa de texto - text1.text. 3-) A seguir inclua o seguinte código no evento Click do botão de comando: Private Sub Command1_Click() Dim n As Long, s1 As String * 1, s2 As String * 1 Dim lsClave As String Open "c:\laranja.mdb" For Binary As #1 Open text1.text For Binary As #2 Seek #1, &H43 Seek #2, &H43 For n = 1 To 40 Step 2 s1 = Input(1, 1) s2 = Input(1, 2) If (Asc(s1) Xor Asc(s2)) <> 0 Then lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2)) End If s1 = Input(1, 1) s2 = Input(1, 2) Next Close 1 Close 2 MsgBox "A senha é...:" & lsClave End Sub Obs: Note que laranja.mdb é o nome que eu dei ao meu banco de dados vazio. Execute o projeto e informe o caminho e nome do banco de dados com a senha perdida. Em menos de 2 segundos a senha estará a sua disposição. []`s Aparicio - FW20 - BLINKER7 - CLIPPER53B

Aqui estão dois manuais. Apesar de estarem em espanhol serviram para que eu começasse a usar. http://www.dbwide.com.ar/local-cgi/counter/filecount2.cgi?docs/usar_cdx.zip []`s FW20 - Blinker 7 - Clipper 53b Editado por - schileid on 13/06/2005 20:59:47

Aproveitando o tema, só por curiosidade, copiei umas rotinas de abertura de arquivos de um sistema onde ele usa run("cd\dir") depois use file..., no sistema original funcionava e continua funcionando em todas as máquinas sem problema, nos programas que criei para relatórios e consultas avançadas e diferenciadas quando trabalhava na empresa funcionava legal. Depois fui para outra empresa e agora voltei a dar suporte. Só que segundo os funcionários as rotinas que havia criado nao func. +. Fiz algumas alterações para adequar os programas e para minha surpresa hoje alguns programas não rodam nas máquinas novas - P4-64mb, outros abrem normalmente usando o mesmo sistema. Resolvi usando set default e use ("dir\file"), porém não entendi o porque do problema.

Grande Vagner! Tudo Beleza! Vc deu uma sumida também, espero que seja devido a grandes projetos - (muito $$$$), pois não o vejo + on-line no msn!!!! Um grande Abraço!

Olá Marcelo, o e-mail que vc mandou irá retornar, acabei esquecendo de atualizar meu novo e-mail: schileider@yahoo.com.br, se puder reenviar ficarei muito agradecido. Valeu pelas dicas, vou testar amanhã. []'s Editado por - schileid on 13/05/2005 19:37:41

Obrigado Elias. O erro padrão:error create dialog..., se seu carregar a bwcc ou definir a dialog na unha funciona sem problemas. Como não gosto da bwcc, queria uma forma de driblar o uso da mesma. Com .bmp funciona legal, já com jpg da dando erro.

Olá! Entre indas e vindas, estou de volta. Gostaria de saber se algúem conseguiu usar arquivos .jpg em dialogs feitas no Workshop sem o bwcc.dll. Estou desenvolvendo um sistema para Biblioteca e precisa mostrar a foto do aluno. Se montar a dialog com @ xx,yy e @ xx,yy IMAGE ... funciona, agora se usar o REDEFINE ...sem carregar a maledeta dll - PAU...id='Tahoma'> Editado por - schileid on 12/05/2005 19:45:23