Mensajes

Puedes poner un timer que se active cada 5 minutos mas un contador (global).
Cuando el contador llegue a 12, ha pasado una hora desde que activaste el timer... 

Saludos!

Quizás cambiando el punto de inicio, no salga el mensaje.

Revisa este post (no sólo el primero, sino todos). Contiene casi todos las claves de inicio de Windows.

Saludos!

[aparentemente]

Lo acabo de decompilar con IDR y aparentemente no tiene nada raro.
Está lleno de código porque usa skins y otras cosas típicas de Delphi (por eso creo que pesa 15 megas), pero no parece ser viruta (Ojo que esto lo digo en base a lo que veo en el decompilado y el comportamiento mostrado por VirusTotal).

Aunque, bueno, nada es seguro en esta vida... 

@DELPHI-XE6: Debes entender que es muy raro tener un ejecutable de 15 Megabytes que hace solamente lo que dices que hace.
Por ejemplo, en python, el siguiente código hace casi lo mismo que tu programa:

Código (python) [Seleccionar] Expandir

import string
import random

#alphabet mask
mask_all    = 0x0      #String of characters which are considered printable.
                       #This is a combination of all masks values
mask_abc    = 0x1      #The lowercase letters 'abcdefghijklmnopqrstuvwxyz'
mask_ABC    = 0x2      #The uppercase letters 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
mask_123    = 0x4      #The string '0123456789'
mask_white  = 0x8      #A string containing all characters that are considered
                       #whitespace. On most systems this includes the characters
                       #space, tab, linefeed, return, formfeed, and vertical
                       #tab.
mask_punct  = 0x10     #String of ASCII characters which are considered
                       #punctuation characters in the C locale.

def generator (alphamask, size):
    if (alphamask > 0x1F) or (alphamask < 0):
        alphamask = alphamask and 0x1F
    alfa = ''
    if alphamask == 0:
        alfa = string.printable
    else:
        if alphamask & mask_abc:
            alfa += string.lowercase
        if alphamask & mask_ABC:
            alfa += string.uppercase
        if alphamask & mask_123:
            alfa += string.digits
        if alphamask & mask_white:
            alfa += string.whitespace
        if alphamask & mask_punct:
            alfa += string.punctuation
    if size > 0:
        ret = ''
        for i in range (0, size):
            ret += random.choice(alfa)
        return ret
    else:
        print 'size should be positive integer'
        return ''

def main():
    #ejemplos
    print generator(1, 10)
    print generator(2, 20)
    print generator(4, 30)
    print generator(8, 40)
    print generator(16, 50)
    print generator(7, 50)

if __name__ == '__main__':
    main()

   
Por ello, entiende que un ejecutable de 15 megabytes despierta muchas sospechas, sin importar en cuántos lenguajes esté.
Creo que deberías incluir el source con el ejecutable, para que cualquiera pueda verificar que el programa no es malware.

Saludos!

entonces no te molestara que la analise en virustotal (algo raro que pongas un scanner que no distribuye muestras)

Ya lo analicé en VT. Está en un post anterior.

antes de hacer ese comentario., ¿por qué no analizar profunda

Mi comentario es sólo para prevenir. No he dicho que esto sea malware (tampoco que no lo sea).

Lo único que he dicho es que me parece sospechoso un ejecutable tan grande (teniendo en cuenta lo que hace).

Saludos!

[File Name:]

gestiona sus Strings de la forma que desee
Un gran generador
buen uso



File Name: Gerador.rar
File Size: 3.67 MB
Scan Date: 2014-07-26
Scan Result: 3/34

MD5: df27205e1510334e486162b964c06923
Verified By NoDistribute: Virus Scan Result

AVG Free: Clean
Avast: Clean
AntiVir (Avira): Clean
BitDefender: Clean
Clam Antivirus:Gerador.exe=PUA.Win32.Packer.Rpolycryptor
COMODO Internet Security: Clean
Dr.Web: Clean
eTrust-Vet: Clean
F-PROT Antivirus: Clean
F-Secure Internet Security: Clean
G Data: Clean
IKARUS Security: Clean
Kaspersky Antivirus: Clean
McAfee: Clean
MS Security Essentials: Clean
Norman: Clean
Norton Antivirus: Clean
Panda Security: Clean
A-Squared: Clean
Quick Heal Antivirus: Clean
Solo Antivirus: Clean
Sophos: Clean
Trend Micro Internet Security: Clean
VBA32 Antivirus: Clean
Zoner AntiVirus: Clean
Ad-Aware: Clean
BullGuard: Clean
FortiClient:Gerador.exe=virus found deleted
K7 Ultimate: Clean
NANO Antivirus: Clean
Panda CommandLine: Clean
SUPERAntiSpyware: Clean
Twister Antivirus:Gerador.exe=virus found deleted
VIPRE: Clean
Pass My Nink
DOWNLOAD
https://www.sendspace.com/file/k57zof

Analisis de Virustotal: click

Aunque virustotal diga que el exe está limpio, me parece que 15 megas para hacer algo tan sencillo, en muy sospechoso (o bien, embarcadero ha destruido el compilador y generan EXEs mounstruosos).

No intento desmerecer tu trabajo ni ninguna cosa parecida. Pero un post como éste sin source, con un exe TAN grande, es muy sospechoso para mi...

Saludos!

Y, perdón por la consulta nuevamente pero, porqué lo haces en Delphi y lo posteas en el foro de Visual Basic?

Otra pregunta es: Viene con el source?

Saludos!

Perdón por la consulta, pero, es un generador de strings de largo arbitrario random, no?

Hola!

Aqui encontraras mucha info sobre el desempacado de dongles.

Saludos!