CIDR - InterDomain Classless Routing

CIDR - InterDomain Classless Routing. CIDR ditemukan beberapa tahun lalu untuk menjaga internet dari kehabisan alamat IP. The "classful" sistem mengalokasikan alamat IP dapat sangat boros; siapa saja yang cukup bisa menunjukkan kebutuhan selama lebih dari 254 alamat host diberi Kelas B blok alamat dari 65533 alamat host. Bahkan lebih boros adalah perusahaan dan organisasi yang dialokasikan blok alamat Kelas A, yang berisi lebih dari 16 juta alamat host! Hanya sebagian kecil dari Class A dialokasikan dan Kelas B ruang alamat yang pernah benar-benar ditugaskan ke komputer host di Internet. 

A TCP Proxy in Perl

http://www.catonmat.net/download/tcp-proxy2.pl

---------------------------------------------------------

by peteris krumins http://catonmat.net/about/

my friend from plurk.

use warnings;

use strict;

use IO::Socket::INET;

use IO::Select;

my @allowed_ips = ('all', '10.10.10.5');

my $ioset = IO::Select->new; my %socket_map;

my $debug = 1;

sub new_conn

{ my ($host, $port) = @_;

return IO::Socket::INET->new(

PeerAddr => $host,

PeerPort => $port

) || die "Unable to connect to $host:$port: $!"; }

Linked List

sedikit berbagi salah satu contoh source code linked list untuk bahasa pemrograman pascal..
selamat mencoba..



uses Crt;

type pointer = ^Tlist;

TList = record

data : integer;

next : pointer;

end;

var a,nilai:integer;

procedure depan(var p:pointer; x:integer);

var q : pointer;

begin

new(q);

q^.data:=x;

q^.next:=p;

p:=q;

end;

Quick Short

ni salah satu contoh Quick Short dalam Pemrograman PASCAL

-------------------------------------------------------------------------

uses crt;

type rek=record

     nim:integer;

     nama,asal_pt:string;

     ipk:real;

end;

larik=array[1..10] of rek;

var data:larik;

n,i:word;

lagi:char;