• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

asworm

[VB6] Sequenciador de Chaves

10 mensagens neste tópico

Oi pessoal sou novo aqui por isso espero que me ajudem com as vossas dicas (tratem me por "worm" ou por "asworm")

to nu 11º (curso tecnológico de informática) por isso alguns programas podem parecer estúpidos :-[

este programa e meramente didáctico...

A função deste programa e listar todas as sequências possíveis de uma chave introduzida pelo utilizador com obrigatoriamente 4 dígitos,

actualmente encontro-me a fazer todos os possíveis para lançar o programa mas que abranja sequências de caracteres maiores... :cheesygrin:

mas como é um bocado seca vai demorar um pouco mais... loooooOOOOl :cheesygrin:

è utilizado o VB6

Espero que me corrijam ou lancem alguns comentarios ao programa

obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Antes demais bem vindo ao P@P asworm .

Gostariamos que tentasses escrever Português correcto e se possivel editasses o teu primeiro post para Português.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Era bom que obedecesses (esta palavra existe? lol) às regras, e postasses (tbm n existe pois não?) o teu código avisando qual a versão do seu conteúdo no tópico.

Tipo [Vb6] Sequenciador de Chaves

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tipo podiam criticar o código... acho que era mais proveitoso... mas ta bem eu altero!!!

obrigado mais uma vez

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

VERSION 5.00
Begin VB.Form Saca 
   BackColor       =   &H80000007&
   Caption         =   "Saca"
   ClientHeight    =   3165
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   3030
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   3030
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Sair"
      Height          =   1095
      Left            =   2280
      TabIndex        =   4
      Top             =   240
      Width           =   615
   End
   Begin VB.ListBox Combinações 
      Height          =   1425
      ItemData        =   "Saca Xaves.frx":0000
      Left            =   120
      List            =   "Saca Xaves.frx":0002
      TabIndex        =   3
      Top             =   1440
      Width           =   2775
   End
   Begin VB.CommandButton Command1 
      Caption         =   "OK"
      Height          =   735
      Left            =   1560
      TabIndex        =   2
      Top             =   240
      Width           =   615
   End
   Begin VB.TextBox st 
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   1335
   End
   Begin VB.Label Label2 
      BackColor       =   &H000000FF&
      Caption         =   "Combinações"
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   1080
      Width           =   2055
   End
   Begin VB.Label Label1 
      BackColor       =   &H000000FF&
      Caption         =   "Password (Max4)"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   1335
   End
   Begin VB.Menu F 
      Caption         =   "Ficheiro"
      Begin VB.Menu C 
         Caption         =   "Apagar Registos"
      End
      Begin VB.Menu s 
         Caption         =   "Sair"
      End
   End
   Begin VB.Menu H 
      Caption         =   "Ajuda"
      Begin VB.Menu i 
         Caption         =   "Instruções"
      End
      Begin VB.Menu a 
         Caption         =   "Sobre"
      End
   End
End
Attribute VB_Name = "Saca"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim comb As String, sta(0 To 9) As String
Dim contfor As Integer, contlist As Integer
Dim listagem As Integer, psixave As String
Dim psicomb As String, ctf As Integer
Dim xek As Integer

Private Sub a_Click()
Saca.Hide
Sobre.Show
End Sub

Private Sub C_Click()
Combinações.Clear
End Sub

Private Sub Command1_Click()
If Len(st.Text) < 4 Or Len(st.Text) > 4 Then
l = MsgBox("Existem mais ou menos caracteres que o primitido", vbOKOnly, "erro")
Exit Sub
End If
comb = st.Text
sta(0) = Left(st, 1)
sta(1) = Mid(st, 2, 1)
sta(2) = Mid(st, 3, 1)
sta(3) = Right(st, 1)
For contfor = 0 To 3333
xek = 0
If Len(Str(contfor)) - 1 = 1 Then
  psicomb = "000" & contfor
  ElseIf Len(Str(contfor)) - 1 = 2 Then
   psicomb = "00" & contfor
  ElseIf Len(Str(contfor)) - 1 = 3 Then
   psicomb = "0" & contfor
  ElseIf Len(Str(contfor)) - 1 = 4 Then
   psicomb = contfor
End If
psixave = sta(Left(psicomb, 1)) & sta(Mid(psicomb, 2, 1)) & sta(Mid(psicomb, 3, 1)) & sta(Right(psicomb, 1))
listagem = Combinações.ListCount
If Len(psixave) = 4 Then
  For ctf = 0 To listagem
   If psixave = Combinações.List(ctf) Then Exit For
   If ctf = listagem Then xek = 1
  Next
  If xek = 1 Then Combinações.List(listagem) = psixave
End If
Next
End Sub

Private Sub Command2_Click()
End
End Sub


Private Sub i_Click()
MsgBox ("Este Programa Consiste numa atribuição de uma sequencia por parte do utilizador na Caixa de entrada de texto(abaixo de Password), dando o computador as sequencias possiveis.")
End Sub

Private Sub s_Click()
End
End Sub

Aqui nesta parte

Private Sub Command1_Click()
If Len(st.Text) < 4 Or Len(st.Text) > 4 Then
l = MsgBox("Existem mais ou menos caracteres que o primitido", vbOKOnly, "erro")
Exit Sub
End If

poderias limitar a text box a um tamanho máximo de 4 caracteres, e só alertavas quando o tamanho fosse inferior, pois deixaria de existir o problema do excesso de caracteres.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Oi obrigado por ter postado o codigo...

eu estou trabalhando numa nova versao que le o numero de caracteres que o utilizador introduz e nessa versao pode ter mais caracteres... originando um software mais completo...

obrigado pela dica...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para mim acho poucas combinações encontradas , faça a experiencia Password = z9so5

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pode parecer poucas mas sao as possiveis, esperimente encontalas com um programa da sua autoria, onde tenha confiança, e vai ver que sao as mesmas... :) a password que divulgou tem 5 caracteres, este programa ta limitado a 4 caracteres... :nono:

Ou entao veja quantas conbinações consegue com 4 digitos, e introduza nu codigo uma messagebox com a funcao ("Combinações.count") :hmm:

sendo que o nome conbinações seja o nome da listbox...

obrigado

continuem a dar opiniões... :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bom, só tive a ver o código k o RL postou, e a única coisa que me parece que tenhas de mudar (repito, mudar, acrescentar é outra história) é a palavra "primitido" para "permitido" :) fica, bom trabalho.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora