fork download
copy 
  1. use v5.10;
  2.  
  3. print"Username: ";chop($u=<>);$n=reverse$u;print"Password: ";$_=<>;
  4. say/^\pL.{7,11}$/*/\d/*/[A-Z]/*9>y/A-Z//&&y/a-z//<9*/[a-z]/*
  5. !/[" #,;->^&[|)]|$u|$n|(.).*\1.*\1|(.)\2.*(.)\3/?"OK.":"Nope."
  6.  
Success #stdin #stdout 0.02s 5652KB
comments (?)
stdin
copy 
JOE.smith
JOE!smith123
stdout
copy 
Username: Password: Nope.
https://ideone.com/QKFnZ
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!