[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
REPORT ON CYBER-TERRORISM
- To: [email protected]
- Subject: REPORT ON CYBER-TERRORISM
- From: Anonymous <[email protected]>
- Date: 18 Dec 1998 23:08:34 -0000
- Comments: This message did not originate from the Sender address above.It was remailed automatically by anonymizing remailer software.Please report problems or inappropriate use to theremailer administrator at <[email protected]>.
- Sender: [email protected]
A new report on national security, titled "CyberCrime, CyberTerrorism and
CyberWarfare," calls for a complete overhaul of U.S. national security
agencies and policies in order to avoid crippling sabotage of the nation's
and corporate America's information infrastructure. The report, which is
the product of the Center for Strategic and International Studies' Global
Organized Crime project headed up by former FBI and CIA director William
Webster, chronicles the results of a recent joint chief of staff exercise
code-named "Eligible Receiver." The exercise involved a group of security
experts, known as a "red team," that used software widely available from
cracker Web sites to demonstrate the capability to penetrate and disable
major portions of the U.S. electric power grid and deny computer systems to
the entire Pacific military command and control operation. The report
recommends the establishment of private sector-organized groups that would
evaluate and endorse information security standards in various industries,
coupled with increased government support for such efforts and the
development of a national security policy for the Information Revolution.
"The private sector cannot sit back and wait for government to lead," says
Sen. Charles Robb (D-Va.), a member of the Senate Select Committee on
Intelligence. (InternetWeek 16 Dec 98)
#!/usr/local/bin/perl -0777-- -export-a-crypto-system-sig -RC4-3-lines-PERL
@k=unpack('C*',pack('H*',shift));for(@t=@s=0..255){$y=($k[$_%@k]+$s[$x=$_
]+$y)%256;&S}$x=$y=0;for(unpack('C*',<>)){$x++;$y=($s[$x%=256]+$y)%256;
&S;print pack(C,$_^=$s[($s[$x]+$s[$y])%256])}sub S{@s[$x,$y]=@s[$y,$x]}