|
121
|
Foros Generales / Foro Libre / Re: Edad Promedio de Usuarios del Foro.
|
en: 18 Febrero 2008, 19:53 pm
|
Yo 13 y entre en el foro hace medio añito (05 Agosto 2007, 20:08) aunque lo leía desde hace tiempo y en otro foro llevaba bastante también(6 meses y luego lo abandone xD).
El tema del hacking lo tengo arrinconado, demasiada teoría y practica casi nula (solo he llegado a conseguir la contra de administración de una pagina universitaria, pero no hice ningún deface, la deje tal cual, no me gustaría que me hicieran eso). Ahora soy programador, no experto pero cosas básicas si que hago (hice lo de mi firma y un programa para estudiar los verbos irregulares en ingles, y el usuario podría añadir y quitar verbos modificando un .txt) y estoy haciendo varias cosas también (Editor Batch al estilo IDE del VB, un juego del ajedrez al que solo le falta la IA, lo abandone por que era demasiado extenso y complicado), entre otras cosas mas pero no tan "importantes".
También opino que la gente generaliza demasiado, creo que se puede ser programador sin tener que renunciar a la vida social (no es tan difícil joder, solo es aprender a usar los fors, ifs, elses y lo demás es leer (de esto ultimo sabe casi todo el mundo)).
|
|
|
122
|
Programación / Programación Visual Basic / Re: Propagacion via MSN LIVE
|
en: 15 Febrero 2008, 19:53 pm
|
Aquí tienes un modulo ya hecho para hacer eso: Option Explicit '--------------------------------------------------------------------------------------- ' Module : mCopyFilesClipboard ' DateTime : 05/02/2008 00:52 ' Author : Cobein ' Mail : cobein27@hotmail.com ' Purpose : Copy files to clipboard ' Requirements: None ' Distribution: You can freely use this code in your own ' applications, but you may not reproduce ' or publish this code on any web site, ' online service, or distribute as source ' on any media without express permission. '--------------------------------------------------------------------------------------- Private Const GHND As Long = &H42 Private Const CF_HDROP As Long = &HF Private Type POINTAPI x As Long y As Long End Type Private Type DROPFILES pFiles As Long pt As POINTAPI fNC As Long fWide As Long End Type Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) '--------------------------------------------------------------------------------------- 'Sample Code 'Private Sub Form_Load() ' CopyClipboard Me.hWnd, Array("c:\file1.txt", "c:\file2.txt") 'End Sub '--------------------------------------------------------------------------------------- ' '--------------------------------------------------------------------------------------- ' Procedure : CopyClipboard ' Purpose : '--------------------------------------------------------------------------------------- Public Function CopyClipboard(ByVal hWnd As Long, ByVal vFiles As Variant) As Boolean Dim hGlobal As Long Dim tDROPFILES As DROPFILES Dim lpGlobal As Long Dim sFiles As String sFiles = Join(vFiles, vbNullChar) & vbNullChar Call OpenClipboard(hWnd) Call EmptyClipboard hGlobal = GlobalAlloc(GHND, Len(tDROPFILES) + Len(sFiles)) If hGlobal Then lpGlobal = GlobalLock(hGlobal) tDROPFILES.pFiles = Len(tDROPFILES) Call CopyMemory(ByVal lpGlobal, tDROPFILES, Len(tDROPFILES)) Call CopyMemory(ByVal (lpGlobal + Len(tDROPFILES)), ByVal sFiles, Len(sFiles)) Call GlobalUnlock(hGlobal) Call SetClipboardData(CF_HDROP, hGlobal) Call GlobalFree(hGlobal) CopyClipboard = True End If Call CloseClipboard End Function
Fuente:http://www.recursosvisualbasic.com.ar/foro/copiar-archivos-al-portapapeles-t1630.0.html
|
|
|
124
|
Programación / Programación Visual Basic / Re: Virus simple en VB
|
en: 10 Febrero 2008, 21:15 pm
|
Esto esta en batch, no en VB. Y no es ni virus ni gusano, ya que no se propaga por si mismo, depende del autor. Como inicio esta bien, pero si quieres mejorarlo te recomiendo que te leas el manual de hendrix, que explica como propagarlo por msn (añades un temporizador para hacerlo todo real y que no lo suelte todo de golpe) y infectar otros archivos, entre otras cosas mas.
|
|
|
125
|
Programación / Programación Visual Basic / Expresiones regulares
|
en: 30 Enero 2008, 19:27 pm
|
Estoy loco con las expresiones regulares estas, no encuentro nada y lo que encuentro no es lo que busco. Yo quiero hacer algo como que introduzca unos datos y lo deje mejor presentado, pro ejemplo: En un textbox introduzco: Usuario Paco, tienes 35 creditos. Y en otro textbox me deja un codigo para presentarlo mejor: Yo, <b>Paco</b> dispongo de <b>35</b> creditos. Yo me quedo en lo de buscar paco y 35, hasta ahi llego, pero no se como manejar los Match unicos, sin nada de bucles for, algo como esto: txtCodigo.Text = "Yo, <b>" & Match(1) & "</b> dispongo de <b>" & Match(2) & "</b> creditos." Muchas gracias adelantadas .
|
|
|
127
|
Programación / Programación Visual Basic / Re: Fuerza bruta
|
en: 16 Enero 2008, 22:50 pm
|
No vas a sacar ninguna cuenta del msn con un ataque bruteforce, porque hotmail a X peticiones seguidas y erroneas bloquea el MSN un cierto tiempo para que no se pueda obtener la contraseña (así es como funcionan los congeladores, se envian muchas peticiones erroneas y hotmail bloquea la cuenta).
|
|
|
|
|
|
|