Mensajes

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)).

[Fuente:]

Aquí tienes un modulo ya hecho para hacer eso:

Código (vb) [Seleccionar] Expandir

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

Copias el archivo al portapeles, centras el foco en la conversacion y luego ya basta con sendkeys("^V").

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.

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:

Código [Seleccionar] Expandir

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  .

¿como podria manejar el texto que se visualiza (no el codigo html) en una pagina web php?

Es para uso personal asi que no importa si tengo que añadir algun archivo o algo.

Gracias.

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).

[espermos]

No lo quiteis, que todavía nos toca celebrar el año nuevo suguiente 

la epoca de navidad es tan hermosa que el foro no se quiere despegar de esta epoca de humildad, amistad y sobre todo de compartir con los seres mas allegados

jaja, si esta como curiosa la cosa que ya paso el año y nada que quitan eso.. espermos quiza pondra algo y lo esta preparando bien...

Al final lo he hecho con el Fusion 1.0 y he agregado el .ocx. Lo malo es que si tambien modifico el icono con el ResHack deja inutil el ejecutable y el icono por defecto es feo de c... xD

Decidme si la aplicación funciona 
http://foro.elhacker.net/index.php/topic,196123

El caso es que a un programa mio le he aplicado un skin. En mi ordenador funciona bien, pero en otros no. He probado de añadir el archivo "actskn43.ocx" en la carpeta del exe y en system32, pero no funciona.

¿Que archivos y/o de que manera los tengo que añadir paar que funcione?
- Perdonen mi torpeza, gracias