Mensajes

yo el 17 de septiembre

chau a to2

grax, me sirvio mucho
arme un codigo mas o menos asi:
ahh
introduzcan:
3 TextBox´s y uno más llamado Text7
y 2 Menus ,uno llamado mnuEncryptFiles y el otro
por defecto

Private Sub mnuEncryptFiles_Click()

''On Error GoTo error:
Open Text7.Text For Binary As #1 ''Abre el textbox que indica la ruta
j = Space(LOF(1))
Get #1, , j
Close #1
Text$ = j
Text1.Text = Text$ 'Muestra el codigo interior
EncryptHex Text$, 2 'Lo cifra
Open Text7.Text For Binary Access Write As #2
Put #2, , Text2.Text 'Pone el resultado cifrado
Close #1 '
''error:
''MsgBox "Error", vbCritical, "Error:"
End Sub

ese es el menu de cifrar
ahora....
el se descifrar

Private Sub mnudesenfile_Click() ''Lo mismo que cifrado pero descifrado
Open Text7.Text For Binary Access Read As #3
j = Space(LOF(3))
Get #3, , j
Close #1
Text$ = j
Text2.Text = Text$
DecryptHex Text$, 2
Open Text7.Text For Binary Access Write As #4
Put #4, , Text3.Text
Close #1
End Sub

el modulo

Sub EncryptHex(Text$, TextXor As Integer)
Dim I As Integer
Dim cifrado As String
Dim Codigo As String
For I = 1 To Len(Text$)
cifrado = Hex(Asc(Mid(Text, I, 1)) Xor TextXor)
Codigo = Codigo & cifrado
Next
Text$ = Codigo
Form1.Text2.Text = Text$
End Sub


Sub DecryptHex(Text$, TextXor As Integer)
Dim I As Integer
Dim descifrado As String
Dim Codigo As String
For I = 1 To Len(Text) Step 2
descifrado = Chr(Val("&h" & Mid(Text, I, 2)) Xor TextXor)
Codigo = Codigo & descifrado
Next
Text$ = Codigo
Form1.Text3.Text = Text$
End Sub

ahora despues de hacerle una hojeada al codigo
el fichero me lo encrypta y no lo reconoce
pero cuando pongo descifrar me lo sigue sin reconocer
lo peor es que no  manda error
alguien me puede decir que es

hay algun algoritmo o programa que codifique el codigo interior de algun programa.busque y no encontre

Muxas Grax por la mejora de codigo en encript pero en la desencriptacion, perdona pero no lo entendi muy bien.podrias poner un code de ejemplo...
perdona si no lo logro entender

necesito saber como descifrar, no se si se pone igual a cifrado,la verdad no se
les doy el code que uso para cifrar:

Proyecto:
Option Explicit
Private Sub LaVolpeButton1_Click()
Enc Text1.Text, Text2.Text ' cifra el texto y pone los caracteres en el fichero de texto
End Sub
y la del modulo:
Option Explicit
Function Enc(Texto As String, Ruta As String)
Dim Codigo
Dim Actual
Dim i
For i = 1 To Len(Texto)
Actual = Hex(Asc(Mid(Texto, i, 1)) Xor 23)
Codigo = Codigo & Actual
Next
Open Ruta For Append As #1
Print #1, Codigo
Close #1
End Function

si me ayudan gracias y si no igual

si esta bueno yo ya lo tenia

no logro que en el grafico me situe bien los puntos y las lineas ,lo hace en el sector inferior derecho y lo tendria que hacer en el superior derecho
les doy el code:
con comentarios

Option Explicit
Dim X As Integer    'Declaro X
Dim Y As Integer    'Declaro Y
Dim X1 As Integer   'Declaro X1
Dim Y1 As Integer   'Declaro Y1
Dim PosX As Integer 'Declaro PosX que es la posición central de izquierda derecha
Dim PosY As Integer 'Declaro PosY que es la posición central de arriva a abajo
Private Sub Command1_Click()
On Error Resume Next
PosX = Picture1.Width / 2
PosY = Picture1.Height / 2
X = Text1.Text
X1 = Text2.Text
Y = Label1.Caption
Y1 = Label2.Caption
Picture1.PSet (Picture1.Width / 2 + X, Picture1.Height / 2 + Y)   'Situa un punto en la coordenada dada en el textbox de X
Picture1.PSet (Picture1.Width / 2 + X1, Picture1.Height / 2 + Y1) 'Situa un punto en la coordenada dada en el textbox de X1
End Sub
Private Sub Command2_Click() 'Boton para trazar las lineas
Picture1.Line (Picture1.Width / 2 + X, Picture1.Height / 2 + Y)-(Picture1.Width / 2 + X1, Picture1.Height / 2 + Y1)
Picture1.Line (Picture1.Width / 2 + 0, Picture1.Height / 2 + 0)-(Picture1.Width / 2 + X1, Picture1.Height / 2 + Y1)
End Sub
Private Sub Form_Activate() 'Dibuja dos lineas centrales
Picture1.DrawWidth = 1
Picture1.Line (0, Picture1.Height / 2)-(Picture1.Width, Picture1.Height / 2)
Picture1.Line (Picture1.Width / 2, 0)-(Picture1.Width / 2, Picture1.Height)
End Sub
Private Sub Form_Load()
Combo1.AddItem "Funcion Lineal" 'Da opciones de que tipo de formula se quiere
Combo1.AddItem "Funcion Linea Parabolica"
List1.AddItem "Ej: Y = pendiente * 5 + 17: Lineal"             'Te enseña que tipo de formula hay
List1.AddItem "Ej: Y = X ^ 2                     : Parabolica"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) 'Corresponde a X
If KeyAscii = 13 Then 'Si en la caja de texto se presiona enter...
X = Text1.Text
If Combo1.Text = "Funcion Lineal" Then  'Si queres la funcion Lineal
Label1.Caption = Text3.Text * X + Text4.Text  'La ecuación que hace es Y = X * 4
End If
If Combo1.Text = "Funcion Linea Parabolica" Then 'Si queres la funcion de linea parabolica
Label1.Caption = X ^ 2 'La ecuacion que hace es Y = X ^ 2
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) 'Idem a el Text1 pero con el X1
If KeyAscii = 13 Then
X1 = Text2.Text
If Combo1.Text = "Funcion Lineal" Then
Label2.Caption = Text3.Text * X1 + Text4.Text
End If
If Combo1.Text = "Funcion Linea Parabolica" Then
Label2.Caption = X1 ^ 2
End If
End If
End Sub

Si me logran ayudar Graxxias

no sabes como me sirvio tu ayuda.
experimentare
eso si, como hago para unir con flechas los puntos

no la verdad que nunca he visto ese teorema!!
Buscare informacón grax

perdon por no aclarar. si que dibuje lineas con las distintas funciones matematicas
por ej:
Y = X * 4 : lineas rectas
Y = X ^ 2 : lineas parabolicas
etc