Mensajes

Puedes interactuar con un servidor de irc con el netcat, en una de las revistas de hackxcrac (la mítica serie raw) te decían como..

Yo lo hice alguna ves con el server irc que trae el nettools..

De eso fue , hace como dos discos duros...   

Hace dos años hice un pequeño interfaz para el netcat en vbasic y hace poco que descubrí, en Autoit me dieron ganas de hacerlo en este compilador y lo hice.

Por cierto dentro de sus funciones puedes abrir un puerto con la ventana oculta, nada que se quede en el registro ni otra cosa pero eso es lo de menos.

Se los dejo, también lo tengo en vbasic pero Autoit tiene la ventaja de no pedirte librerias ni dlls.



Download en Autoit

Download en Vbasic

La versión de Vbasic está más chula con un background chungo pero me gusta más la del autoit que4 no necesita librerías.
ojalá les guste.

Lo que tu quieres hacer ya está hecho hay varios front end o GUI para el uso del upx.

Ahora que si lo quieres hacer tú, pues con vbasic usando shell.

El upx es una utilidad que se maneja con consola, prueba a escribir en una consola y con el upx

upx -h

te saltaran las opciones, entonces ya ves como lo trabajas en vbasic.

busca en google, ahora que si lo quieres ya hecho

http://fileforum.betanews.com/detail/UPX_GUI/1111660153/1

y como este hay al menos una docena.

Además no funciona en todos, hoy lo he probado con un sansumg de un amigo del trabajo y además de que te exige el emparejamiento y la coincidencia de pins el sansums al ser atacado se vuelve inestable y se reinicia.

Hice la prueba en un sitio público y no me funcó por exigirme el emparejamiento con cualquier equipo (de unos diez tuve rastros en al menos uno pero no se logró la conexión exitosa).

A menos que ataques un equipo que ya está emparejado al tuyo no te sirve.

Gracias a eso puedo asegurar que el eter bluetooth está a salvo de los scriptkiddies (por ahora).

Que bueno que en este foro se combata con el espíritu scriptkiddie, me da orgullo tu trabajo Gospel.

Cierto lo del post que logró despertar algo que la verdadera info no ha hecho.

Va que el programa solo sirve en entornos controlados así que los que quieran estudiar pueden quedarse, los demás pueden seguir buscando el "Push Red Botton".

Ah claro y para estudiar tienen que leer toda la documentación que ha escrito Gospel en este y otros foros (además de su blog que es una maravilla)

Tienes toda la razon Gospel, ahora que me ha interesado con este programita he buscado algunos de tus documentos (me interesa recordar los comandos AT) no los he encontrado en mi pc.

el programa funca para los motorola de la serie V3 yo tengo un 330 y funca lo mismo con el PEBL pero no se puede leer los sms en ambos ni tocar los archivos como ya apuntaste.

editado::::

http://foro.elhacker.net/index.php/topic,161120.0.html

aquí tienes para recordar los AT

Lo que se puede hacer para eso de system32 es tener instalado windows y linux en la misma maquina y asi desde linux ,accesas alos programas de windows y con wine usas visual basic , asi le hice con knoppix

Pero corres el riesgo si traes partición ntfs que te lo cargue, además el propio wine te advierte que hay riesgos al trabajar con la carpeta de windows de una partición existente.

Cierto lo que me han corregido, fue respuesta rápida, pero yo dije que gambas y vbasic no era igual, la correción exacta es qu el compilador cambia y el lenguaje que es basic no.

Yo no dije que gambas corria en windows pero que sus ejecutables sí, eso lei, a decir verdad no lo he comprobado, alguna vez intenté entrr a la página de gambas y me pareció que era de paga.

Lo de descubrir el fuego era sin ánimo de ofender, y sí hay un manual para instalar vbasic en linux desde wine, El parche no lo sé a mano sí he perdido el link pero lo buscaré..

Y ya, no se ofendan...

Nada de parches, además lo de gambas no es lo mismo que vbasic, gambas es un programa que plantea un lenguaje parecido al basic en linux y que genera binarios que corren en ambas plataformas, es muy parecido pero vamos que no es lo mismo, además es de paga.

Lo que planteas se puede hacer a mano, no descarto que alguien ya haya inventado un parche (que no es descubrir el fuego) mira, busca bien en google, algo así como instalar vbasic en linux con wine.

El secreto está en que hay ciertas librerías que si accesas desde el cd de instalación de vbasic se copian en el directorio de system32 y en wine es algo complicado eso porque para variar el system 32 no es la carpeta de sistema entonces lo único que tiene que hacer es copiarlo a mano en system y ya.

Busca en google y encontrarás un manual detallado.

Por partes, en VBasic eso es de calle, facilismo no le he entrado a VB.Net pero no le veo dificultad mucha.

Lo de iniciar con el sistema solo basta con agregarle una clave al registro, date una vuelta por el foro con el botón buscar y lo tienes..

Puedes usar la shell para agregar la clave al registro o bien un poquito más avanzado usar la api para el registro, de los dos métodos encontrarás respuesta en este mismo foro.

Lo del icon tray también por ahi tengo un código que lo hace sin necesidad de ningún ocx, aunque también tengo el ocx.

Busca un poco más...

repetido, sorry

Escribe esto en un módulo

Código [Seleccionar] Expandir

Option Explicit


Private Const GWL_WNDPROC = -4
Private Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Const FW_NORMAL = 400
Private Const FW_HEAVY = 900
Private Const FW_SEMIBOLD = 600
Private Const FW_BLACK = FW_HEAVY
Private Const FW_BOLD = 700
Private Const FW_DEMIBOLD = FW_SEMIBOLD
Private Const FW_DONTCARE = 0
Private Const FW_EXTRABOLD = 800
Private Const FW_EXTRALIGHT = 200
Private Const FW_LIGHT = 300
Private Const FW_MEDIUM = 500
Private Const FW_REGULAR = FW_NORMAL
Private Const FW_THIN = 100
Private Const FW_ULTRABOLD = FW_EXTRABOLD
Private Const FW_ULTRALIGHT = FW_EXTRALIGHT
Private Const SW_SHOWNA = 8
Private Const TRANSPARENT = 1
Private Const ALTERNATE = 1
Private Const BLACK_BRUSH = 4
Private Const DKGRAY_BRUSH = 3
Private Const DT_SINGLELINE = &H20
Private Const DT_NOCLIP = &H100
Private Const DT_CENTER = &H1
Private Const DT_VCENTER = &H4
Private Const DT_WORDBREAK = &H10
Private Const DT_CALCRECT = &H400
Private Const CW_USEDEFAULT = &H80000000
Private Const TTS_ALWAYSTIP = 1
Private Const TTF_IDISHWND = 1
Private Const TTF_CENTERTIP = 2
Private Const TTF_RTLREADING = 4
Private Const TTF_SUBCLASS = &H10
Private Const TTF_TRACK = &H20
Private Const TTF_ABSOLUTE = &H80
Private Const TTF_TRANSPARENT = &H100
Private Const TTF_DI_SETITEM = &H8000
Private Const WM_USER = &H400
Private Const WM_PAINT = &HF
Private Const WM_PRINT = &H317
Private Const TTM_ACTIVATE = WM_USER + 1
Private Const TTM_SETDELAYTIME = WM_USER + 3
Private Const TTM_ADDTOOL = WM_USER + 4
Private Const TTM_DELTOOL = WM_USER + 5
Private Const TTM_NEWTOOLRECT = WM_USER + 6
Private Const TTM_RELAYEVENT = WM_USER + 7
Private Const LF_FACESIZE = 32
Private Const COLOR_INFOTEXT = 23
Private Const COLOR_INFOBK = 24
Private Const COLOR_GRAYTEXT = 17
Private Const COLOR_3DLIGHT = 22
Private Const RGN_OR = 2


Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" ( _
    ByVal dwExStyle As Long, ByVal lpClassName As String, _
    ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, _
    ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
    ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, _
    lpParam As Any) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _
    ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
    ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
    ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
    ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
    lpRect As RECT) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Declare Function BeginPaint Lib "user32" (ByVal hwnd As Long, _
    lpPaint As PAINTSTRUCT) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" ( _
    ByVal hwnd As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
    ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function EndPaint Lib "user32" (ByVal hwnd As Long, _
    lpPaint As PAINTSTRUCT) As Long

Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long

Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, _
    lpRect As RECT) As Long

Private Declare Function DrawText Lib "user32" Alias "DrawTextA" ( _
    ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, _
    lpRect As RECT, ByVal wFormat As Long) As Long
   
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
   
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, _
    ByVal nBkMode As Long) As Long

Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" ( _
    lpLogFont As LOGFONT) As Long

Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, _
    ByVal crColor As Long) As Long

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _
    ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, _
    ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
    ByVal Y3 As Long) As Long

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, _
    ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, _
    ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, _
    ByVal nCombineMode As Long) As Long

Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, _
    ByVal hRgn As Long, ByVal hBrush As Long) As Long

Private Declare Function GetSysColorBrush Lib "user32" ( _
    ByVal nIndex As Long) As Long

Private Declare Function FrameRgn Lib "gdi32" (ByVal hdc As Long, _
    ByVal hRgn As Long, ByVal hBrush As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function GetStockObject Lib "gdi32" ( _
    ByVal nIndex As Long) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
    ByVal hObject As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" ( _
    ByVal hObject As Long) As Long
   

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Type TOOLINFO
    cbSize As Long
    uFlags As Long
    hwnd As Long
    uId As Long
    r As RECT
    hinst As Long
    lpszText As String
End Type

Private Type PAINTSTRUCT
    hdc As Long
    fErase As Long
    rcPaint As RECT
    fRestore As Long
    fIncUpdate As Long
    rgbReserved(32) As Byte
End Type

Private Type LOGFONT
    lfHeight As Long
    lfWidth As Long
    lfEscapement As Long
    lfOrientation As Long
    lfWeight As Long
    lfItalic As Byte
    lfUnderline As Byte
    lfStrikeOut As Byte
    lfCharSet As Byte
    lfOutPrecision As Byte
    lfClipPrecision As Byte
    lfQuality As Byte
    lfPitchAndFamily As Byte
    lfFaceName(1 To LF_FACESIZE) As Byte
End Type


Private Type TOldWndProc
    hwnd As Long
    lPrevWndProc As Long
End Type
   
Private WndProc() As TOldWndProc
Private NumTips As Long
Const iOffset = 8
Const FontType = "Tahoma" & vbNullChar
Const FontSize = 13

Private Function CustomTipProc(ByVal hwnd As Long, ByVal uiMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
   
    Dim ps As PAINTSTRUCT
    Dim lpszText As String
    Dim iTextLen As Integer
    Dim rc As RECT
    Dim hFont As Long
    Dim hFontOld As Long
    Dim lf As LOGFONT
    Dim i As Integer
    Dim CurPos As POINTAPI
   
    Select Case uiMsg
    Case WM_PRINT
        PostMessage hwnd, WM_PAINT, 0, 0
        CustomTipProc = 1
    Case WM_PAINT

        GetWindowRect hwnd, rc
        GetCursorPos CurPos
        rc.Right = CurPos.x - iOffset + 6 + rc.Right - rc.Left
        rc.Bottom = CurPos.y + 20 + rc.Bottom - rc.Top
        rc.Left = CurPos.x - iOffset + 6
        rc.Top = CurPos.y + 20
        MoveWindow hwnd, rc.Left, rc.Top, rc.Right - rc.Left, _
            rc.Bottom - rc.Top, False

        iTextLen = GetWindowTextLength(hwnd) + 1
        lpszText = Space(iTextLen)
        GetWindowText hwnd, lpszText, iTextLen
        lpszText = Left(lpszText, Len(lpszText) - 1)

        BeginPaint hwnd, ps

        lf.lfHeight = FontSize
        lf.lfWeight = FW_NORMAL
        For i = 1 To Len(FontType)
            lf.lfFaceName(i) = Asc(Mid(FontType, i, 1))
        Next
        hFont = CreateFontIndirect(lf)
        hFontOld = SelectObject(ps.hdc, hFont)
        DrawText ps.hdc, lpszText, Len(lpszText), rc, DT_VCENTER + _
            DT_NOCLIP + DT_CALCRECT
        rc.Right = rc.Right + 2 * iOffset
        rc.Bottom = rc.Bottom + 3 * iOffset
        ShowWindow hwnd, SW_SHOWNA

        MoveWindow hwnd, rc.Left, rc.Top, rc.Right - rc.Left, _
            rc.Bottom - rc.Top, True
        SetBkMode ps.hdc, TRANSPARENT

        ToolTip_DrawBalloon hwnd, ps.hdc, lpszText

        SelectObject ps.hdc, hFontOld
        DeleteObject hFont

        EndPaint hwnd, ps
        CustomTipProc = 0
    Case Else

        For i = 0 To NumTips - 1
            If WndProc(i).hwnd = hwnd Then
                CustomTipProc = CallWindowProc(WndProc(i).lPrevWndProc, hwnd, uiMsg, _
                wParam, lParam)
                Exit For
            End If
        Next
    End Select
End Function

Private Sub ToolTip_DrawBalloon(hwndTip As Long, hdc As Long, _
    lpszText As String)
   
    Dim rc As RECT
    Dim hRgn, hrgn1, hrgn2 As Long
    Dim pts(0 To 2) As POINTAPI
   
    GetClientRect hwndTip, rc
    pts(0).x = rc.Left + iOffset
    pts(0).y = rc.Top
    pts(1).x = pts(0).x
    pts(1).y = pts(0).y + iOffset
    pts(2).x = pts(1).x + iOffset
    pts(2).y = pts(1).y
    hRgn = CreateRectRgn(0, 0, 0, 0)

    hrgn1 = CreateRoundRectRgn(rc.Left, rc.Top + iOffset, rc.Right, _
        rc.Bottom, 15, 15)

    hrgn2 = CreatePolygonRgn(pts(0), 3, ALTERNATE)

    CombineRgn hRgn, hrgn1, hrgn2, RGN_OR

    FillRgn hdc, hRgn, GetSysColorBrush(COLOR_INFOBK)

    FrameRgn hdc, hRgn, GetStockObject(DKGRAY_BRUSH), 1, 1
    rc.Top = rc.Top + iOffset * 2
    rc.Bottom = rc.Bottom - iOffset
    rc.Left = rc.Left + iOffset
    rc.Right = rc.Right - iOffset

    SetTextColor hdc, GetSysColor(COLOR_3DLIGHT)
    DrawText hdc, lpszText, Len(lpszText), rc, DT_VCENTER + DT_NOCLIP
    rc.Left = rc.Left - 1
    rc.Top = rc.Top - 1

    SetTextColor hdc, GetSysColor(COLOR_INFOTEXT)
    DrawText hdc, lpszText, Len(lpszText), rc, DT_VCENTER + DT_NOCLIP
End Sub


Public Sub AddCustomToolTip(x As Object, ToolTipText As String, FormOwner As Form)
    Dim ti As TOOLINFO
    Dim dwStyle As Long
    Dim hTip As Long
    hTip = CreateWindowEx(0&, "tooltips_class32", "", TTS_ALWAYSTIP, _
        CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, _
        FormOwner.hwnd, 0&, App.hInstance, 0&)
    ti.cbSize = Len(ti)
    ti.uFlags = TTF_IDISHWND + TTF_SUBCLASS
    ti.hwnd = x.hwnd
    ti.uId = x.hwnd
    ti.lpszText = ToolTipText
    SendMessage hTip, TTM_ADDTOOL, 0&, ti

    ReDim Preserve WndProc(NumTips)
    WndProc(NumTips).lPrevWndProc = SetWindowLong(hTip, GWL_WNDPROC, AddressOf CustomTipProc)
    WndProc(NumTips).hwnd = hTip
    NumTips = NumTips + 1
    dwStyle = GetWindowLong(hTip, GWL_STYLE)
    dwStyle = dwStyle And (Not WS_BORDER)
    SetWindowLong hTip, GWL_STYLE, dwStyle
End Sub


En el form Escribe esto..

Código [Seleccionar] Expandir


Option Explicit


Private Sub Form_Load()
    AddCustomToolTip Frame1, "Este es un ejemplo" & vbCrLf & "de una ventana tipo" & vbCrLf & "TOOLTIP", FrmToolTip
    AddCustomToolTip Command2, "Espero te sea" & vbCrLf & "de gran utilidad", FrmToolTip
   End Sub


Y bueno ya habrás visto que en el form tendrás que agregar un frame cuyo nombre será el default (Frame1) y un botton (Command1) Al pasar el puntero sobre estos objetos obtendrás algo muy bueno y aunque se parece a los tips de vb están un poquitín mejores.

Por cierto en el bas puedes personalizarlo... 

Ojalá te sirva.