IronMagLabs Osta Rx


Help Getting Revenge

Page 1 of 2 12 LastLast
Results 1 to 30 of 31
  1. #1
    Registered User

    Join Date
    Feb 2006
    Posts
    3,410
    Rep Points
    1182544

    Help Getting Revenge

    Some SOB Keeps Posting My Email On Sites, But I Have His ISP Number, Is There Anything I Can Do With It?

  2. #2
    Elite Kiki
    ELITE MEMBER

    BigDyl's Avatar

    Join Date
    Jun 2004
    Location
    Securityland
    Posts
    15,750
    Rep Points
    9693948

    IP# (Address) you mean... unless you mean his ISP's phone#....


    depends on if it's static or dynamically assigned...


    Doing something to him like that would be illegal, so asking in a public forum is retarded, but there are things you can do like dos (drdos)
    Quote Originally Posted by kbm8795 View Post
    Oh, I think Americans understand that the one thing conservatives hate the most is the idea of spending American tax money on Americans. . .in America.


    Your tax money is safe. . .in Iraq.
    Total ownage.

  3. #3
    Thats Dr. Keke to you!
    ELITE MEMBER

    KelJu's Avatar

    Join Date
    Jul 2005
    Location
    In my imagination.
    Posts
    13,701
    Rep Points
    433373438


    ISP Number? Do you mean IP Number?
    “I used to do drugs. I still do drugs. But I used to, too.”

  4. #4
    Registered User

    Join Date
    Feb 2006
    Posts
    3,410
    Rep Points
    1182544

    oh sorry its IP Adress

  5. #5
    Registered User

    Join Date
    Feb 2006
    Posts
    3,410
    Rep Points
    1182544

    Quote Originally Posted by BigDyl View Post
    IP# (Address) you mean... unless you mean his ISP's phone#....


    depends on if it's static or dynamically assigned...


    Doing something to him like that would be illegal, so asking in a public forum is retarded, but there are things you can do like dos (drdos)
    but that bastard is subscribing with my email on all types of sites, isn't that illegal?

  6. #6
    Metrosexual
    ELITE MEMBER

    DOMS's Avatar

    Join Date
    Jul 2004
    Location
    In a van, down by the river...
    Posts
    28,874
    Rep Points
    922623595


    Quote Originally Posted by mike456 View Post
    oh sorry its IP Adress
    Post it.
    So many cries of inequality stem from one of group
    of people doing little or nothing and then bitching
    about another group that actually does something
    to improve their lives.

  7. #7
    Elite Kiki
    ELITE MEMBER

    BigDyl's Avatar

    Join Date
    Jun 2004
    Location
    Securityland
    Posts
    15,750
    Rep Points
    9693948

    Quote Originally Posted by mike456 View Post
    but that bastard is subscribing with my email on all types of sites, isn't that illegal?
    no
    Quote Originally Posted by kbm8795 View Post
    Oh, I think Americans understand that the one thing conservatives hate the most is the idea of spending American tax money on Americans. . .in America.


    Your tax money is safe. . .in Iraq.
    Total ownage.

  8. #8
    Registered User

    Join Date
    Feb 2006
    Posts
    3,410
    Rep Points
    1182544

    68.226.204.154

    have fun

  9. #9
    Registered User

    Join Date
    Feb 2006
    Posts
    3,410
    Rep Points
    1182544

    one of the sites that he signed up with my email had that as IP Adress received, so I am guessing that his IP adress, right?

  10. #10
    Registered User

    Join Date
    Feb 2006
    Posts
    3,410
    Rep Points
    1182544

    will he be able to get any viruses or anything bad on my computer just by having my email?

  11. #11
    Metrosexual
    ELITE MEMBER

    DOMS's Avatar

    Join Date
    Jul 2004
    Location
    In a van, down by the river...
    Posts
    28,874
    Rep Points
    922623595


    Quote Originally Posted by mike456 View Post
    68.226.204.154

    have fun

    All I can figure out is that he has broadband through Cox cable.
    So many cries of inequality stem from one of group
    of people doing little or nothing and then bitching
    about another group that actually does something
    to improve their lives.

  12. #12
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    umm you guys who's ip is this?



    mkei ; died you gets thjis from his email send hearder? or did you just grab it from some .txt file? let me know and i will help you!!


    <---b0rd

  13. #13
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    Quote Originally Posted by DOMS View Post
    All I can figure out is that he has broadband through Cox cable.
    hope you did that with a online website and not your own box because he can trace it back to your ip and get you busted...

  14. #14
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    Quote Originally Posted by DOMS View Post
    All I can figure out is that he has broadband through Cox cable.
    do you know if he uses any programs that are common? like kazzaa? or something ... or like his email sender thing ... ? was it a online proxy thing or an application?

  15. #15
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    CMD -> netstat -r and check for any unknown connections or find opPorts.exe (search google) and check for any malicous connections

  16. #16
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    check out some other programs like subseven and then read up on port sniffing and stuff like that

  17. #17
    Registered User

    Join Date
    Feb 2006
    Posts
    3,410
    Rep Points
    1182544

    Quote Originally Posted by ge3k0 View Post
    umm you guys who's ip is this?



    mkei ; died you gets thjis from his email send hearder? or did you just grab it from some .txt file? let me know and i will help you!!


    <---b0rd
    he(some bastard) is subscribing in sites with my email, the site contacted me for confirmation, and it says received ip adress, so Im guessing it his his, right?

  18. #18
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    snort.exe / ethereal.exe (don't know what they changed the name of etherreal to so eh>)


    also check some other stuff on your computer
    if you are really leet


    xml all your tags into a database the size of jesuse and then charge all the in / out puts to a random generator file and then charge rent.... with mem crap



    *cough* i mean umm learn some vb and programm your own deterant firewall


    download linux or free bsd ... or something like open wall


    and check your firewall stuff with online port scan sygate is good...


    get a cisco customized router and then hack it with some open iso file


    ahhahaha

  19. #19

  20. #20
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    oh yeah and if you live in the ghetto...


    www.vatoquest.com

    //to search for those gang voilent parts that are at war and stuff .... hahahaha


    vatoquest....hahahaha

  21. #21
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10


  22. #22
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    www.php.com

    www.python.com

    www.ruby.com

    www.suse.com

    www.ssh.com

    ssh2 md5 collision attacks /..


    sniffing http encrypted sessions

    hax0ring with 802.11 b /g network cards

    www.airopeek.com

  23. #23
    Registered User

    Join Date
    May 2005
    Posts
    12,543
    Rep Points
    2852450

    Quote Originally Posted by mike456 View Post
    but that bastard is subscribing with my email on all types of sites, isn't that illegal?
    Change your E-mail address....
    I highly recommend all IronMagLabs supplements!
    www.ironmaglabs.com

  24. #24
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    Quote Originally Posted by mike456 View Post
    he(some bastard) is subscribing in sites with my email, the site contacted me for confirmation, and it says received ip adress, so Im guessing it his his, right?
    yup just

    goto www.nmap.com and download some version and mess around with it

    also, hping is tight for getting your shit together with all the hardcore stuff


    www.mixter.void.ru is tight for learning about that stuff...



    if you are searching or scanning someone elses port with your box then it can trace back to your ip and do the same thing to you so either have a leet system (which im guessing you don't) so just goto google and search port scan

  25. #25
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    Quote Originally Posted by ge3k0 View Post
    yup just

    goto www.nmap.com and download some version and mess around with it

    also, hping is tight for getting your shit together with all the hardcore stuff


    www.mixter.void.ru is tight for learning about that stuff...



    if you are searching or scanning someone elses port with your box then it can trace back to your ip and do the same thing to you so either have a leet system (which im guessing you don't) so just goto google and search port scan

    there are other leet programs out there that do the work for you and give you an exploit + other crap..


    if you find something open like a

    web server or something then you can just look for an old exploit on metasploit or you can just try to get some zero day from like that french site or zone-h forums it's really easy


    on zone-h.org forums my handle is ge3k0 or ge3k (mainly ge3k0) but you can message me whenever you want to learn more !

    i'm a computer sci. major so i'm super uber leeet


    have fun


    one hot topic now a days is using vmware as a maxtrix system within your os substandard as a triad effect ... but many people think that this is just a hoax because time constraints on sub system stuff and the junk like that ..

    blue pill is what some russian girl or something said it was .. she''s on one of those links i gave you

  26. #26
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    Quote Originally Posted by ForemanRules View Post
    Change your E-mail address....
    or you could do that.. there should be somewhere also that you can subscribe to that just lets you inform the webmaster of what's going on. and he will ban your email address... let someone know btw


  27. #27
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    or you can do this?
    -----------------------------http://www.jwz.org/hacks/mork.pl----------
    #!/usr/bin/perl -w
    # Copyright © 2004 Jamie Zawinski <jwz@jwz.org>
    #
    # Permission to use, copy, modify, distribute, and sell this software and its
    # documentation for any purpose is hereby granted without fee, provided that
    # the above copyright notice appear in all copies and that both that
    # copyright notice and this permission notice appear in supporting
    # documentation. No representations are made about the suitability of this
    # software for any purpose. It is provided "as is" without express or
    # implied warranty.
    #
    # Created: 3-Mar-2004 by Jamie Zawinski, Anonymous, and Jacob Post.
    #
    ################################################## ############################
    #
    # This is a program that can read the Mozilla URL history file --
    # normally $HOME/.mozilla/default/*.slt/history.dat -- and prints out
    # a list of URLs and their time of last access. With no arguments,
    # it prints lines like
    #
    # 1078333826 1 http://www.jwz.org/hacks/
    #
    # where the first number is a ctime (number of seconds since Jan 1 1970 GMT)
    # and the second number is how many times this URL was visited. The URLs are
    # printed most-recent-first.
    #
    # With -vv, it prints all the information known about each URL,
    # including time of first visit, last visit, document title, etc.
    #
    # With --html, it produces HTML output instead of plain text.
    #
    # With "--age 2H", it limits itself to URLs that were loaded within the
    # last two hours. Likewise with "sec", "min", "day", "month", etc.
    #
    ################################################## ############################
    #
    # And Now, The Ugly Truth Laid Bare:
    #
    # In Netscape Navigator 1.0 through 4.0, the history.db file was just a
    # Berkeley DBM file. You could trivially bind to it from Perl, and
    # pull out the URLs and last-access time. In Mozilla, this has been
    # replaced with a "Mork" database for which no tools exist.
    #
    # Let me make it clear that McCusker is a complete barking lunatic.
    # This is just about the stupidest file format I've ever seen.
    #
    # http://www.mozilla.org/mailnews/arch/mork/primer.txt
    # http://jwz.livejournal.com/312657.html
    # http://www.jwz.org/doc/mailsum.html
    # http://bugzilla.mozilla.org/show_bug.cgi?id=241438
    #
    # In brief, let's count its sins:
    #
    # - Two different numerical namespaces that overlap.
    #
    # - It can't decide what kind of character-quoting syntax to use:
    # Backslash? Hex encoding with dollar-sign?
    #
    # - C++ line comments are allowed sometimes, but sometimes // is just
    # a pair of characters in a URL.
    #
    # - It goes to all this serious compression effort (two different
    # string-interning hash tables) and then writes out Unicode strings
    # without using UTF-8: writes out the unpacked wchar_t characters!
    #
    # - Worse, it hex-encodes each wchar_t with a 3-byte encoding,
    # meaning the file size will be 3x or 6x (depending on whether
    # whchar_t is 2 bytes or 4 bytes.)
    #
    # - It masquerades as a "textual" file format when in fact it's just
    # another binary-blob file, except that it represents all its magic
    # numbers in ASCII. It's not human-readable, it's not hand-editable,
    # so the only benefit there is to the fact that it uses short lines
    # and doesn't use binary characters is that it makes the file bigger.
    # Oh wait, my mistake, that isn't actually a benefit at all.
    #
    # Pure comedy.
    #
    ################################################## ############################


    require 5;
    use diagnostics;
    use strict;
    use POSIX qw(strftime);

    my $progname = $0; $progname =~ s@.*/@@g;
    my $version = q{ $Revision: 1.14 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;

    my $verbose = 0;
    my $show_all_p = 1;

    my (%key_table, %val_table, %row_hash);
    my ($total, $skipped) = (0, 0);

    # Returns a list of hashes, the contents of the mork file.
    #
    sub mork_parse_file {
    my ($file, $age) = @_;
    local $/ = undef;
    local *IN;

    my $since = ($age ? time() - $age : 0);

    ################################################## ########################
    # Define the messy regexen up here
    ################################################## ########################

    my $top_level_comment = qr@//.*\n@;

    my $key_table_re = qr/ < \s* < # "< <"
    \( a=c \) > # "(a=c)>"
    (?> ([^>]*) ) > \s* # Grab anything that's not ">"
    /sx;

    my $value_table_re = qr/ < ( .*?\) )> \s* /sx;

    my $table_re = qr/ \{ -? # "{" or "{-"
    [\da-f]+ : # hex, ":"
    (?> .*?\{ ) # Eat up to a {...
    ((?> .*?\} ) # and then the closing }...
    (?> .*?\} )) # Finally, grab the table section
    \s* /six;

    my $row_re = qr/ ( (?> \[ [^]]* \] # "["..."]"
    \s*)+ ) # Perhaps repeated many times
    /sx;

    my $section_begin_re = qr/ \@\$\$\{ # "@$${"
    ([\dA-F]+) # hex
    \{\@ \s* # "{@"
    /six;

    my $section_end_re = undef;
    my $section = "top level";

    ################################################## ########################
    # Read in the file.
    ################################################## ########################
    open (IN, "<$file") || error ("$file: $!");
    print STDERR "$progname: reading $file...\n" if ($verbose);

    my $body = <IN>;
    close IN;

    $body =~ s/\r\n/\n/gs; # Windows Mozilla uses \r\n
    $body =~ s/\r/\n/gs; # Presumably Mac Mozilla is similarly dumb

    $body =~ s/\\\\/\$5C/gs; # Sometimes backslash is quoted with a
    # backslash; convert to hex.
    $body =~ s/\\\)/\$29/gs; # close-paren is quoted with a backslash;
    # convert to hex.
    $body =~ s/\\\n//gs; # backslash at end of line is continuation.

    ################################################## ########################
    # Figure out what we're looking at, and parse it.
    ################################################## ########################

    print STDERR "$progname: $file: parsing...\n" if ($verbose);

    pos($body) = 0;
    my $length = length($body);

    while( pos($body) < $length ) {

    # Key table

    if ( $body =~ m/\G$key_table_re/gc ) {
    mork_parse_key_table($file, $section, $1);

    # Values
    } elsif ( $body =~ m/\G$value_table_re/gco ) {
    mork_parse_value_table($file, $section, $1);

    # Table
    } elsif ( $body =~ m/\G$table_re/gco ) {
    mork_parse_table($file, $section, $age, $since, $1);

    # Rows (-> table)
    } elsif ( $body =~ m/\G$row_re/gco ) {
    mork_parse_table($file, $section, $age, $since, $1);

    # Section begin
    } elsif ( $body =~ m/\G$section_begin_re/gco ) {
    $section = $1;
    $section_end_re = qr/\@\$\$\}$section\}\@\s*/s;

    # Section end
    } elsif ( $section_end_re && $body =~ m/\G$section_end_re/gc ) {
    $section_end_re = undef;
    $section = "top level";

    # Comment
    } elsif ( $body =~ m/\G$top_level_comment/gco ) {
    #no-op

    } else {
    # $body =~ m/\G (.{0,300}) /gcsx; print "<$1>\n";
    error("$file: $section: Cannot parse");
    }
    }

    if($section_end_re) {
    error("$file: Unterminated section $section");
    }


    print STDERR "$progname: $file: sorting...\n" if ($verbose);

    my @entries = sort { $b->{LastVisitDate} <=>
    $a->{LastVisitDate} } values(%row_hash);

    print STDERR "$progname: $file: done! ($total total, $skipped skipped)\n"
    if ($verbose);

    (%key_table, %val_table, %row_hash, $total, $skipped) = ();

    return \@entries;
    }


    ################################################## ########################
    # parse a row and column table
    ################################################## ########################

    sub mork_parse_table {
    my($file, $section, $age, $since, $table_part) = (@_);

    print STDERR "\n" if ($verbose > 3);

    # Assumption: no relevant spaces in values in this section
    $table_part =~ s/\s+//g;

    # print $table_part; #exit(0);

    #Grab each complete [...] block
    while( $table_part =~ m/\G [^[]* \[ # find a "["
    ( [^]]+ ) \] # capture up to "]"
    /gcx ) {
    $_ = $1;

    my %hash;
    my ($id, @cells) = split (m/[()]+/s);

    next unless scalar(@cells);

    # Trim junk
    $id =~ s/^-//;
    $id =~ s/:.*//;

    if($row_hash{$id}) {
    %hash = ( %{$row_hash{$id}} );
    } else {
    %hash = ( 'ID' => $id,
    'LastVisitDate' => 0 );
    }

    foreach (@cells) {
    next unless $_;

    my ($keyi, $which, $vali) =
    m/^\^ ([-\dA-F]+)
    ([\^=])
    (.*)
    $/xi;

    error ("$file: unparsable cell: $_\n") unless defined ($vali);

    # If the key isn't in the key table, ignore it
    #
    my $key = $key_table{$keyi};
    next unless defined($key);

    my $val = ($which eq '='
    ? $vali
    : $val_table{$vali});

    if ($key eq 'LastVisitDate' || $key eq 'FirstVisitDate') {
    $val = int ($val / 1000000); # we don't need milliseconds, dude.
    }

    $hash{$key} = $val;
    #print "$id: $key -> $val\n";
    }


    if ($age && ($hash{LastVisitDate} || $since) < $since) {
    print STDERR "$progname: $file: skipping old: " .
    "$hash{LastVisitDate} $hash{URL}\n"
    if ($verbose > 3);
    $skipped++;
    next;
    }

    $total++;
    $row_hash{$id} = \%hash;
    }
    }


    ################################################## ########################
    # parse a values table
    ################################################## ########################

    sub mork_parse_value_table {
    my($file, $section, $val_part) = (@_);

    return unless $val_part;

    my @pairs = split (m/\(([^\)]+)\)/, $val_part);
    $val_part = undef;

    print STDERR "\n" if ($verbose > 3);

    foreach (@pairs) {
    next unless (m/[^\s]/s);
    my ($key, $val) = m/([\dA-F]*)[\t\n ]*=[\t\n ]*(.*)/i;

    if (! defined ($val)) {
    print STDERR "$progname: $file: $section: unparsable val: $_\n";
    next;
    }

    # Assume that URLs and LastVisited are never hexilated; so
    # don't bother unhexilating if we won't be using Name, etc.
    if($show_all_p && $val =~ m/\$/) {
    # Approximate wchar_t -> ASCII and remove NULs
    $val =~ s/\$00//g; # faster if we remove these first
    $val =~ s/\$([\dA-F]{2})/chr(hex($1))/ge;
    }

    $val_table{$key} = $val;
    print STDERR "$progname: $file: $section: val $key = \"$val\"\n"
    if ($verbose > 3);
    }
    }


    ################################################## ########################
    # parse a key table
    ################################################## ########################

    sub mork_parse_key_table {
    my ($file, $section, $key_table) = (@_);

    print STDERR "\n" if ($verbose > 3);
    $key_table =~ s@\s+//.*$@@gm;

    my @pairs = split (m/\(([^\)]+)\)/s, $key_table);
    $key_table = undef;

    foreach (@pairs) {
    next unless (m/[^\s]/s);
    my ($key, $val) = m/([\dA-F]+)\s*=\s*(.*)/i;
    error ("$file: $section: unparsable key: $_") unless defined ($val);

    # If we're only emitting URLs and dates, don't even bother
    # saving the other fields that we aren't interested in.
    #
    next if (!$show_all_p &&
    $val ne 'URL' && $val ne 'LastVisitDate' &&
    $val ne 'VisitCount');

    $key_table{$key} = $val;
    print STDERR "$progname: $file: $section: key $key = \"$val\"\n"
    if ($verbose > 3);
    }
    }


    sub html_quote {
    my ($s) = @_;
    $s =~ s/&/&amp;/g;
    $s =~ s/</&lt;/g;
    $s =~ s/>/&gt;/g;
    $s =~ s/\"/&quot;/g;
    return $s;
    }

    sub html_wrap {
    my ($s) = @_;
    $s = html_quote ($s);

    # while there are non-wrappable chunks of 30 characters,
    # insert wrap points at certain punctuation characters every 10 characters.
    while ($s =~ m/[^\s]{30}/s) {
    last unless ($s =~ s@([^\s]{10})([/;,])([^/\s])@$1$2 $3@gs ||
    $s =~ s@([^\s]{10})([-_\$\#?.]|&amp;|%(2F|2C|26))@$1 $2@gs);
    }

    # if we still have non-wrappable chunks of 40 characters,
    # insert wrap points every 30 characters no matter what.
    while ($s =~ m/[^\s]{40}/s) {
    last unless ($s =~ s@([^\s]{30})@$1 @gs);
    }

    return $s;
    }

    sub format_urls {
    my ($results, $html_p) = @_;

    print "<TABLE BORDER=0 CELLPADDING=" . ($show_all_p ? "4" : "0") .
    " CELLSPACING=0>\n"
    if ($html_p);

    foreach my $hash (@$results) {

    if ($show_all_p) {
    #
    # Print every field in the hash.
    #

    if ($html_p) {
    print " <TR>\n";
    print " <TD NOWRAP ALIGN=RIGHT VALIGN=TOP>$hash->{ID}&nbsp;</TD>\n";
    print " <TD NOWRAP>\n";
    print " <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n";
    }

    my %key_sort_table = (
    'ID' => ' 0 ',
    'URL' => ' 1 ',
    'Name' => ' 2 ',
    'Hostname' => ' 3 ',
    'FirstVisitDate' => ' 4 ',
    'LastVisitDate' => ' 5 '
    );

    foreach my $key (sort { ($key_sort_table{$a} || $a) cmp
    ($key_sort_table{$b} || $b)
    } (keys(%$hash))) {
    my $val = $hash->{$key};
    if ($key eq 'LastVisitDate' || $key eq 'FirstVisitDate') {
    $val = localtime ($val);
    }
    if ($html_p) {
    next if ($key eq 'ID');
    $key = html_quote ($key);
    $val = ($key eq 'URL'
    ? "<A HREF=\"$val\">" . html_wrap ($val) . "</A>"
    : html_wrap ($val));
    print " <TR>\n";
    print " <TD VALIGN=TOP NOWRAP ALIGN=RIGHT>$key: &nbsp;</TD>\n";
    print " <TD VALIGN=TOP>$val</TD>\n";
    print " </TR>\n";
    } else {
    print sprintf ("%14s = %s\n", $key, $val);
    }
    }

    if ($html_p) {
    print " </TABLE>\n";
    print " </TD>\n";
    print " </TR>\n";
    }
    print "\n";

    } else {
    #
    # Print just the URLs and their last-load-times.
    #
    my $url = $hash->{'URL'};
    my $date = $hash->{'LastVisitDate'} || 0;
    my $count = $hash->{'VisitCount'} || 1;
    next unless defined ($url);

    if ($html_p) {
    $date = strftime("%d %b %l:%M %p", localtime ($date));
    my $u2 = html_wrap ($url);
    print " <TR>";
    print "<TD VALIGN=TOP ALIGN=RIGHT NOWRAP>";
    print "($count) " if ($count > 1);
    print "$date &nbsp;</TD>";
    print "<TD VALIGN=TOP><A HREF=\"$url\">$u2</A></TD>";
    print "</TR>\n";
    } else {
    print "$date\t$count\t$url\n";
    }
    }
    }

    print "</TABLE>\n" if ($html_p);
    }


    sub error {
    ($_) = @_;
    print STDERR "$progname: $_\n";
    exit 1;
    }

    sub usage {
    print STDERR "usage: $progname [--verbose] [--html] [--age secs] " .
    "mork-input-file\n" .
    "\t'age' can be of the form '2h', '3d', etc.\n";
    exit 1;
    }

    sub main {
    my ($file, $age, $html_p);
    while ($#ARGV >= 0) {
    $_ = shift @ARGV;
    if ($_ eq "--verbose") { $verbose++; }
    elsif (m/^-v+$/) { $verbose += length($_)-1; }
    elsif ($_ eq "--age") { $age = shift @ARGV; }
    elsif ($_ eq "--html") { $html_p = 1; }
    elsif (m/^-./) { usage; }
    elsif (!defined($file)) { $file = $_; }
    else { usage; }
    }

    usage() unless defined($file);

    $show_all_p = ($verbose > 1);

    if (!$age) {
    } elsif ($age =~ m/^(\d+)\s*s(ec(onds?)?)?$/i) {
    $age = $1 + 0;
    } elsif ($age =~ m/^(\d+)\s*m(in(utes?)?)?$/i) {
    $age = $1 * 60;
    } elsif ($age =~ m/^(\d+)\s*h(ours?)?$/i) {
    $age = $1 * 60 * 60;
    } elsif ($age =~ m/^(\d+)\s*d(ays?)?$/i) {
    $age = $1 * 60 * 60 * 24;
    } elsif ($age =~ m/^(\d+)\s*w(eeks?)?$/i) {
    $age = $1 * 60 * 60 * 24 * 7;
    } elsif ($age =~ m/^(\d+)\s*m(on(ths?)?)?$/i) {
    $age = $1 * 60 * 60 * 24 * 30;
    } elsif ($age =~ m/^(\d+)\s*y(ears?)?$/i) {
    $age = $1 * 60 * 60 * 24 * 365;
    } else {
    error ("unparsable: --age $age");
    }

    my $results = mork_parse_file ($file, $age);
    format_urls ($results, $html_p);
    }

    main;
    exit 0;

  28. #28
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    skkeet skeet skket

  29. #29
    bend over to the front...

    ge3k0's Avatar

    Join Date
    Jun 2006
    Location
    ca
    Posts
    358
    Rep Points
    10

    anyone got the new issue of playboy yet?

  30. #30
    Senior Member

    Join Date
    Sep 2004
    Location
    baja calif, Mexico
    Posts
    6,933
    Rep Points
    10

    Change your email addy.

Page 1 of 2 12 LastLast

Similar Threads

  1. Whats the best revenge you've ever had?
    By RasPlasch in forum Open Chat
    Replies: 21
    Last Post: 09-27-2008, 01:26 AM
  2. Revenge nut shot
    By MeatZatk in forum Open Chat
    Replies: 2
    Last Post: 02-18-2007, 02:49 PM
  3. The kiki's will have their revenge...
    By BigDyl in forum Open Chat
    Replies: 13
    Last Post: 02-01-2007, 08:47 PM
  4. Revenge SDX
    By cg18862 in forum Supplements
    Replies: 5
    Last Post: 01-26-2006, 07:05 AM
  5. Revenge on a CD?
    By TheGreatSatan in forum Open Chat
    Replies: 2
    Last Post: 09-29-2003, 06:49 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


DISCLAIMER:
All health, fitness, diet, nutrition & supplement information presented on IronMagazineForums.com's pages is intended as an educational resource and is not intended as a substitute for proper medical advice. We do not condone the use of anabolic steroids (AAS), all information about AAS is for educational and entertainment purposes only. Consult your physician or health care professional before performing any of the exercises, or following any diet, nutrition or supplement advice described on this website. As well as any exercise technique or regimen, diet, supplement, etc., particularly if you are pregnant or nursing, or if you are elderly or have chronic or recurring medical conditions. Discontinue any exercise that causes you pain or severe discomfort and consult a medical expert. The statements made about products have not been evaluated by the Food and Drug Administration (U.S.). They are not intended to diagnose, treat, cure or prevent any condition or disease. Please consult with your own physician or health care practitioner regarding the suggestions and recommendations made at IronMagazineForums.com. Neither the author of the information, nor the producer, nor distributors of such information make any warranty of any kind in regard to the content of the information presented on this website. Except as specifically stated on this site, neither IronMagazineForums.com, nor any of its authors or other representatives will be liable for damages arising out of, or in connection with the use of this site. This is a comprehensive limitation of liability that applies to all damages of any kind, including (without limitation) compensatory, direct, indirect or consequential damages, loss of data, income or profit, loss of or damage to property and claims of third parties. Sponsors pay for advertising space, we have no affiliation with the companies that have banners displayed on our websites. Please be advised it is your responsibility to check the laws that govern your country, state, or province in regards to items offered by some companies you may read about on this site.