FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#101
|
|||
|
|||
Hola, esta weno este hilo. Me gustaria poner mi granito de arena aunque no sea nada en comparacion con el code de seoane
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 |
#102
|
||||
|
||||
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.
A día de hoy, he vuelto a restablecer dicho parámetro tal cual estaba...
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
#103
|
||||
|
||||
Cita:
De todas formas, creo que roman lo tiene puesto a 1 |
#104
|
||||
|
||||
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 jaja Bueno saludos (no lo agrego) ya que no quiero saturar el server con basura |
#105
|
||||
|
||||
Pues debe estar el contador mal, como mínimo debería haber 1; Yo me lo descargué...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#106
|
||||
|
||||
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 |
#107
|
||||
|
||||
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 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..
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO Última edición por ArdiIIa fecha: 27-08-2007 a las 13:49:00. |
#108
|
||||
|
||||
Gracias Ardilla por animarte, espero que se anime alguno mas, que seguro que algún código inútil tienen por ahí
|
#109
|
||||
|
||||
Con tu permiso Ardilla, creo que queda mejor con etiquetas php
Código PHP:
Código:
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 |
#110
|
||||
|
||||
Cita:
Yo creo que si queda mejor...
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
#111
|
||||
|
||||
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. |
#112
|
||||
|
||||
Cita:
No veo por que no, siempre que al autor del código no le importe. Aunque no estaría mal que citaras el sitio donde la encontraste. |
#113
|
||||
|
||||
tanto que batallé en el pasado y ahora en el club delphi he visto 3 funciones diferentes para convertir de números a letras.
|
#114
|
||||
|
||||
Cita:
saludos! |
#115
|
||||
|
||||
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.
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal Última edición por Casimiro Notevi fecha: 28-08-2007 a las 08:54:40. |
#116
|
||||
|
||||
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... [/casi broma]
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO Última edición por ArdiIIa fecha: 28-08-2007 a las 09:04:36. |
#117
|
||||
|
||||
No se si hay alguien que todavía lea este hilo, pero yo sigo poniendo código, por si a alguien le interesa
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 Clave=secreto Hash generado -> Fu68DwJq / u6zSIXzd7v
PD: El algoritmo para generar las contraseñas se discutió en este hilo, ahí encontrarás otros algoritmos alternativos. Última edición por seoane fecha: 10-09-2007 a las 16:41:05. |
#118
|
||||
|
||||
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... |
#119
|
||||
|
||||
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. |
#120
|
||||
|
||||
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. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Utilidad para comparar dos bases de datos. | avmm2004 | Varios | 1 | 16-11-2006 20:47:22 |
Utilidad para contar lineas de código | Alexander | Varios | 10 | 18-10-2006 00:14:55 |
Utilidad para manejo de lista TODO | ANG4L | Varios | 3 | 02-08-2006 09:36:39 |
Cual es la utilidad de la paleta Server | Gelmin | Servers | 1 | 05-03-2004 22:20:36 |
utilidad del application.tag | Giniromero | OOP | 8 | 17-10-2003 12:21:53 |
|