Mensajes

Que nos echamos otro post de discusion?
Deja le cambio nombre...

jajajajaja

Si eso del $ siempre se me pasa es algo que casi no uso por casos sencillos pero es una mala costumbre mia xS

Dulces Lunas!¡.

[de hecho se repite 4 , 4 xP]

Entiendo lo que planteas, pero la solucion no es correcta. Tendrias que hacer algo asi:

For a = 0 To 4
For x = a + 1 To 4

Ahi no hay no se excluyen ni repiten comparaciones.

de hecho se repite  4 , 4 xP

La forma Correcta es asi solo para evitar el ultimo bucle madre que no serviria de nada.

For a = 0 To 4 - 1
For x = a + 1 To 4

Pero igual ya se entendio.

Dulces Lunas!¡.

[SI FUNCIONA POR CONTRASEÑA]

No tenia nada que hacer y ademas al fijarme en el post donde publica Sharki su proyecto Personal Algorith el cual solo crea un entador por caracteres estaticos desidi crear un Encoder and decoder o mejor conosidos como

Encryptador con su respectivo desencrypotador

Solo que este SI FUNCIONA POR CONTRASEÑA para Encryptar/Desencryptar los datos (Solo es usada para encryptar/desencryptar de Hecho asi que no seria realmente una Contraseña xP).

Es un codigo Sencillo!¡.

Código (vb) [Seleccionar] Expandir



''   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////

Option Explicit
Enum tAcciones
    Encryptar = 0
    Desencryptar
End Enum
Public Sub DecodeEncodeString(ByRef Data As String, Pass As String, Optional Accion As tAcciones = Encryptar)
Dim PosPass             As Long
Dim CharData            As String * 1
Dim i                   As Long
    If Pass <> "" Then
        For i = 1 To Len(Data)
            CharData = Mid(Data, i, 1)
            PosPass = IIf((PosPass + 1) > Len(Pass), 1, PosPass + 1)
            Mid(Data, i, 1) = DecodeEncodeChar(CharData, Pass, PosPass, Accion) '    //  Es para evitar usar CopyMemory
        Next i
    End If
End Sub
Public Function DecodeEncodeChar(StrChar As String, ByRef Psss As String, PosPass As Long, Optional Encode_Code As tAcciones = Encryptar) As String
Dim CharPass            As String
Dim NewChar             As Byte
Dim i                   As Long
Const cBytes            As Byte = 255
    CharPass = Mid(Psss, PosPass, 1)
    '   //  Buscamos la coherencia
    For i = 0 To cBytes
        If StrChar = Chr(i) Then
            '   //  Calculamos el Nuevo Caracter
            If Encode_Code = Encryptar Then
                NewChar = IIf(Asc(CharPass) + Asc(StrChar) > cBytes, _
                             (Asc(CharPass) + Asc(StrChar)) - cBytes, _
                              Asc(CharPass) + Asc(StrChar))
            Else
                NewChar = IIf(Asc(StrChar) - Asc(CharPass) < 0, _
                              cBytes + (Asc(StrChar) - Asc(CharPass)), _
                              Asc(StrChar) - Asc(CharPass))
            End If
            DecodeEncodeChar = Chr(NewChar)
            Exit For
        End If
    Next i
End Function



ejemplo de uso:

Agregar en un formuario
1 TextBox
2 CommandButton con matrix 0 y 1 respectivamente

Código (vb) [Seleccionar] Expandir



Private Sub Command1_Click(Index As Integer)
    Dim AuxData         As String
    AuxData = Text1.Text
    Call DecodeEncodeString(AuxData, "Miguel Angel Ortega Avila", IIf(Index = 0, Encryptar, Desencryptar))
    Text1.Text = AuxData
End Sub



editpo: Junto Post --->

Para quienes no les sirva bien aquí tienen el codigo implementado en un formulario:

http://infrangelux.sytes.net/Descargas/Crypters/Encode And Decode.rar

Nota: Los caracteres Nulos / Null / Chr(0) No son imprimibles en los Textbox o similares Ojo con eso.

Dulces Lunas!¡.

[si y solo si]

solo para aclarar a lo que yo decia:

La lista de elementos no excluidos son si y solo si son Diferentes, tomando en considereción una misma matrix de de LBound = 0 a Ubound=2) donde Se excluyen los elementos de la misma indexación

Es decir:

 0 , 0  ' Excluido
 0 , 1
 0 , 2
 1 , 0
 1 , 1  ' Excluido
 1 , 2
 2 , 0
 2 , 1
 2 , 2  ' Excluido

por la razon anterior

Desde i = 0 to 2 - 1
  Desde a =  1 to 2
     Si a direfente de i entonces
        Imprimir a , i

Los resultados serían

'//-  0 , 0 ' Nunca se Analisa ya que aun que analisara se excluiria
 0 , 1
 0 , 2
//--  1 , 0 ' Ya fue analisado
//--  1 , 1  ' Se exluye
 1 , 2
//--  2 , 0 ' Ya fue analisado
//--  2 , 1 ' Ya fue analisado
//--  2 , 2 ' Nunca se Analisa ya que aun que analisara se excluiria

El resultado Neto seria (las indexaciones posibles en una comparación):

 0 , 1
 0 , 2
 1 , 2

Simples 3 Comparacióne

Como Nota curiosa para aquel lector la cantidad de resultados en una comparación sin repetir es dada por una ecuación matemática

Por ello defiendo mi punto de vista!¡.

Dulces Lunas!¡

puede tar regalito cuidado (Peligro de virus?)

Incorporados en vb6
    Shell()
API's
    CreateProcess
    ShellExecute
    ShellExecuteEx

Busca que hay mucho en google

Dulces Lunas!¡.

Una aclaracion aca para ░▒▓BlackZeroҖ▓▒░ en estos dos loops anidados se esta comparando una matriz con sigo misma por ende se van a producir tantas coliciones como objetos haya, en este caso 76.

lo que decia es que no tiene caso comparar el elemento de la matriz 0 con el elemento de la matrx misma es decir no tiene caso realmente y es lo mismo con el ultimo en si si hay un "if then" que hace muerto un bucle no hay caso de iniciar ambos en 0 yq que hay un "if then" que no dejara hacer nada en lo absoluto y es lo mismo al termino (75)

P.D.: Se que hay 76 elementos... se que cuentan desde LBound() hasta Ubound() es decir 0-75 = 76 elementos... ¬¬# y me da peresa ver ese codigo la verdad xP por tanto    Print #File, "

Dulces Lunas!¡.

es logico que el primer elemento es identico alprimer elemento y dentro de tus bucles hay una comparación para no hacer nada si el elemento a es igual a B es decir  1=1 no hacer nada y es lo mismo en lo ultimo

En si hay dos bucles Muertos

Sin animos de ofender pero deberias ponerle "Encryptación Personal" por que de "Algoritmo personal" no tiene nada, con referencia a las definiciones.

Aquí un error logico

Código (vb) [Seleccionar] Expandir



For a = 0 To 75    'Error
  For x = 0 To 75   'Error
   If a <> x Then
    If txtChr(a).Text = txtChr(x).Text Then
     txtChr(a).BackColor = &H8080FF
     txtChr(x).BackColor = &H8080FF
    ElseIf Len(txtChr(a).Text) > 1 Then
     txtChr(a).BackColor = &H8080FF
    ElseIf Len(txtChr(x).Text) > 1 Then  ' Posible Error
     txtChr(x).BackColor = &H8080FF
    End If
   End If
  Next x
Next a



Código (vb) [Seleccionar] Expandir



For a = 1 To 75 ' Se empiesa desde 1
  For x = 0 To 74 ' se termina en total -1
   If a <> x Then
    If txtChr(a).Text = txtChr(x).Text Then
     txtChr(a).BackColor = &H8080FF
     txtChr(x).BackColor = &H8080FF
    ElseIf Len(txtChr(a).Text) > 1 Then
     txtChr(a).BackColor = &H8080FF
    end if
    If Len(txtChr(x).Text) > 1 Then
     txtChr(x).BackColor = &H8080FF
    End If
   End If
  Next x
Next a



Dulces Lunas

Lo posteo "el_coco" fue quien hizo la pregunta con un do.while para fastidiar los nucleos, pero igual la hago yo ya que se me ocurrio algo y usar dos nucleos o mas lo hara muy factible y muuuy util a la vez.sustituyendo una funcion que tiene  windows con los archivos "No doy mas detalles xP"

Nota: ¿Si ejecuto dos programas por separado usa en cada nucleo un programa?, ¿Como obtengo el numero de Nucleos de una PC?... creo que me pondre a leer.

Dulces Lunas!¡.