Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -l
- $text = "2I7VjH)Q3RkPK*Sm3R!aY8!1P:5T6YL-`N4U5M,;xB#v1D%24U";
- $hahaha = <>;
- chop($hahaha);
- @hahaha = split //,$hahaha;
- for $i (0..length($text)-2){
- ($a,$b) = (substr($text,$i,1),substr($text,$i+1,1));
- if (ord($a) == (ord($b) ^ 97)){
- next if $a eq shift @hahaha;
- print "NOOO\n";
- exit;
- }
- }
- print "Congrats )\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement