Advertisement
dandepp

Untitled

Mar 31st, 2023
189
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.46 KB | None | 0 0
  1. sName           is string
  2. sNameLength     is int
  3. sDomain         is string
  4. sDomainLength   is int
  5. //check if has valid format
  6. emailComponents is array of strings = StringSplit(email,"@")
  7. IF emailComponents.Count() = 2 THEN
  8.     sName       = emailComponents[1]
  9.     sNameLength = Length(sName)
  10.    
  11.     IF sNameLength > 64 THEN RETURN False
  12.     sDomain         = emailComponents[2]
  13.     sDomainLength   = Length(sDomain)
  14.     IF sDomainLength > 255 THEN RETURN False
  15.    
  16.     FOR i = 1 _TO_ sNameLength
  17.        
  18.     END
  19. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement