|
Mostrar Mensajes
|
Páginas: 1 2 3 4 5 6 [7] 8 9
|
61
|
Seguridad Informática / Hacking / Re: Jugando con netcat
|
en: 30 Abril 2007, 23:55 pm
|
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...
|
|
|
62
|
Seguridad Informática / Hacking / Re: Jugando con netcat
|
en: 25 Abril 2007, 23:06 pm
|
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 AutoitDownload en VbasicLa 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.
|
|
|
64
|
Comunicaciones / Hacking Mobile / Re: Programa Bt Info (Controlar Cell Via Bluetooth)
|
en: 23 Abril 2007, 22:51 pm
|
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)
|
|
|
66
|
Programación / Programación Visual Basic / Re: `PARCHE DE VB PARA LINUX
|
en: 27 Abril 2006, 20:38 pm
|
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...
|
|
|
67
|
Programación / Programación Visual Basic / Re: `PARCHE DE VB PARA LINUX
|
en: 26 Abril 2006, 07:04 am
|
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.
|
|
|
68
|
Programación / Programación Visual Basic / Re: iniciar programa con windows
|
en: 13 Abril 2006, 08:42 am
|
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...
|
|
|
70
|
Programación / Programación Visual Basic / Re: Bocadillos de dialogos
|
en: 30 Marzo 2006, 19:00 pm
|
Escribe esto en un módulo 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.. 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.
|
|
|
|
|
|
|