packet.r
db9e22f3cc1469007a463121dfe8e49c3cd486b031bef7f428907630e076070b
REBOL [
Title: "PacketStorm Updates"
Date: 17-May-1999
Author: "loser"
File: %packet.r
Email: flamingdog@yahoo.com
Purpose: {
Checks for Packetstorm New File updates by comparing checksums.
}
]
size: read http://packetstorm.securify.com/whatsnew20.html
size1: checksum size
used: exists? %old.html
if used == no [
print "First use. Please run again to check."
write %old.html size
]
size2: read %old.html
size3: checksum size2
either size3 == size1 [
print "PacketStorm has not been updated. Damn."
][
print "PacketStorm has been Updated. Go get some sploits."
write %old.html size
]