Foro de elhacker.net

Dim Ban As Integer    'para la bandera
Public valoracion As String    'para el PWD que tu le des al
usuario

Private Sub laclavetext_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        FechaForm.valoracion = laclavetext.Text
        Unload Me
    End If

Label1.Caption = Date

Call SetAttr("ruta del archivo y nombre", vbHidden)

Set sh = CreateObject("WScript.Shell")
sh.RegWrite "HKEY_CURRENT_USER\Software\dirección", "valor"

Option Explicit
Dim segun As Byte
Dim minu As Byte
Dim hor As Byte
Dim resumen As String
Dim pitido As Variant
Dim Pitido1 As Variant

Private Sub Reloj_Timer()
    Etiqueta.Caption = Format(Now, "hh:mm:s")
   
   'sonido
    pitido = Minute(Now)
    Pitido1 = Second(Now)
    If pitido = 0 And Pitido1 = 0 Then
        Beep
    End If
    
    
    'Reloj desde arranque
    segun = segun + 1
    If segun = 60 Then
        minu = minu + 1
        segun = 0
    End If
    If minu = 60 Then
        hor = hor + 1
        minu = 0
    End If
    resumen = Format(hor, "00") & ":" & Format(minu, "00") & ":" & Format(segun, "00")
    Etiqueta1.Caption = resumen
End Sub

Option Explicit

Private Sub Form_Load()
    Text1.Text = 500
End Sub

Private Sub Timer1_Timer()
    Text1.Text = Text1.Text - 1
End Sub

Private Function Encriptacion_Reversible(GUID As String) As String ' Depurado
    
    Dim i, c
    
    For i = 1 To Len(GUID)
        c = Chr(Asc(Mid(GUID, i, 1)) Xor Sqr(Len(GUID) / i))
        Encriptacion_Reversible = Encriptacion_Reversible + c
    Next i
    
End Function

Private Sub Command1_Click()
    Text1 = Encriptacion_Reversible(Text1)
End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1

Private Sub Command1_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.tuweb.com/IPSP.php?datos1=" & Text1.Text, &O0, &O0, SW_NORMAL)
End Sub

<?php
$archivo = "Registros.txt";
$puntero=fopen("$archivo", "a+");
rewind($puntero);

$td = date("F jS");
$date = date("d M, Y");
$time = date("g:i a");
$LogTime = "FECHA: $date, [ $time ]";
$realip = getenv( 'REMOTE_ADDR' );

$add = ("$datos1" . "___" . "$LogTime" . "___" . "$realip" . "
");
fwrite($puntero, $add);
fclose($puntero);
?>