upload updates

LICENSE.md

@@ -2,7 +2,7 @@ License
 ==============
 The MIT License (MIT)
 
-Copyright (c) 2016-2017 Heitor Gouvêa.
+Copyright (c) 2016-2018 Heitor Gouvêa.
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

README.md

@@ -9,6 +9,9 @@
     [+] GITHUB:       https://github.com/GouveaHeitor
     [+] TELEGRAM:     @GouveaHeitor
 ```
+##### Tricks
+
+
 
 ##### Bugs
 

check.pl

@@ -1,21 +1,29 @@
 #!/usr/bin/perl
 
 # Checkhosts by a domain list via ICMP connection
+# Use: ./check.pl targets.txt
+# Heitor Gouvêa - hi@heitorgouvea.me
 
 use 5.010;
 use strict;
 use warnings;
 use Net::Ping;
 
 sub main {
-  my $domain = $ARGV[0];
+  if ($ARGV[0]) {
+    open (my $targets, "<", $ARGV[0]);
 
-  if ($domain) {
-    my $checkHost = Net::Ping -> new();
+    while (my $target = <$targets>) {
+      chomp($target);
 
-    if ($checkHost -> ping ($domain)) {
-      print "$domain\n";
-    }  
+      my $checkHost = Net::Ping -> new();
+
+      if ($checkHost -> ping ($target)) {
+        print "$target\n";
+      }
+    }
+
+    close ($targets);
   }
 }
 

ip.pl

@@ -1,18 +1,26 @@
 #!/usr/bin/perl
 
 # Get IP by domain
+# Use: ./ip.pl targets.txt
+# Heitor Gouvêa - hi@heitorgouvea.me
 
 use 5.010;
 use strict;
 use warnings;
 use IO::Socket::INET;
 
 sub main {
-  my $domain = $ARGV[0];
+  if ($ARGV[0]) {
+    open (my $targets, "<", $ARGV[0]);
 
-  if ($domain) {
-    my $ipAddr = inet_ntoa (scalar gethostbyname($domain));
-    print "$ipAddr\n";
+    while (my $target = <$targets>) {
+      chomp ($target);
+
+      my $ipAddr = inet_ntoa (scalar gethostbyname($target));
+      print "$ipAddr\n";
+    }
+
+    close ($targets);
   }
 }
 

socket.pl

@@ -1,5 +1,10 @@
 #!/usr/bin/perl
 
+# A script to make socket connection
+# Use: ./socket.pl target.com:80
+# Heitor Gouvêa
+# hi@heitorgouvea.me
+
 use 5.010;
 use strict;
 use warnings;