|
|
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 - RadicalEd
Páginas: 1 ... 117 118 [119] 120 121 ... 123
2951
« en: Lunes 4 de Octubre de 2004, 21:19 »
A VER YO TENGO UNA IDEA POR SI GUSTAN YA QUE HAY UNOS CUANTOS FOROS DE PROGRAMACION QUE PARECEN MUERTOS VIVIENTES, NO SE LEVANTAN SINO CUANDO ES PARA CHUPAR SEXOS [/color] TAL VES SI SE DIERA UN PEQUEÑO INCENTIVO DE AYUDA TECNICA A QUIENES POSTEEN MENSAJES EN ESTOS FOROS ZOMBIES, Y USTEDES LOS PROGRAMADORES MAS EXPERTOS ENSEÑEN SOBRE LOS LENGUAJES QUE CONOCEN, POR QUE YO POR LO MENOS MANEJO SOLAMENTE BIEN VB Y MEDIO REMEDIO C, ENTONCES QUE HAGO NO VIVO SINO EN VB Y NO VISITO LOS OTROS SINO PARA VER RESPUESTAS A POSIBLES FUTUROS QUE NECESITE.
OK ESTA ES MI HUMILDE OPINION
GRACIAS CHAO
2952
« en: Lunes 4 de Octubre de 2004, 20:41 »
2953
« en: Domingo 3 de Octubre de 2004, 00:35 »
MIRA LA FORMA DE HACER SKINSHACER SKINS
2954
« en: Domingo 3 de Octubre de 2004, 00:22 »
HOLA, PUES TE TENGO ALGO QUE DECIR
1.) PARA DARLE VIDA A TUS FORMAS O PANTALLAS HAY UN CONTROL OCX LLAMADO ACTIVE SKIN O ALGO ASI NO VIENE CON VB HAY QUE DESCARGARLO
EL TE PERMITE AGREGAR UNOS FICHEROS CON EXTENCION .skn, QUE NO SE CON QUE SOFTWARE LO HACEN 
BUSCA EN EL GOOGLE ARCHIVOS .skn O ALGO ASI REALMENTE NO LO USO DE HA MUCHO YA QUE TE DEJA TUS PROGRAMAS MUY PESADOS
Control Skin
2955
« en: Sábado 2 de Octubre de 2004, 23:22 »
OYE PRIMERO QUE TODO HE LEIDO TUS 2 POSTS Y TE LA FAJAS DE GROSERO CON LOS CHICOS DE SOLOCODIGO, AQUI SE ESTA PARA FORMULAR PREGUNTAS Y NO HACERTE LAS TAREAS.
SI YA LO HICISTES MUY BIEN POR TI.
P.D. CUIDADO QUE JuanK ES EL MODERADOR DEL FORO
2956
« en: Sábado 2 de Octubre de 2004, 20:14 »
EN ESTOS MOMENTOS ESTOY EN EL TRABAJO CUANDO LLEGUE A LA CASA LO HAGO LO ABRI AQUI Y ME MUESTRA TODAS LAS PARTICIONES QUE TIENE EL EQUIPO PERO ESTOS SOLO TRABAJAN CON WINXP, ESPERO QUE EN EL MIO, ME RECONOZCA LA QUE FORMATEE CON LINUX
GRACIAS CHAO
2957
« en: Sábado 2 de Octubre de 2004, 19:25 »
-Noomy.A y Bagle.BB-, y a un troyano denominado HardFull.A.
Noomy.A se propaga a través del correo electrónico y de IRC. Cuando lo hace
por e-mail se envía a direcciones que no contienen ciertas subcadenas y que
obtiene en ficheros cuya extensión es: .dbx, .htm, .html o .php. Por otra
parte, cuando se manda por IRC, Noomy.A implementa su propio servidor HTTP y
envía varios mensajes a canales IRC que tiene codificados, junto con enlaces
que invitan a conectarse al servidor HTTP del ordenador infectado. En la
práctica, al acceder a los enlaces, se abre una página desde donde pueden
descargase las copias del gusano.
La propagación y el payload de Noomy.A dependen de la fecha en la que se
ejecuta y del tipo de conexión a Internet utilizada. Entre las acciones que
puede llevar a cabo este gusano destacan las siguientes:
- Finaliza procesos pertenecientes a herramientas de seguridad -como, por
ejemplo, programas antivirus y cortafuegos-, dejando así al equipo
vulnerable al ataque de otros ejemplares de malware.
- Ataque de denegación de servicio, mediante el comando ping, a varios
sitios entre los que se encuentra el de Microsoft.
- Se conecta a un enlace para enviar datos del PC, como hora y fecha del
sistema, si utiliza mswinsck.ocx, servidor SMTP y usuario de correo que
utiliza Outlook.
Tras ser ejecutado Noomy.A muestra un mensaje en pantalla, por lo que su
presencia en un equipo es fácilmente reconocible.
El segundo gusano del presente informe es Bagle.BB, que se difunde a través
del correo electrónico -en un mensaje escrito en inglés y de características
variables-, y de programas de intercambio de archivos punto a punto (P2P).
Bagle.BB abre el puerto TCP 81 y permanece a la escucha, a la espera de que
se realice una conexión remota. A través de ella, permite acceder -de forma
remota- al ordenador al que afecta, para realizar en él acciones que pueden
comprometer la confidencialidad de los datos del usuario o dificultar su
trabajo.
Bagle.BB termina procesos pertenecientes a herramientas de seguridad como,
por ejemplo, programas antivirus, dejando así al equipo indefenso a los
ataques de otro malware. Además, Bagle.BB elimina del Registro de Windows
las entradas correspondientes a variantes del gusano Netsky, evitando así
que se ejecuten cuando se inicia el equipo.
Finalizamos el presente informe con HardFull.A, troyano que no se propaga
automáticamente por sus propios medios, ya que precisa de la intervención
del atacante para ello. Los medios empleados para difundirlo son variados e
incluyen, entre otros, disquetes, CD-ROMs, mensajes de correo electrónico
con archivos adjuntos, descargas de Internet, etc.
HardFull.A crea un archivo que se llena a sí mismo con el texto
Win32.Delf.du_Ful, incrementando así su tamaño hasta que ocupa todo el
espacio disponible en el disco duro, provocando la ralentización e incluso
el bloqueo del equipo. Igualmente, este troyano desactiva las herramientas
de edición del Registro de Windows, y las opciones "Ejecutar" y "Buscar" del
menú Inicio.
2958
« en: Sábado 2 de Octubre de 2004, 16:43 »
NO, NO, NO, HI  HITLER , ESE NO ES EL PROBLEMA YO YA TENGO INSTALADO EL WINXP Y ESTABA INSTALANDO EL LINUX Y SE ME BLOQUEO LA INSTALACION POR EL DAÑO DE LOS CD's
2959
« en: Miércoles 29 de Septiembre de 2004, 20:22 »
TAL VES NO TE SEA DE MUCHA AYUDA LO QUE TE VOY A DECIR PERO SI QUIERES HACER ESTA OPERACION UTILIZA C++, QUE NO TE SACA ERRORES DE OVERFLOW, TE LO DIGO POR QUE YO ESTABA HACIENDO UN PROGRAMA, DE CALCULOS MUY GRANDES Y ME SACO EL MISMO ERROR Y LO PASE A Dev-C++ Y ME LO HIZO A LA PERFECCION, NO ES QUE NO SE PUEDA CORREGIR EN VB, TAL VES SI PERO ESTA ES MI HUMILDE OPINION, EN ESTO SE TRABA VB
2960
« en: Miércoles 29 de Septiembre de 2004, 19:28 »
ESTA PUEDE SER OTRA, PERO TE TOCARIA USAR MAS VARIABLES SEGUN LA CANTIDAD DE DIGITO A COLOCAR EN TU KEYGEN
Private Sub Command1_Click() Text1.Text = "" Randomize d = Int(Rnd * 255) + 1 H = Chr(d) x = "H" Randomize L = Int(Rnd * 255) + 1 C = Chr(L) M = "2" Text1.Text = Text1.Text & H & x & C & M End Sub
[/color]
2961
« en: Miércoles 29 de Septiembre de 2004, 19:16 »
HOLA QUE QUIERES HACER NO TE ENTIENDO. SI QUIERES HACER UN KEYGEN, PUEDES UTILIZAR EL COMANDO Rnd DE VISUAL PARA GENERAR DIFERENTES VALORES, AQUI TE VA UN CODIGO POR SI TE SIRVE
Private Sub Command1_Click() Dim x As Integer For x = 1 To 30 Randomize d = Int(Rnd * 255) + 1 h = Chr(d) Text1.Text = Text1.Text & h Next End Sub
[/color]
2962
« en: Miércoles 29 de Septiembre de 2004, 18:44 »
Hola chicos de solocodigo, yo tambien estoy con el mismo problema pero trabajo con Dev-C++ apenas estoy iniciandome en C y quisiera su ayuda con este codigo que esta mal.
#include <stdio.h> #include <conio.h> main() { void cur_xy(unsigned char y,unsigned char x); unsigned char fila,col; fila=23; col=5; cur_xy(fila,col); printf("Pulse para continuar"); getch(); } void cur_xy(unsigned char y,unsigned char x) { asm { mov dl, x cmp dl, 0 jl fin cmp dl, 79 jg fin mov dh,x cmp dh, 0 jl fin cmp dh, 24 jg fin mov bh, 0 mov ah, 2 int 10h fin: nop } }
PERDON YA ENCONTRE EL PROBLEMA En Dev-C++ el asm se declara asi: [/color] int AdrIO; static char ValIO; void MyFunction(..........) { __asm("mov _AdrIO, %dx"); // cargando registro 16 bits __asm("mov _ValIO, %al"); // cargando registro 8 bits __asm("mov %ax,%dx"); // AX --> DX }
2963
« en: Martes 28 de Septiembre de 2004, 18:50 »
HOLA CHICOS DE SOLOCODIGO, ESTOY AQUI CON UN DILEMA ESTABA INSTALANDO EL MANDRAKE 8.0 Y SE ME BLOQUE LA INSTALACION POR QUE EL CD ESTABA RAYADO Y NO ME HABIA DADO CUENTA, ENTONCES LA PARTICION QUEDO CON EL FORMATO DE LINUX Y EL WINDOZE NO ME LA RECONOCE, SABEN DE ALGUN METODO PARA RECUPERARLA.
GRACIAS CHAO
2964
« en: Domingo 26 de Septiembre de 2004, 00:48 »
ACABO DE VOTAR POR EL DE BLACK BOY SOY UN REAFICIONADO A DRAGON BALL Y SU SAGA, Y CON ESE AVATAR DE GOKU EN 4 FASE EN MODO DE NEGATIVA TE FAJASTES OJALA SIGAN VOTANDO POR TI
CHAO
2965
« en: Sábado 25 de Septiembre de 2004, 18:18 »
HOLA CHICOS DE SOLOCODIGO ENTRANDO A LA PAGINA DE UNO DE LOS USUARIOS DEL FORO ME ENCONTRE CON UN LENGUAJE DE PROGRAMACION BASTANTE PECULIAR SE LLAMA D++, SE ENCUENTRA EN ESTA PAGINA D++, ME GUSTARIA QUE HUBIERA UN FORO SOBRE ESTE LENGUAJE DE PROGRAMACION, INCLUYE EL CODIGO FUENTE DEL LENGUAJE, Y ALGUIEN QUE PODRIA ENSEÑARNOS ES BLAG CON EL DI A LA PAGINA, ESPERO LES GUSTE MI IDEA.
GRACIAS CHAO
2966
« en: Viernes 24 de Septiembre de 2004, 21:15 »
ACABO DE ENCONTRAR OTRO ERROR CUANDO ES UN TEXTO LARGO EN LETRAS ME ELIMINA GRAN PARTE DE ELLAS A VECES DEJA SOLO 2 CARACTERES ENCRIPTADOS Y CUANDO LOS DESENCRIPTO ME APARECEN LOS 2 NO MAS ESTO ME PASA CON 3 VALORES DE ENCRIPTACION
2967
« en: Viernes 24 de Septiembre de 2004, 21:10 »
GRACIAS POR EL PRIMER CODIGO ME SIRVIO DE MUCHO PERO LO PREFIERO ASI YA QUE NO ME TOCARIA AGREGAR CONTROLES PESADOS AL PROGRAMA
GRACIAS CHAO
2968
« en: Viernes 24 de Septiembre de 2004, 20:36 »
HOLA CHICOS DE SOLOCODIGO AQUI ESTOY OTRA VEZ JODIENDO PERO EL QUE NO SABE PREGUNTA Y APRENDE.
AQUI VA COMO HAGO PARA ABRIR UN ARCHIVO DE MULTIPLES LINEAS COMO ASI?, PUES QUE TENGA ESCRITO
HOLA
QUIBO
MAMA
PAPA [/color] ME HAGO ENTENDER TENGO ESTE CODIGO PERO SOLO ME SIRVE PARA UNA LINEA COMO LO MEJORO
Dim TextLine Open TxtSave.Text For Input As #1 Do While Not EOF(1) Line Input #1, TextLine Text1.Text = TextLine Loop Close #1 End Sub
GRACIAS CHAO[/color]
2969
« en: Viernes 24 de Septiembre de 2004, 19:21 »
HOLA CHICOS DE SOLOCODIGO ESTOY HACIENDO UN PROGRAMITA DE ENCRIPTAMIENTO CON EL COMANDO XOR Y 3 TEXTBOX PARA ENCRIPTAR CON VARIOS VALORES, PERO AQUI VIENE EL PROBLEMA CON 2 TEXTBOX LO MAXIMO ES VALOR 9 Y 25 Y CON 3 ME TOCA DEJARLO CON 1-1-1 POR QUE ME SACA EL ERROR DE
 Run-time error '5': Invalid procedure call or argument
[/color] AQUI LES VA EL CODIGO DE ENCRIPTAMIENTO Y EL SOURCE DEL PROGRAMA AYUDENMEN A MEJORARLO GRACIAS  Private Sub Command1_click() Dim TextoAux As String, Texto As String Dim I As Integer Texto = "" If Text2.Text = "" Then Call MsgBox("Favor dar valor de encriptamiento", 16, "Warning") Else For I = 1 To Len(Text1.Text) Text1.SelStart = I - 1 Text1.SelLength = 1 TextoAux = Text1.SelText Texto = Texto + Chr$(Asc(TextoAux) Xor Text2.Text & Text3.Text & Text4.Text) Next I End If Text1.Text = Texto End Sub
GRACIAS CHAO
2970
« en: Jueves 23 de Septiembre de 2004, 22:59 »
<html>
<head>
<title>Deshabilitar boton derecho</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<script>
function anularBotonDerecho() {
if (event.button==1) {
alert('Botón derecho deshabilitado');
}
}
document.onmousedown=anularBotonDerecho;
</script>
</body>
</html>
[/color] CAMBIALE EL 1 EN EL even.button por == 2 ESE ES EL BOTON DERECHO
2971
« en: Miércoles 22 de Septiembre de 2004, 19:07 »
MIRA TODO ESTE CODIGO LO SACA EL WIZARD DE VB Y PUEDES VER TODA LA INFORMACION DEL SISTEMA
' Reg Key Security Options... Const KEY_ALL_ACCESS = &H2003F ' Reg Key ROOT Types... Const HKEY_LOCAL_MACHINE = &H80000002 Const ERROR_SUCCESS = 0 Const REG_SZ = 1 ' Unicode nul terminated string Const REG_DWORD = 4 ' 32-bit number Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" Const gREGVALSYSINFOLOC = "MSINFO" Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO" Const gREGVALSYSINFO = "PATH" Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long Private Sub Form_Load() LoadResStrings Me lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision lblTitle.Caption = App.Title End Sub Private Sub cmdSysInfo_Click() Call StartSysInfo End Sub Private Sub cmdOK_Click() Unload Me End Sub Public Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String ' Try To Get System Info Program Path\Name From Registry... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then ' Try To Get System Info Program Path Only From Registry... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then ' Validate Existance Of Known 32 Bit File Version If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then SysInfoPath = SysInfoPath & "\MSINFO32.EXE" ' Error - File Can Not Be Found... Else GoTo SysInfoErr End If ' Error - Registry Entry Can Not Be Found... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit Sub SysInfoErr: MsgBox "System Information Is Unavailable At This Time", vbOKOnly End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long ' Loop Counter Dim rc As Long ' Return Code Dim hKey As Long ' Handle To An Open Registry Key Dim hDepth As Long ' Dim KeyValType As Long ' Data Type Of A Registry Key Dim tmpVal As String ' Tempory Storage For A Registry Key Value Dim KeyValSize As Long ' Size Of Registry Key Variable '------------------------------------------------------------ ' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} '------------------------------------------------------------ rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Error... tmpVal = String$(1024, 0) ' Allocate Variable Space KeyValSize = 1024 ' Mark Variable Size '------------------------------------------------------------ ' Retrieve Registry Key Value... '------------------------------------------------------------ rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize) ' Get/Create Key Value If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Errors If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ' Win95 Adds Null Terminated String... tmpVal = Left(tmpVal, KeyValSize - 1) ' Null Found, Extract From String Else ' WinNT Does NOT Null Terminate String... tmpVal = Left(tmpVal, KeyValSize) ' Null Not Found, Extract String Only End If '------------------------------------------------------------ ' Determine Key Value Type For Conversion... '------------------------------------------------------------ Select Case KeyValType ' Search Data Types... Case REG_SZ ' String Registry Key Data Type KeyVal = tmpVal ' Copy String Value Case REG_DWORD ' Double Word Registry Key Data Type For i = Len(tmpVal) To 1 Step -1 ' Convert Each Bit KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' Build Value Char. By Char. Next KeyVal = Format$("&h" + KeyVal) ' Convert Double Word To String End Select GetKeyValue = True ' Return Success rc = RegCloseKey(hKey) ' Close Registry Key Exit Function ' Exit GetKeyError: ' Cleanup After An Error Has Occured... KeyVal = "" ' Set Return Val To Empty String GetKeyValue = False ' Return Failure rc = RegCloseKey(hKey) ' Close Registry Key End Function
[/color]
2972
« en: Martes 21 de Septiembre de 2004, 18:44 »
HOLA CHICOS DE SOLOCODIGO, COMO HAGO PARA MOSTRAR UN REPORTE DEL REGISTRO QUE ESTA EN EL MOMENTO EN EL FORM; POR SI NO ME HAGO ENTENDER TENGO UNA BASE DE DATOS DE 5000 USUARIOS, PERO QUIERO SOLAMENTE HACER UN REPORTE DE UN SOLO USUARIO EL QUE ACTUALMENTE ME ESTRE MOSTRANDO UN FORMULARIO, COMO PUEDO HACER? HE TRATADO CON EL WIZARD DE ACCESS PERO ESTE ME SACA TODOS LOS USUARIOS ACTUALES.
GRACIAS CHAO
2973
« en: Martes 21 de Septiembre de 2004, 17:36 »
ASI ES EL NOMBRE DE LA VENTANA, HE INCLUSO USO UN TIMER CADA 5 SEGUNDOS PARA EVITARLO PERO NO ME FUNCIONA VOY A DESCARGAR LA APLICACION PARA VER PERO GRACIAS POR TU CONSEJO
2974
« en: Lunes 20 de Septiembre de 2004, 19:11 »
HOLA CHICOS DE SOLOCODIGO ESTOY HACIENDO UNA APLICACION CON LAS API's FindWindow Y SendMessage PARA CERRAR EL AUTOMARCADO DE INTERNET, Y LO QUE PASA ES QUE NO ME FUNCIONA SI QUIEREN POSTEO EL CODIGO AQUI LES VA
1 Command
Const WM_CLOSE = &H10 FindWindow y SendMessage Private Sub CmdClose_Click() Dim w As Long w = FindWindow (vbNull, "Marcando emcatel...") If w=0 Then Exit Sub End If SendMessage w, WM_CLOSE, 0&, 0& End Sub
[/color]
2975
« en: Lunes 20 de Septiembre de 2004, 18:53 »
HOLA CHICOS DE SOLOCODIGO QUIERO APRENDER XML Y TENGO 2 PREGUNTILLAS PARA USTEDES:
1.) DONDE ME CONSIGO UN BUEN TUTORIAL
2.) POR QUE EL INTERNET EXPLORER ME MUESTRA EL XML COMO UN SIMPRE FORMATO DE TEXTO NO SE SI ME HAGA ENTENDER PERO ME LO MUESTRA TAL Y COMO ESTA ESCRITO EL CODIGO NO LO QUE DEBERIA APARECER COMO LO HACE HTML O ASP
GRACIAS CHAO
Páginas: 1 ... 117 118 [119] 120 121 ... 123
|
|
|
Mostrar Mensajes
