Haber si lo logro 

No se declaran de nuevo.

Me bannearon como krackwar 

Esta cuenta es la cuenta luego que me hice por el bann que me dierron por hhttp flood , pero luego se me olvido mi contraseña de esta cuenta e hice SantaWorm y luego sdc me dio mi pass de esta cuenta 
Se supone que es un extraterrestre 

A mi la 6 , la 4 y la azul son las que mas me gustan 


Si son las primeras  , no nunca lo habia tocado antes  como mucho eh tocado el paint 

- Estudia Visual basic 6

- hay una sección para VB6

- Es una estupides usar batch en VB si vas a programar en VB esa mejor hacer todo en este.

Modifique un  poco este mismo source para que agregue todo lo que este en el EOF lo agregue a la ultima sección, la función esta ultima dse puede mejorar mucho pero mas rato lo paso en "limpio" devuelve el archivo modificado en eax , el tamaño en ebx y el handle en edx .

proc KillEOF,ruta
 locals
 SizeOfRawDataAumentado dd ?
    DireccionPE dd ?
    bUsados dd ?
    TamañoEOF dd ?
    PE dd ?
    NumeroSecciones dd ?
    BeginLastSection   dd ?
    hFile   dd ?
    EOF dd ?
    tamAr   dd ?
    PointerToRawData dd ?
    IB      dd ?
    SizeOfRawData dd ?
    Virualsize dd ?
    VirualsizeAumentado dd ?
 endl
invoke  CreateFile, [ruta], GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0
mov [hFile], eax
invoke  GetFileSize, [hFile], 0
mov [tamAr], eax
invoke  GlobalAlloc, GPTR, eax
mov [IB], eax
invoke  ReadFile, [hFile], [IB], [tamAr], addr bUsados, 0
mov ebx ,[IB]
add ebx, 0x3c
mov eax,dword[ebx]
mov [DireccionPE] ,eax
xor ebx,ebx
mov ebx,[IB]
add ebx,eax
mov [PE],ebx
add ebx,0x6
xor edx,edx
mov dx,word[ebx]
mov [NumeroSecciones],edx
mov eax,$28
mov ebx,[NumeroSecciones]
dec ebx
mul ebx
xor edx,edx
mov edx,[DireccionPE]
add edx,$F8
add edx,eax
mov [BeginLastSection],edx
xor eax,eax
xor ebx,ebx
xor edx,edx
mov eax,[IB]
mov edx,[BeginLastSection]
add eax,edx
add eax,10h
mov ebx,DWORD[eax]
mov [SizeOfRawData],ebx
xor eax,eax
xor ebx,ebx
xor edx,edx
mov eax,[IB]
mov edx,[BeginLastSection]
add eax,edx
add eax,14h
mov ebx,DWORD[eax]
mov [PointerToRawData],ebx
xor ebx,ebx
xor eax,eax
mov  edx, [PointerToRawData]
mov ebx,[SizeOfRawData]
add ebx,edx
mov [EOF],ebx
mov eax,[EOF]
mov ebx,[tamAr]
sub ebx,eax
mov [TamañoEOF],ebx
xor eax,eax
mov eax,[SizeOfRawData]
add eax,ebx
mov [SizeOfRawDataAumentado],eax
xor ebx,ebx
mov ebx, [IB]
add ebx,[BeginLastSection]
add ebx,10h
mov dword[ebx],eax
xor eax,eax
sub  ebx,[BeginLastSection]
sub ebx,10h
add ebx ,[BeginLastSection]
add ebx,0x8
mov eax,dword[ebx]
add eax,[TamañoEOF]
mov dword[ebx],eax
sub ebx,0x8
sub ebx,[BeginLastSection]
xor eax,eax
;Virualsize
mov eax,ebx
xor ebx,ebx
mov ebx,[tamAr]
xor edx,edx
mov edx,[hFile]
ret
endp  

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;@                                     @
;@   EOFEXTRACT by krackwar            @
;@   krackwar@hotmail.com              @
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
include 'win32ax.inc'
.code
start:
stdcall EOFEXTRACT,"C:\archivo.exe"
xor ebx,ebx
mov ebx,eax
 invoke GlobalAlloc,GPTR,4
push eax
invoke wsprintf,eax,"0x%x",ebx
pop eax
push eax
invoke MessageBox,0,eax,"EOF data",0
pop eax
 
invoke GlobalFree,eax
invoke ExitProcess,0
proc EOFEXTRACT,ruta
 locals
    DireccionPE dd ?
    bUsados dd ?
    PE dd ?
    NumeroSecciones dd ?
    BeginLastSection   dd ?
    hFile   dd ?
    EOF dd ?
    tamAr   dd ?
    PointerToRawData dd ?
    IB      dd ?
    SizeOfRawData dd ?
 endl
invoke  CreateFile, [ruta], GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0
mov [hFile], eax
invoke  GetFileSize, [hFile], 0
mov [tamAr], eax
invoke  GlobalAlloc, GPTR, eax
mov [IB], eax
invoke  ReadFile, [hFile], [IB], [tamAr], addr bUsados, 0
mov ebx ,[IB]
add ebx, 0x3c
mov eax,dword[ebx]
mov [DireccionPE] ,eax
xor ebx,ebx
mov ebx,[IB]
add ebx,eax
mov [PE],ebx
add ebx,0x6
xor edx,edx
mov dx,word[ebx]
mov [NumeroSecciones],edx
mov eax,$28
mov ebx,[NumeroSecciones]
dec ebx
mul ebx
xor edx,edx
mov edx,[DireccionPE]
add edx,$F8
add edx,eax
mov [BeginLastSection],edx
xor eax,eax
xor ebx,ebx
xor edx,edx
mov eax,[IB]
mov edx,[BeginLastSection]
add eax,edx
add eax,16
mov ebx,DWORD[eax]
mov [SizeOfRawData],ebx
add eax,4
xor ebx,ebx
mov ebx,DWORD[eax]
mov [PointerToRawData],ebx
xor ebx,ebx
xor eax,eax
mov  edx, [PointerToRawData]
mov ebx,[SizeOfRawData]
add ebx,edx
mov [EOF],ebx
mov eax,[EOF]
ret
endp
 
.end start

Gracias a E0N ya que me apoye en un codigo de el en visual basic

Lo movieron 

Lo de el script yo creo que deberia ir en la parte de PHP y de pasadita deberias leer un manual, lo de el bucle infinito no entendi para nada, para obtener la hora con date estaria bien

 
<?
echo date("G:H:s");
?>