yo el 17 de septiembre
chau a to2
chau a to2
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarese es el menu de cifrar
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
Citarel modulo
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
Citarahora despues de hacerle una hojeada al codigo
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
Citarsi me ayudan gracias y si no igual
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
CitarSi me logran ayudar Graxxias
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