Mensajes

yo tb me aputoo :P jeje

con la cantidad de anotados q haya creo q va a variar mucho segun la dificultad de lo q se vaya a realizar...

SALUDOS

trata de cifrar esto:
chr(1) & chr(1) & chr(1)

no probe, pero creo que da un resultado negativo y falla al hacer el chr()
para solucionarlo podes hacer que cuando quede abajo del 0 siga desde 255

mmm la onda es cifrar texto plano xD...

bueno honestamente yo usaba uno q saque de internet q una sola funcion realizaba las dos tareas (descencriptar y cifrar) pero nunca lo habia entendido...
ahora no se xq se me ocurrio mirarlo, con mas conociminetos y me di cuenta q es xq usa el comando Xor (estuve investigando q es... no es nada jodido..) y pense xq no hacer uno yo xD...
y bueno lo hice , la verdad no se si habra uno parecido (no creo q igual ¬¬) en internet xq ni me fije xD pero a este lo hice yo
lo bueno q le veo a este code es q si cifrar x ejemplo AAAA el resutaldo no van a ser 4 caracteres iguales sino q todos distintos

Código (vb) [Seleccionar] Expandir

Private Function cifrar(Cadena As String)
Dim Tam As Long
Dim i As Long
Tam = Len(Cadena)
cifrar = ""
For i = 1 To Tam
    cifrar = cifrar & Chr(Asc(Mid(Cadena, i, 1)) + Tam - i + 10)
Next
End Function

Private Function Descencriptar(Cadena As String)
Dim Tam As Long
Dim i As Long
Tam = Len(Cadena)
Descencriptar = ""
For i = 1 To Tam
    Descencriptar = Descencriptar & Chr(Asc(Mid(Cadena, i, 1)) - Tam + i - 10)
Next
End Function

bueno no se xD si les sirve o quieren opinar o conocen algun otro copado

mmm hay partes del codigo q no se q baten xD como esta

Código (vb) [Seleccionar] Expandir

If lab3.Caption = "desconectado" Then
lab3.Caption = "desconectado"
GoTo puente
Else
End If

encima puente no esta en ningun lado xD

en fin para conectarte a ese servidor el cliente deberia tener

dim ip as string
dim puerto as long
ip = "127.0.0.1"
puerto = 'aca pones el q pongas en el text1.text del servidor
ws.connect ip, puerto

y listo.. ahi ya lo conectaste

SALUDOS

no se xq me suena a q se agranda y q hizo lo q le dije ¬¬

bueno quisiera mencionar varios puntos xD... lo hago en español xq yo tmp tengo un buen ingles y aparte no responden a la pregunta....
primera q si es tan tan tan facil... hacelo solo y punto odesa
segundo... es como dijo ya no se quien (tengo paja para buscar xD) q este foro es en español... de ultima buscate uno en ingles y preg
tercero... creo q si no habla bien el ingles puede ser q hable ... no se frances... pero postea en ingles xq es lo mas logico de q entendamos XD

i think you wanna do a program to make a server like a troyan... so the Stub when is opened must be read him and make a split (for example: "|here is a textbox|") and then take the second part (index1) and put there con Text1.Text
And you must do in the Troyan Manager when you make a server, read the stub and make file anding in "|here is a textbox|" & Text1.Text

did you understand?

[Access - SQL - VB]

uhh esta complicado ayudarte... es como una sola duda pero muy grande...
cuanto sabes de VB?
programa para q?... puedes usar Access q es mas facil... o SQL q es mas moderno veloz y eficiente...
y bue no se como mas ayudarte xD...
mmmm
busca Access - SQL - VB
en google seguro algo hay y sino por el foro...

punto 1: en el ejemplo tb se hace con murcielagos.
punto 2: xq siguen reviviendo este post xD ... encima es algo tna sencillo de hacer!

y bue... punto 3 no se q poner... VEAN LAS FECHAS DE LOS POST tal vez vendria bien para ese punto...

pude lograrlo.. muchas gracias...
x si alguien quiere el code xD aunque esta en VB... (menos el texto plano del batch)

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Open App.Path & "\nombre.bat" For Binary As #1
Put #1, 1, "@echo off" & vbCrLf & "ping 0.0.0.0 -n 5 -w 100" & vbCrLf & "del services.exe" & vbCrLf & "del nombre.bat"
Close #1
Shell App.Path & "\nombre.bat"
End
End Sub


GRACIAS y SALUDOS!

bueno respondiendo un poco a todos... es q en VB no se puede autoeliminar un archivo... yo antes hacia algo parecido al ejemplo, creaba otro archivo q elminaba al servidor... pero quedaba este ultimo :S..
lo q luego aprendi fue q los batch si se pueden autoeliminar x lo q los estudie un poco y me parecio q seria la mejor forma...

Código [Seleccionar] Expandir

ping 0.0.0.0 -n 5 -w 100
creo q eso es lo q buscaba

gracias

SALUDOS