regras de acesso remoto com noip

Código:

# Dynamic DNS Update / Simple Edition
# Written by Sam Norris, ChangeIP.com
# Copyright ChangeIP.com 2009-2010
# For support send mail to [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
#
# 2009-06-22 RouterOS 3.25 Tested
# 2009-10-05 RouterOS 4.01rc1 Tested
#
# OVERVIEW:        %
#  This script will update a ChangeIP.com dynamic dns hostname
#  with an ip address located directly on an interface.
#                  %
# NOTES:            %
#  IF THIS SCRIPT DOES NOT PRODUCE ANY OUTPUT PLEASE COPY AND PASTE IT
#  AGAIN.  THERE PROBABLY IS A LINE BREAK IN THE WRONG PLACE! Once you
#  have created this script and tested that it works by running it
#  manually you can schedule it to run every few minutes.
#                  %
# CONFIGURATION FIELD DEFINITIONS:
#  ddnsuser:  Enter your ChangeIP.com user id.
#  ddnspass:  Enter your ChangeIP.com password.
#  ddnshost:  Enter the hostname (www.example.com) to update.
#  ddnsinterface:  Enter an interface name - case sensative.
#                  %
#                  %
#                  %
#                  %
#              %  %  %
#                %  %  %
#                % % %
#                  %
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# EDIT YOUR DETAILS / CONFIGURATION HERE
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
:global ddnsuser "************"
:global ddnspass "*********"
:global ddnshost "***********"
:global ddnsinterface "pppoe-out1"
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# END OF USER DEFINED CONFIGURATION
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

:global ddnssystem ("mt-" . [/system package get [/system package find name=system] version] )
:global ddnsip [ /ip address get [/ip address find interface=$ddnsinterface] address ]
:global ddnslastip

:if ([:len [/interface find name=$ddnsinterface]] = 0 ) do={ :log info "DDNS: No interface named $ddnsinterface, please check configuration." }

:if ([ :typeof $ddnslastip ] = "nothing" ) do={ :global ddnslastip 0.0.0.0/0 }

:if ([ :typeof $ddnsip ] = "nothing" ) do={

:log info ("DDNS: No ip address present on " . $ddnsinterface . ", please check.")

} else={

  :if ($ddnsip != $ddnslastip) do={

    :log info "DDNS: Sending UPDATE!"
    :log info [ :put [/tool dns-update name=$ddnshost address=[:pick $ddnsip 0 [:find $ddnsip "/"] ] key-name=$ddnsuser key=$ddnspass ] ]
    :global ddnslastip $ddnsip

  } else={

    :log info "DDNS: No changes necessary."

  }

}

# END OF SCRIPT

Código:

:local NOIPUser "emailusadonoip@gmail.com"
:local NOIPPass "SUASENHA"
:local WANInter "pppoe-out1"

###############################################



:local NOIPDomain "SEUDDNS.malware-site.www"
:local IpCurrent [/ip address get [find interface=$WANInter] address];
:for i from=( [:len $IpCurrent] - 1) to=0 do={
  :if ( [:pick $IpCurrent $i] = "/") do={
    :local NewIP [:pick $IpCurrent 0 $i];
    :if ([:resolve $NOIPDomain] != $NewIP) do={
      /tool fetch mode=http user=$NOIPUser password=$NOIPPass url="http://dynupdate.no-ip.com/nic/update\3Fhostname=$NOIPDomain&myip=$NewIP" keep-result=no
      :log info "NO-IP Update: $NOIPDomain - $NewIP"
    }
  }
}

Marcelo escreveu:Na mão, basta adicionar seus dados

Código:

:local NOIPUser "emailusadonoip@gmail.com"
:local NOIPPass "SUASENHA"
:local WANInter "pppoe-out1"

###############################################



:local NOIPDomain "SEUDDNS.malware-site.www"
:local IpCurrent [/ip address get [find interface=$WANInter] address];
:for i from=( [:len $IpCurrent] - 1) to=0 do={
  :if ( [:pick $IpCurrent $i] = "/") do={
    :local NewIP [:pick $IpCurrent 0 $i];
    :if ([:resolve $NOIPDomain] != $NewIP) do={
      /tool fetch mode=http user=$NOIPUser password=$NOIPPass url="http://dynupdate.no-ip.com/nic/update\3Fhostname=$NOIPDomain&myip=$NewIP" keep-result=no
      :log info "NO-IP Update: $NOIPDomain - $NewIP"
    }
  }
}

Código:

:local noipuser "##usuario"
:local noippass "##senha"
:global noiphost "##endereço"
:global inetinterface "##nome da interface"
:global lastwanip
:global done
:global currentIP
:global wanip

:log info " "
#:log info "No-IP: Iniciano Script DDNS NO-IP Seguro"

:set done "false"

:local counter 0
:while ($done != "true" && $counter < 10 ) do={

:execute "IP_GET"

:set lastwanip $currentIP;

:set counter ($counter+1)
#:log info "No-IP: tentativas de atualização: $counter "
:delay 10

######DEBUG
#:log info "IP pego $currentIP"

}

if ($done = "true") do={
:if ([/interface get $inetinterface value-name=running]) do={
:if ([ :typeof $lastwanip ] = "nothing" ) do={ :global lastwanip 0.0.0.0 };

######DEBUG
#:log info "wanip= $wanip / lastwanip= $lastwanip"

:if ( $wanip != $lastwanip ) do={

#:log info "No-IP: Endereço IP alterado, iniciando verificação..."

#:log info "No-IP: O endereço IP atual é $currentIP"

:local url "http://dynupdate.no-ip.com/nic/update\3Fmyip=$currentIP"
:local noiphostarray
:set noiphostarray [:toarray $noiphost]
:foreach host in=$noiphostarray do={
#:log info "No-IP: Enviando atualização do host $host"
#:log info "fetch url=($url . &hostname=$host user=$noipuser password=$noippass"
/tool fetch url=($url . "&hostname=$host") user=$noipuser password=$noippass mode=http dst-path=("no-ip_ddns_update-" . $host . ".txt")
:log info "No-IP: O Host $host foi atualizado no No-IP com sucesso... O seu IP é $currentIP "
}
######DEBUG
#:log info "IP atual da memória: $lastwanip, IP resolvido: $wanip, DDNS IP: $currentIP"

} else={ :log info "No-IP: Endereço IP não alterado"

######DEBUG
#:log info "IP atual da memória: $lastwanip, IP resolvido: $wanip, DDNS IP: $currentIP"

}
} else={
:log info "No-IP: A interface $inetinterface não está ativa, a atualização não será realizada."
}

} else={
:log info "No-IP: Erro de atualização"
}
#:log info "No-IP: Finalizando..."
:log info " "

Código:

:global done
:global currentIP
:global wanip
:global noiphost

/tool fetch mode=http address="checkip.dyndns.org" src-path="/" dst-path="/dyndns.checkip.html"
:local result [/file get dyndns.checkip.html contents]
:local resultLen [:len $result]
:local startLoc [:find $result ": " -1]
:set startLoc ($startLoc + 2)
:local endLoc [:find $result "</body>" -1]
:set currentIP [:pick $result $startLoc $endLoc]

:set wanip [:resolve $noiphost];

:set done "true"

#####DEBUG
#:log info "No-IP: currentIP $currentIP / wanip $wanip / noiphost $noiphost"


brunoclc escreveu:Amigo, sou novo aqui no forum mas posso te ajudar.

Pra liberar o DMZ vc entra no powerbox pelo ip 192.168.25.1 
User: admin
Pass: gvt12345

Do lado esquerdo: Configurações > Rede Local

Em cima: DMZ

Ai coloca o IP do MK que deve ser estático ex: 192.168.25.100

e os scripts mencionados ai acima pelo amigo são do site do mikrotik, e são furada.

Eu criei dois scripts e acho que podem e vão te ajudar, um para pegar o seu IP, mesmo com o modem roteado, e a outro faz a verificação, se o IP for alterado ele manda os dados para o servidor, tambem possui um sistema que mesmo que não haja internet ele faz 10 tentativas e caso não consiga manda uma mensagem no log informando o erro.

Fique atento ao nome das regras tem que ser o mesmo, e substitua os 4 primeiros campos entre "" (aspas) com os seus dados.

Script Name: "DDNS_Seguro"
Policy: Full

Código:

:local noipuser "##usuario"
:local noippass "##senha"
:global noiphost "##endereço"
:global inetinterface "##nome da interface"
:global lastwanip
:global done
:global currentIP
:global wanip

:log info " "
#:log info "No-IP: Iniciano Script DDNS NO-IP Seguro"

:set done "false"

:local counter 0
:while ($done != "true" && $counter < 10 ) do={

:execute "IP_GET"

:set lastwanip $currentIP;

:set counter ($counter+1)
#:log info "No-IP: tentativas de atualização: $counter "
:delay 10

######DEBUG
#:log info "IP pego $currentIP"

}

if ($done = "true") do={
:if ([/interface get $inetinterface value-name=running]) do={
:if ([ :typeof $lastwanip ] = "nothing" ) do={ :global lastwanip 0.0.0.0 };

######DEBUG
#:log info "wanip= $wanip / lastwanip= $lastwanip"

:if ( $wanip != $lastwanip ) do={

#:log info "No-IP: Endereço IP alterado, iniciando verificação..."

#:log info "No-IP: O endereço IP atual é $currentIP"

:local url "http://dynupdate.no-ip.com/nic/update\3Fmyip=$currentIP"
:local noiphostarray
:set noiphostarray [:toarray $noiphost]
:foreach host in=$noiphostarray do={
#:log info "No-IP: Enviando atualização do host $host"
#:log info "fetch url=($url . &hostname=$host user=$noipuser password=$noippass"
/tool fetch url=($url . "&hostname=$host") user=$noipuser password=$noippass mode=http dst-path=("no-ip_ddns_update-" . $host . ".txt")
:log info "No-IP: O Host $host foi atualizado no No-IP com sucesso... O seu IP é $currentIP "
}
######DEBUG
#:log info "IP atual da memória: $lastwanip, IP resolvido: $wanip, DDNS IP: $currentIP"

} else={ :log info "No-IP: Endereço IP não alterado"

######DEBUG
#:log info "IP atual da memória: $lastwanip, IP resolvido: $wanip, DDNS IP: $currentIP"

}
} else={
:log info "No-IP: A interface $inetinterface não está ativa, a atualização não será realizada."
}

} else={
:log info "No-IP: Erro de atualização"
}
#:log info "No-IP: Finalizando..."
:log info " "

Script Name:"IP_GET"
Policy: Full

Código:

:global done
:global currentIP
:global wanip
:global noiphost

/tool fetch mode=http address="checkip.dyndns.org" src-path="/" dst-path="/dyndns.checkip.html"
:local result [/file get dyndns.checkip.html contents]
:local resultLen [:len $result]
:local startLoc [:find $result ": " -1]
:set startLoc ($startLoc + 2)
:local endLoc [:find $result "</body>" -1]
:set currentIP [:pick $result $startLoc $endLoc]

:set wanip [:resolve $noiphost];

:set done "true"

#####DEBUG
#:log info "No-IP: currentIP $currentIP / wanip $wanip / noiphost $noiphost"


E em Scheduler crie uma regra com o nome "Atualizacao_DDNS" defina o intervalo de 05:00 minutos e no campo "On Event" coloque o nome da primeira regra criada: "DDNS_Seguro"

Espero que ajude!
vlw amigo. vou testar pra ver se funfa. brigadão pela atenção