Cita:
Quizá es por eso que no somos pilotos de combate :D :D aunque con 31 segundos a lo mejor te dejaban una avioneta, a mi ni eso :( |
Orales!, por fin: Record 38.513
|
Hola
Que va esto es imposible, voy a tener que dejar de fumar, con 6 segundos, no me dan ni una bicicleta. Aparte, Seoane, no me canso de decirlo, eres genial, de verdad, impresionas cada 6 segundos, como mi record. Saludos |
Complicado el juegecito, 20 seg y de casualidad porque el resto de la veces no paso de 8.
Esto es como el pac-man, simple pero adictivo. Un saludo. |
Cita:
|
1 Archivos Adjunto(s)
ehhhhh!!!!! new record 52 seg, es demasiado dificil mantenerse dentro del cuadro blanco :(
|
1 Archivos Adjunto(s)
Caramba me voy dos días de fiesta y me borran los mensajes :p :D
Pues nada, el ejemplo que se borro, genera una gráfica a partir del numero de mensajes de los 32 usuarios con mas mensajes. Perdonar si no me extiendo mas en la explicación, pero el ron me impide ser mas locuaz :D |
Yo continuo, al final este hilo esta siendo un monologo :p
Bueno, imaginaros esta situación, estas en un ordenador que no es el tuyo y quieres ocultar un archivo a la vista de los curiosos, una foto comprometida, un documento confidencial, etc. Como no es tu ordenador, no te vas a poner a instalar nada, ni andar ejecutando ningún programa extraño, pero lo que si podemos hacer es abrir la consola de comandos y teclear esto: Código:
copy /b foto.jpg+secreto.doc oculto.jpg Te preguntaras que hacemos con esto, pues básicamente "ponerle un sombrero" a nuestro archivo. A todos los efectos el archivo resultante parecerá una foto, y tanto la vista previa de windows, como la mayoría de los programas lo abrirán como si de una foto se tratara. Ahora el problema es "quitarle el sombreo" a nuestro archivo. Para esto no queda mas remedio que usar un programa (al menos no se de ningún comando que realice esta labor). Y aquí es donde, por fin :D , entra en acción el siguiente código: Es una aplicación de consola
Por ejemplo, para extraer "secreto.doc" de "oculto.jpg": Código:
unpack oculto.jpg secreto.doc |
Pues yo también me quito el sombrero ante esta "inutilidad"..:)
¿Que ocurre si no hay ningún archivo jpg en ese ordenador ? Y... si la hubiera... ¿Que pasaría si la foto fuera mas comprometida que el propio documento a ocultar.?:D |
Cita:
Cita:
|
Cita:
Además, imagina que se me echa encima el cuerpo de bomberos por exponer aquí sus ideas. |
Cita:
Por dios, cuanto reparo hay en mostrar código, os veo muy tímidos :D :D |
Oyes, no te voy a dejar con las ganas...:D
Espero que ahora no se me echen encima los de RENFE
Código:
object Form1: TForm1 |
:D Excelente Ardilla, esto ya parecía un monologo.
|
Este lo tenía de hace años, cuando empecé en Windows 3.1 y C
|
Y siguiendo con los trucos para "aficionados" a la fotografía :rolleyes: Aquí dejo los pasos para ocultar un montón de fotografías a la vez.
Primero compactamos todas las fotografías en un solo archivo: Código:
copy /b *.jpg fotos.pak Código:
copy /b foto.jpg+fotos.pak oculto.jpg Código:
jpegrecover oculto.jpg %d.jpg |
Hola
Seoane, hay algunos de nosotros que hemos pensado en la posibilidad de hacer unos tutoriales y se nos presento una duda, ( Cuales son las preguntas mas expuestas en el club y de que temas). Crees poder sacarte de la manga uno de tus programas algo asi como el Ejemplo44 ? Nos seria de mucha utilidad y al club. Te animas?.:) Saludos |
Seoane, me has decepcionado: ¡Ese código es útil! :eek: :p :D
|
Cita:
Y aprovechando que se encuentra usted por aquí maestro Ñuño, no tiene ningún código que dejarnos ... :rolleyes: |
Cita:
|
Hola, esta weno este hilo. Me gustaria poner mi granito de arena aunque no sea nada en comparacion con el code de seoane :D
Con esta funcion puedes generar contraseñas con signos, letras, numeros.. No le veo utilidad ninguna pero a lo mejor les sirve:
Para llamar a la funciona es sencillo:
Salu2 |
seoane, con relación al ejemplo44, te comenté (aunque ahora no consta) que había cambiado el parámetro strUrl a 33, por aquello del consuelo.:D:D
A día de hoy, he vuelto a restablecer dicho parámetro tal cual estaba...:D |
Cita:
De todas formas, creo que roman lo tiene puesto a 1 :p |
Bueno Mi codigo Inutil.
por las estadisticas de visitas.. "el TA-TE-TI" que esta agregado en el hilo el Juego del X y O, ya que ha tenido la gran suma de!!! 0 visitas :p jaja Bueno saludos (no lo agrego) ya que no quiero saturar el server con basura :D |
Cita:
|
Cita:
yo ya pensaba quera el maxime de los inservibles!! jejeje saludos. (pretendo hacerle algunos cambios, ya se los comentare) porque requieren de PHP y por ahora voy a tener que estudiar :D |
1 Archivos Adjunto(s)
Bueno. Yo siguo en mis "doce mas uno" y a coladura de aquel hilo, pongo este código "de fin de semana".
No sirve para ver los usuarios que están conectados y resume el número suma el número de visitantes........... En esta ocasión, prescindimos de las WinInet :D:D:D El código es simplom y con prisas pero funciona. [delphi] unit UnitMain; interface uses Windows, SysUtils, Classes, Forms,Dialogs, IdComponent, IdTCPConnection, IdHTTP, IdCookieManager, IdBaseComponent, ExtCtrls, StdCtrls, Controls, IdTCPClient; type TFormMain = class(TForm) IdCookieManager1: TIdCookieManager; IdHTTP: TIdHTTP; Memo1: TMemo; Panel1: TPanel; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Button1: TButton; procedure IdHTTPStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: String); procedure Conectar; procedure Extraer(Url : String); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormMain: TFormMain; Perfil : Integer; implementation {$R *.dfm} procedure TFormMain.IdHTTPStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: String); begin //Memo1.Lines.Add(AStatusText) end; procedure TFormMain.Button1Click(Sender: TObject); begin Perfil := 0; Memo1.Lines.Clear; Conectar; Extraer('http://www.clubdelphi.com/foros/online.php'); end; procedure TFormMain.Conectar; var Campos: TStringlist; Respuesta: TStringStream; Begin Campos:= TStringList.Create; Respuesta:= TStringStream.Create(''); Campos.Values['vb_login_username']:= Trim(Edit1.Text); Campos.Values['vb_login_password']:= Trim(Edit2.Text); Campos.Values['do']:= 'login'; Idhttp.post('http://www.clubdelphi.com/foros/login.php',Campos); Campos.Free; Respuesta.Free; end; procedure TFormMain.Extraer(Url : String); var SiguientePag : String; Contenido : TStrings; I : Integer; Desde , Longitud : Integer; cTemp : String; Begin Contenido := TStringList.Create; SiguientePag := ''; Contenido.Text := Idhttp.Get(Url); //Procesar la salida For I := 0 to Contenido.Count -1 Do begin //Siguiente página If Pos('Siguiente Página',Contenido[i]) > 0 then Begin Desde := Pos('href', Contenido[i]); Longitud := Pos('title', Contenido[i]) - Desde; SiguientePag := Copy(Contenido[i],Desde , Longitud); SiguientePag := StringReplace(SiguientePag,'&','&',[rfReplaceAll]); End; //Usuarios If (Pos('<a href="member.php',Contenido[i]) > 0 ) and (Pos('Mi Perfil',Contenido[i]) = 0 ) then Begin Desde := 1 + Pos('>', Contenido[i]); Longitud := Pos('</a>', Contenido[i]) - Desde; //usuarios conectados -----> también aparecen los que han terminado sesión if Trim(Contenido[I + 12 ]) <> '' then Memo1.Lines.Add( Copy(Contenido[i],Desde , Longitud) + ' ---> ' + Trim(Contenido[I + 12 ])); End; If Trim (Contenido[i]) = 'Visitante' then Begin if Pos('Registrandose' ,Trim(Contenido[I + 12 ])) > 0 then cTemp := 'Registrándose' else cTemp := Trim(Contenido[I + 12 ]); if Pos('Viendo Perfil de Usuario' ,Trim(Contenido[I + 12 ])) > 0 then inc(Perfil); Memo1.Lines.Add( 'Visitante ---> ' + cTemp); End; End; Contenido.Free; Application.ProcessMessages; if SiguientePag = '' then Begin Memo1.Lines.Add('***************************************************************************'); Memo1.Lines.Add('NUMERO DE VISITANTES VIENDO PERFIL DE USUARIOS: ' + IntToStr(Perfil)); Memo1.Lines.Add('***************************************************************************'); End Else Begin SiguientePag := 'http://www.clubdelphi.com/foros/' + Copy(SiguientePag,7,Length(SiguientePag)); System.Delete(SiguientePag,Length(SiguientePag)-1,1); Extraer(SiguientePag); End; End; end. [/delphi] El Fom [code] object FormMain: TFormMain Left = 309 Top = 149 Width = 532 Height = 409 Caption = 'Estadísticas de usuarios contectados -By AdiIIa-' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Memo1: TMemo Left = 0 Top = 45 Width = 524 Height = 330 Align = alClient ScrollBars = ssBoth TabOrder = 0 end object Panel1: TPanel Left = 0 Top = 0 Width = 524 Height = 45 Align = alTop TabOrder = 1 object Label1: TLabel Left = 8 Top = 8 Width = 36 Height = 13 Caption = 'Usuario' end object Label2: TLabel Left = 192 Top = 8 Width = 46 Height = 13 Caption = 'Password' end object Edit1: TEdit Left = 64 Top = 8 Width = 121 Height = 21 TabOrder = 0 Text = 'TuNick' end object Edit2: TEdit Left = 248 Top = 8 Width = 121 Height = 21 TabOrder = 1 Text = 'TuClave' end object Button1: TButton Left = 392 Top = 8 Width = 75 Height = 25 Caption = 'Conectar' TabOrder = 2 OnClick = Button1Click end end object IdCookieManager1: TIdCookieManager Left = 32 Top = 208 end object IdHTTP: TIdHTTP OnStatus = IdHTTPStatus MaxLineAction = maException ReadTimeout = 0 Host = 'www.clubdelphi.com' AllowCookies = True ProxyParams.BasicAuthentication = False ProxyParams.ProxyPort = 0 Request.ContentLength = -1 Request.ContentRangeEnd = 0 Request.ContentRangeStart = 0 Request.ContentType = 'application/x-www-form-urlencoded' Request.Accept = 'text/html, text/plain, */*' Request.AcceptEncoding = 'gzip, deflate ' Request.AcceptLanguage = 'es,en;q=0.5 ' Request.BasicAuthentication = False Request.UserAgent = 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) ' HTTPOptions = [hoForceEncodeParams] CookieManager = IdCookieManager1 Left = 32 Top = 176 end end [/code] Para los que no quieran perder tiempo en compilar, pongo el ejecutable comprimido como adjunto. ;) Edito y pongo las etiquetas noparse porque el mensaje aslía echo una porquería.. |
Gracias Ardilla por animarte, espero que se anime alguno mas, que seguro que algún código inútil tienen por ahí :p
|
Con tu permiso Ardilla, creo que queda mejor con etiquetas php
Código PHP:
Código:
object FormMain: TFormMain |
Cita:
Yo creo que si queda mejor...:D:D |
Aquí una función que convierte cifras numéricas a texto..
(lo saque de de una lista de correo) Aunque no es exactamente inservible, por que hay componente que hacen lo mismo (Creo)
saludos! PD si no esta permitido este tipo de códigos quitadlo, solo quería colaborar. |
Cita:
Cita:
|
tanto que batallé en el pasado y ahora en el club delphi he visto 3 funciones diferentes para convertir de números a letras. :D
|
Cita:
saludos! |
Esa función de número a letras la escribió Carlos García Trujillo
************* Numero a Letra Versión 1.5 ***************** _________________________________________________________ Autor : Carlos García Trujillo E-mail: cgar1136 @ yahoo.com cgar1136 @ latinmail.com http://www.geocities.com/ResearchTriangle/Node/2174/ _________________________________________________________ 26 de Abril de 1999 Xalapa, Veracruz; México. |
Cita:
[casi broma] Por cierto: Tengo un ERP de una empresa que podría ir todo él en esta sección, pero el hilo dejaría de ser visitado... :D [/casi broma] |
1 Archivos Adjunto(s)
No se si hay alguien que todavía lea este hilo, pero yo sigo poniendo código, por si a alguien le interesa :p
La aplicación de hoy es un "Password hasher", que básicamente genera un password a partir de una etiqueta y una clave, bueno en realidad genera dos, una de ocho letras y otra diez. Te preguntaras que utilidad tiene esto, pues muy simple, imagínate que necesitas utilizar contraseñas para acceder a 10 sitios de internet diferentes. Tienes varias alternativas, utilizar la misma contraseña en todos, lo cual no te recomiendo, o recordar 10 contraseñas diferentes. Este programa nos da otra tercera opción, recordar solo una clave (la que utilizamos en el programa), y generar una contraseña diferente para cada sitio, utilizando como "etiquetas" los nombres o direcciones de cada sitio. Por ejemplo: Código:
Sitio/etiqueta = clubdelphi.com
PD: El algoritmo para generar las contraseñas se discutió en este hilo, ahí encontrarás otros algoritmos alternativos. |
Hola,
Está muy curioso Domingo. Sin embargo hay algo que no termino de comprender bien. Con una "clave" (URL de un sitio Web, por ejemplo) y una "contraseña", se genera un "Hash"... o dos "Hash"... ¿por qué se parte en dos "lo que se genera"? ¿Y cuál de los dos "trozos" se supone que habría que usar? No lo entiendo... :( ;) |
Cita:
La primera (la de la izquierda) se genera utilizando md5 y tiene una longitud de 8 caracteres, las segunda se genera usando sha1 y tiene una longitud de 10 caracteres. Puedes usar la que prefieras, o juntar las dos, eso depende de la longitud de contraseña que necesites. |
Hola,
Hum... ahora lo pillo entonces. Pues oyes, está bien. El asunto es que tengo una carpeta llena de subcarpetas con todas las contraseñas de sitios Web a los que me he registrado desde no se sabe cuándo muchos de ellos. Y a veces he pensado en hacer algo con Delphi, algún programilla, porque, todos los que he visto por ahí... chico, no sé, unos por una cosa, otros por otra... son programas estupendos, pero, no me quedan a gusto. Y bueno. Ese tercer "sistema" que has empleado para conseguir contraseñas me ha parecido curioso. Va a ser al final que no todo el código de este hilo es inútil del todo. :D :D |
La franja horaria es GMT +2. Ahora son las 04:09:57. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi