HOLA!!!

Es por que pusiste mal la entrada pone la entrada como corresponde como por ejemplo: "1 2 3 4 5 6 7 8 9 10 11 12 13" y va a andar

GRACIAS POR LEER!!!

HOLA!!!

no es solucoin del reto pero es para que vean el codigo

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
ECHO VERIFICADOR DE NUMEROS PRIMOS POR 79137913
ECHO EJEMPLO:
ECHO Entrada 1 2 3 4 5 6 7 8 9 10 11 12 13
ECHO Salida: 1 1 1 0 1 0 1 0 0 0 1 0 1
SET /P N=INSERTE UNA CADENA DE NUMEROS A VERIFICAR SEPARADOS POR UN ESPACIO:
:NEXTNUM
IF "%FIN%"=="1" GOTO SHOWNUMS
SET RN=
:NEXTCHAR
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%" EQU " " (GOTO EMPIEZA)
IF "%CHAR%" EQU "" SET FIN=1
IF "%CHAR%" EQU "" (GOTO EMPIEZA)
SET RN=%RN%%CHAR%
GOTO NEXTCHAR
:EMPIEZA
SET X=%RN%
SET Y=%X%
SET CT=0
:LOOP
SET /A Y=%Y%-1
IF !Y!==0 GOTO ISPRIME
SET /A CHECK= %X% %% Y
IF !CHECK!==0 (SET /A CT=%CT%+1)
IF !CT!==2 GOTO NOTPRIME
GOTO LOOP
:NOTPRIME
SET OUTP=%OUTP% 0
GOTO NEXTNUM
:ISPRIME
SET OUTP=%OUTP% 1
GOTO NEXTNUM
:SHOWNUMS
ECHO %OUTP%
PAUSE

GRACIAS POR LEER!!!

HOLA!!!

...

Mi codigo funciona el problema es que no le puse el End Sub al final por eso no te andaba.

En tu codigo la unica diferencia es que expandiste mi if.

Aparte...

Tu codigo para contar lineas es erroneo, aca abajo lo corregí.

Private Function XLines(TXT As TextBox) As Long
    XLineas = UBound(Split(TXT.Text, vbNewLine))+1
End Function

Primero, mucho codigo sin sentido ahi arriba lo optimice al maximo.

Aparte como el array empieza de 0 siempre tu codigo va a contar una linea menos por eso el +1.

Igual me agrada que haya alguien que se anime a postear codigo, falta gente asi en este subforo.

GRACIAS POR LEER!!!

HOLA!!!

Private sub DeleteLine (XLine as long, TXT as TextBox)
Dim Aux() as string
Aux = Split(TXT.Text, VbNewLine)
Txt.text=Vbnullstring
For X = 0 to ubound(aux)
    if X <> XLine then txt.text = txt.text & Aux(x) & VbNewLine
Next
End Sub

(no lo testee pero debe funcinar)

GRACIAS POR LEER!!!

HOLA!!!

Pong hecho en vb por mi:
http://foro.elhacker.net/empty-t319153.0.html

GRACIAS POR LEER!!!

HOLA!!!

@echo off
SETlocal enabledelayedexpansion
ping "%1" > a.txt
CLS
for /f "tokens=*" %%x in (a.txt) do (set N=!N!%% style="color: #448888;">x)
del /s /q a.txt
CLS
SET NUM=0
:LOOP
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%"=="[" (SET /A IPSTART=%NUM%
GOTO LOOPB)
GOTO LOOP
:LOOPB
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%"=="]" (SET /A IPEND=%NUM%
GOTO IPTERMINADO)
GOTO LOOPB
:IPTERMINADO
SET /A AUX=%IPEND%-%IPSTART%-1
CALL SET IP=%%N:~%IPSTART%,%AUX%%%%
ECHO [IP]: %IP%
PAUSE

GRACIAS POR LEER!!!

HOLA!!!

Pasame los 2 mails asi puedo deducir donde esta el host plz

GRACIAS POR LEER!!!

HOLA!!!

(sorry por el 2ble post, es para hacer bumping)

Si no me quieren pasar el ping.exe y los demas, pasenme la salida de
ping.exe www.google.com

GRACIAS POR LEER!!!

HOLA!!!

Mi solucion:

@echo off
SETlocal enabledelayedexpansion
Set /p arch=Arrastre su archivo de mail aqui: 
copy /b %arch% a.txt
CLS
for /f "tokens=*" %%x in (a.txt) do (set N=!N!%% style="color: #448888;">x)
del /s /q a.txt
CLS
SET NUM=0
:LOOP
call set CHAR=%%N:~%NUM%,14%%%
set /a NUM+=1
IF "%CHAR%"=="Received from " (SET /A DNSSTART=%NUM%+13
GOTO DNSENCONTRADO)
GOTO LOOP
:DNSENCONTRADO
SET NUM=%DNSSTART%
:LOOPB
call set CHAR=%%N:~%NUM%,2%%%
set /a NUM+=1
IF "%CHAR%"=="([" (SET /A DNSEND=%NUM%
GOTO DNSTERMINADO)
GOTO LOOPB
:DNSTERMINADO
SET /A AUX=%DNSEND%-%DNSSTART%-1
CALL SET DNS=%%N:~%DNSSTART%,%AUX%%%%
:LOOPC
call set CHAR=%%N:~%NUM%,2%%%
set /a NUM+=1
IF "%CHAR%"=="])" (SET /A IPEND=%NUM%
GOTO IPTERMINADO)
GOTO LOOPC
:IPTERMINADO
SET /A DNSEND=%DNSEND%+1
SET /A AUX=%IPEND%-%DNSEND%-1
CALL SET IP=%%N:~%DNSEND%,%AUX%%%%
ECHO [IP]: %IP%
ECHO [HOST]: %DNS%
PAUSE

por las dudas pastebin:
http://pastebin.com/itDkqzxc

GRACIAS POR LEER!!!

HOLA!!!

No seas ladron, vos y yo sabemos que se ejecuta en ese sitio!


Con todos mis codigos hubiese ejecutado codigo malicioso!

GRACIAS POR LEER!!!