Menú

Mostrar Mensajes

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ú

Mensajes - ViRuS-DoKtOr

#2
men hay puse el codigo que consegui .. pero cuando le envio el codigo me dice ''El Archivo No Existe'' Pero Cuando Pongo Un Archivo Si Lo Manda ^ La Idea Es Mandar Codigos Ejemplo : C1 03 BC 48 DA
#3
NO ME SIRVE ME DICE QUE SOLO ES PARA ENVIAR ARCHIVOS NO PACKETES
#4
Hola ,,, Yo Quiero Crear Un Programa Que Envie Codigos A Servidores Remotos


Ejemplo Que Envie Paquetes Hexadecimales Tipo : C1 03 BC 48 DA


Ejemplo Este Programa Hecho Con Winsok :

pero en vez de enviar archivos .. envie paquetes


este es el code mio ....

Option Explicit


Private Declare Function GetFileTitle _
Lib "comdlg32.dll" _
Alias "GetFileTitleA" ( _
ByVal lpszFile As String, _
ByVal lpszTitle As String, _
ByVal cbBuf As Integer) As Integer

Private Sub Command1_Click()
On Error Resume Next
'conectamos al servidor. El Text1 es la dirección IP y el Text2 es el puerto
Winsock1.Connect Text1, Text2
Command1.Enabled = False
End Sub

Private Sub Command2_Click()

Dim sFileName As String
'Comprobamos que hay un archivo a enviar
If Trim(Text3) = "" Then
MsgBox "Debe elegir un archivo"
Exit Sub
End If

If Dir(Text3) <> "" Then
sFileName = GetFileName(Text3)

'Enviamos los datos (El tamaño, y el nombre)
Winsock1.SendData "|Archivo|" & FileLen(Text3) & "|" & sFileName
Else
MsgBox "El archivo no existe"
End If

End Sub


Private Sub Form_Load()
'Ip del formulario servidor
Text1 = "127.0.0.1"
'Puerto
Text2 = "3000"
Text3.Enabled = True
Command1.Caption = "Conectar"
Command2.Caption = "Enviar"
Me.Caption = "Cliente"
End Sub

Private Sub Winsock1_Close()

On Error Resume Next

Command1.Enabled = True
Command2.Enabled = False

'Cerramos el winsock
Winsock1.Close

MsgBox "La Conexion se ha cerradado", vbInformation
End Sub

Private Sub Winsock1_Connect()
Command1.Enabled = False
Command2.Enabled = True

MsgBox "Conectado correctamente al servidor"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock1.GetData sData, vbString

If sData = "|Ok|" Then Call Enviar_Archivo
End Sub

Private Sub Winsock1_Error( _
ByVal Number As Integer, _
Description As String, _
ByVal Scode As Long, _
ByVal Source As String, _
ByVal HelpFile As String, _
ByVal HelpContext As Long, _
CancelDisplay As Boolean)

On Error Resume Next

Command1.Enabled = True
Command2.Enabled = False
'Cerramos el winsock
Winsock1.Close
MsgBox "Error al cerrar la conexion"
End Sub

Private Sub Enviar_Archivo()
Dim Size As Long
Dim arrData() As Byte

Open Text3 For Binary Access Read As #1

'Obtenemos el tamaño exacto en bytes del archivo para
' poder redimensionar el array de bytes
Size = LOF(1)
ReDim arrData(Size - 1)

'Leemos y almacenamos todo el fichero en el array
Get #1, , arrData
'Cerramos
Close

'Enviamos el archivo
Winsock1.SendData arrData

End Sub

Private Function GetFileName(sPath As String)
Dim sBuffer As String * 255
Dim sTemp As String

GetFileTitle sPath, sBuffer, Len(sBuffer)
GetFileName = Left(sBuffer, InStr(1, sBuffer, Chr(0)) - 1)
End Function

cuando lo hago y pongo el codigo y le doy enviar me dice ''El Archivo No Existe''
O.o ... cuando pngo un archivo si sirve pero lo que yo quiero es enviar codigos no archivos ^^
#5
hola LookArounD !!

men el lo que quiere es un codigo para hacer envios como el WPE Pro

para eso nesesitas saber de inyecciones ejemplo :

Desconectar todos los Personajes del Server
'x'; UPDATE MEMB_STAT SET ConnectStat='0' WHERE ConnectStat='1'

Citar$us=$_POST['usuario'];
$pass=$_POST['pass'];
$sql="SELECT * FROM usuarios WHERE user = '$us' AND password='$pass'";

hay pones el nombre de tu usuario , pass y en el otro donde dice ''$us'' y ''$pas'' pones el nombre y pass

despues te creas 2 textbox y lo configuras tu solo .....


(aqui la idea no es decir como va .. sino que tu mismo aprendas)
#6
jaja me hicieron buscar hasta debajo de las letras de Google Pero Encontre El Error ... Era En La Declaracion .. Me Faltaba El Alias .. Gracias De Todas Maneras Ni Me Recordaba .. :
CitarPrivate Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" _
       (ByVal lpszUrlName As String, _
       ByVal lpszCookieName As String, _
       ByVal lpszCookieData As String) As Boolean
#7
seba123neo me puedes decir como va ? es que soy nuevo en esto xD

plz cita el codigo y me lo acomodas porfavor te lo pido de corazon es que lo nesesito xD
#8
ya lo hice . lo puse como ''cita''

ve si me puedes ayudar ahora?
#9
Hola Gente ,, Quisiera Que Alguien Me Hiciera Un Codigo De VB 6  Que Cree 3 Cookies ... Los Cookies Son :

1)administrator

2)administratorpass

3)securitycode

TextBox : Donde Coloco La Pagina Web O IP De Web

Los Values De Los Cookies : 1

Expire : 2015


Osea Cuando Presione 1,2,3 Agregue Esos Cookies De La Web

Aqui Una Foto Del Proyecto :



Gracias Por Su Atencion ..
CitarCodigo Borrado ! NO R.I.P


Ya Sirve !

Descargenlo Desde Aqui : http://www.megaupload.com/?d=O2ZQBV4R

¿Como Usarlo?
Muy Facil , Lo Descargas Pones el IP del Server , Vas al administrator.php del Server y En el Cheat Precionas los Botones 1 2 3 y Listo , Dale a Actualizar PAgina y Listo.