Trade FBI - First Info ::: Competitive Intelligence


	Call Now: (888) 324-8723 Contact Us Here

If your industry or sector falls in one of these HS Codes, TradeFBI USA can substantially improve how and with whom you do business.

Click HERE to View Harmonized System Codes

Contact Form

Headquarters
3000 NE 30th Place, Suite 403
Fort Lauderdale, FL 33306

Michigan Office:
21421 Hilltop Suite #11
Southfield, MI 48033

Toll-Free Phone: 888.324.8723
Local Phone: 954.644.5208
Fax: 954.756.8018
By email: info@tradefbiusa.com

* Your Name:

* Company Name:

* Industry:

Web Site Address:

Company Address:

Line 1:

Line 2:

City:

St./Prov.:

Zip:

Country:

* Phone / Extension:

*E-mail Address:

* Reason Contacting Us:

Comments or Questions:

Security Code
(Must be filled out to submit form)

#!/usr/bin/perl # Copyright 2008 DANNLIN Technologies, LLC ALL RIGHTS RESERVED use GD; my $dir = "."; ($Second,$Minute,$Hour,$DayOfMonth,$Month,$Year,$WeekDay,$DayOfYear,$IsDST)=localtime(time); $Year = substr($Year,1,2); $Year = "$Year"; $Month = $Month + 1; $Month = sprintf("%.2d",$Month); $DayOfMonth = sprintf("%.2d",$DayOfMonth); $Hour = sprintf("%.2d",$Hour); $Minute= sprintf("%.2d",$Minute); $Second= sprintf("%.2d",$Second); $i=int(rand(1000000))+1; $i=substr($i,0,6); $i=sprintf("%.6d",$i); $randomCode= $i; #print "Content-type:text/html\n\n"; # Remove captcha image files older than today $tday = "$Year" . "$Month" . "$DayOfMonth" ; opendir(DR,$dir); @files = readdir(DR); closedir(DR); foreach $file (@files) { $len=length($file); if ($len eq "22") { $fdate = substr($file,0,6); if ($fdate < $tday) { unlink($file); } } } $filename = "$dir/" . "$Year" . "$Month" . "$DayOfMonth" . "$Hour" . "$Minute" . "$Second" . "$randomCode" . ".png"; open (GR,">$filename"); print GR ""; close(GR); $im = new GD::Image(101,31); my $white = $im->colorAllocate(255,255,255); my $black = $im->colorAllocate(0, 0, 0); my $red = $im->colorAllocate(255, 200, 200); my $blue = $im->colorAllocate(200, 200, 255); my $green = $im->colorAllocate(200, 200, 0); my $purple = $im->colorAllocate(200, 200, 255); my $orange = $im->colorAllocate(255, 200, 0); # Force the background to transparent, white, and interlaced: $im->transparent($white); $im->interlaced('true'); # Place a border around the image: $im->rectangle(0, 0, 99, 30, $black); @colors=("$red","$green","$red","$blue","$white"); for ($i=0 ; $i < 20 ; $i++) { $j=int(rand(6)); $col = @colors[$j]; &streak($col); } $i=int(rand(10000))+1; $i=substr($i,0,4); $i=sprintf("%.4d",$i); $verifycode= $i; $im->string(gdGiantFont , 20, 5, $verifycode, $black); open (GR,">$filename"); binmode GR; print GR $im->png; close(GR); $fn = "$Year" . "$Month" . "$DayOfMonth" . "$Hour" . "$Minute" . "$Second" . "$randomCode" . ".png"; $encryptedKey = crypt($verifycode,$Second); $encryptedKey =~ tr/!@#$%^&*(),<.>?'";:[{]}|+=_~`/z/; $encryptedKey =~ tr/\//z/; $encryptedKey =~ tr/-/z/; print "Content-type:text/html\n\n"; print "

"; $tdayy = "$Year" . "$Month" . "$DayOfMonth" ; # Write verify code to secret file open(FL,">>$dir/verifycodes"); print FL "$tdayy|$encryptedKey|$verifycode|\n"; close(FL); exit; sub streak { $streakColor= $_[0]; $x1=int(rand(99))+1; $x1=substr($x1,0,2); $x1=sprintf("%.2d",$x1); $x2=int(rand(99))+1; $x2=substr($x2,0,2); $x2=sprintf("%.2d",$x2); $y1=int(rand(29))+1; $y1=substr($y1,0,2); $y1=sprintf("%.2d",$y1); $y2=int(rand(29))+1; $y2=substr($y2,0,2); $y2=sprintf("%.2d",$y2); $im->line($x1, $y1, $x2, $y2, $streakColor); } 1;

Insert code in box below

| More