ataka3s

Errore licenza free vhdl

Jul 31st, 2013
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.50 KB | None | 0 0
  1. Sorry! Failed to download the Free license file.
  2.  
  3. If you suspect a networking problem, please try again later. Or, email your license request to mailto:license@symphonyeda.com?subject=Free-license with the subject "Free-license"
  4.  
  5. Please copy and paste the following information into the email message.
  6. licversion = 1.2
  7. prodversion = 3.1, Build# 16
  8. lictype = Free
  9. hostid = 647002203e2a
  10. ostype = Windows
  11. os = Windows NT
  12. osversion = 6.2
  13. machine = intel
  14. This will help us identify/fix problems with online license requests.
  15.  
  16. http://www.mediafire.com/download/qmt35l1tq965vja/App.exe
  17. #!/usr/local/perl588/bin/perl
  18.  
  19. require LWP;
  20. alarm(600);
  21. use CGI;
  22. use LWP::UserAgent;
  23. $in = new CGI;
  24.  
  25. print($in->header);
  26. print <<"HTML"
  27. <html>
  28. <body>
  29. <pre>
  30. HTML
  31. ;
  32.  
  33. $ua = LWP::UserAgent->new;
  34. my $req = HTTP::Request->new(POST => 'http://lic.haneefweb.net:8001/cgi-bin/licserv.pl') ;
  35. $req->content_type('application/x-www-form-urlencoded') ;
  36.  
  37. my $content = "" ;
  38. my $v = "" ;
  39. my @names = $in->param ;
  40.  
  41. foreach $p (@names) {
  42. $v = $in->param($p) ;
  43. if ( length $content ) {
  44. $content = "$content&$p=$v" ;
  45. } else {
  46. $content = "$p=$v" ;
  47. }
  48. }
  49.  
  50. if (length $content) {
  51. $req->content("$content") ;
  52. }
  53.  
  54. my $res = $ua->request($req) ;
  55. my $retstr = $res->as_string;
  56.  
  57. if ( $retstr =~ ?.*\<pre\>(.*)\</pre\>.*?s ) {
  58. $retstr = $1 ;
  59. }
  60.  
  61. print($retstr) ;
  62.  
  63. print <<"HTML"
  64. </pre>
  65. </body>
Add Comment
Please, Sign In to add comment