View previous topic :: View next topic |
Author |
Message |
Dr. Dread Professional Member
Joined: 03 Aug 2001 Posts: 1065 Location: Copenhagen, Denmark
|
|
Back to top |
|
|
LiquidCode Moderator Team
Joined: 05 Dec 2000 Posts: 1751 Location: Space and Time
|
Posted: Fri May 06, 2016 1:35 pm Post subject: |
|
|
For some reason if I use @string(IsEmail) in a loop it doesn't work, so I made my own.
Code: |
#define function, IsEmail
#info - @isemail("chris@me.com")
#stop
:IsEmail
if @not(%1)
error 2
end
#Check for 2 . next to each other
if @greater(@pos("..",%1),0)
exit
end
#Check for and @ and more than 1 @
#and check to make sure there is a . after the @
%x = 1
%c = 0
repeat
%i = @substr(%1,%x,%x)
if @equal(%i,"@")
%c = @succ(%c)
%%_AtPos = %x
end
if @equal(%i,".")
%%_DotPos = %x
end
%x = @succ(%x)
until @equal(@pred(%x),@len(%1))
if @equal(%c,0)
exit
elsif @greater(%c,1)
exit
end
if @not(@greater(%%_DotPos,%%_AtPos))
exit
end
exit 1
|
_________________ Chris
Http://theblindhouse.com |
|
Back to top |
|
|
Rubes_sw Valued Contributor
Joined: 11 Jun 2001 Posts: 625 Location: Northern Ireland
|
Posted: Sun May 08, 2016 1:03 pm Post subject: |
|
|
You could expand this and turn it into a dsu and add:
some options:
using:
vdsdnsl.dll
[-] NSLOOKUP LOOKUP,<domain>
This command attempts to do a name server lookup on the domain you enter..
<domain name> - must be a valid domain name, will return an error number if the domain cannot be resolved.
[-] NSLOOKUP REVERSELOOKUP,<ip address>
@isemail("chris@me.com",isreal) - would then check the domain
There maybe other dll's that can add more to vds.. but thats one i can thinfk of to hand |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You can attach files in this forum You can download files in this forum
|
|