Page Index Toggle Pages: 1 ... 4 5 [6]  Send TopicPrint
Very Hot Topic (More than 25 Replies) Stealth Email Addresses V1.0a SP1.3.x (Read 40131 times)
Kong
God Member
*****
Offline


Is it just me or is my
back hairy???

Posts: 858
Joined: Aug 2nd, 2002
Gender: Male
Re: Stealth Email Addresses V1.0a SP1.3.x
Reply #75 - Feb 11th, 2005 at 8:21pm
Print Post  
Okay, thanks.
  


Back to top
 
IP Logged
 
Kong
God Member
*****
Offline


Is it just me or is my
back hairy???

Posts: 858
Joined: Aug 2nd, 2002
Gender: Male
Re: Stealth Email Addresses V1.0a SP1.3.x
Reply #76 - Mar 30th, 2005 at 9:13pm
Print Post  
Ron, great mod.  I love it.

One small thing I'm hoping to get working with it and am hoping you could help.

Is there a way I can set it up so that the any email addresses on the site not generated by yabb can use the stealth email links just like in Yabb.  Did I explain that well?

Essentially, any webpages that have a clickable email link I would like them to do just like on the forums.  Problem is that every link generated the mail_id is different, even when it's for the same person.

Do you know what I am looking to do and how I might go about doing it?

Thanks in advance.
  


Back to top
 
IP Logged
 
Kong
God Member
*****
Offline


Is it just me or is my
back hairy???

Posts: 858
Joined: Aug 2nd, 2002
Gender: Male
Re: Stealth Email Addresses V1.0a SP1.3.x
Reply #77 - Apr 8th, 2005 at 9:10pm
Print Post  
  


Back to top
 
IP Logged
 
Valtiel
God Member
*****
Offline


Copy & paste coder

Posts: 873
Joined: Sep 5th, 2003
Gender: Male
Re: Stealth Email Addresses V1.0a SP1.3.x
Reply #78 - Apr 16th, 2009 at 9:12pm
Print Post  
Just figured out that this mod only works with mail addresses up to 33 chars. Any longer addresses aren't decrypted (or encrypted) correctly.

Any ideas how to change that?

Here the code from StealthMail.pl

Code
Select All
sub MailTo {
	if($username eq "Guest") { &fatal_error("$txt{'223'}"); }
	my $mailusername = $INFO{'user'};
	my $mailcrypted = $INFO{'mail_id'};
	$truemail = &descramble($mailcrypted,$mailusername);
	print "Content-Type: text/html\n\n";
	$refresh = qq~<html>\n<head>\n
	<script>
		var tik=0
		function timer() {
			  window.setTimeout("timer()", 2000)
			tik=tik+1
			if(tik==2){
				window.close()
			}
		}
	</script>
	</head>\n
	<body Onload = document.location="mailto:$truemail">\n
	<font face="Arial" size="2">$txt{'stealth'}</font>\n
	<script language="JavaScript1.2" type="text/javascript">\n
	timer();
	</script>
	</body></html>\n~;
	print $refresh;
}

sub scramble{
	my ($input) =$_[0];
	my ($user,$ascii,$key,$hex,$hexkey,$x);
	$key = substr($date,length($date)-2,2);
	$hexkey = uc(unpack("H2", pack("I", $key)));
	$x=0;
	for($n=0; $n < length $input ; $n++)    {
		$ascii = substr($input, $n, 1);
		$ascii = ord($ascii)+$key-$n;
		$hex = uc(unpack("H2", pack("I", $ascii)));
		$user .= $hex;
		$x++;
		if ($x > 32){$x = 0;}
	}
	$user .= $hexkey;
	return $user;
}

sub descramble{
	my ($input) =$_[0];
	my ($user,$ascii,$key,$dec,$hexkey,$x);
	$hexkey = substr($input,length($input)-2,2);
	$key = hex($hexkey);
	$x=0;
	for($n=0; $n < length($input)-2; $n++)    {
		$dec = substr($input, $n, 2);
		$ascii = hex($dec);
		$ascii = chr($ascii-$key+$x);
		$user .= $ascii;
		$n++;
		$x++;
		if ($x > 32){$x = 0;}
	}
	return $user;
}

1; 

  

Proud copy & paste coder Grin
Admin @ Silent Hill Forum
Back to top
WWW  
IP Logged
 
Valtiel
God Member
*****
Offline


Copy & paste coder

Posts: 873
Joined: Sep 5th, 2003
Gender: Male
Re: Stealth Email Addresses V1.0a SP1.3.x
Reply #79 - Apr 16th, 2009 at 9:26pm
Print Post  
Ok, I changed 2 lines to

Code
Select All
		if ($x > 39){$x = 0;} 



Seems to work now.
  

Proud copy & paste coder Grin
Admin @ Silent Hill Forum
Back to top
WWW  
IP Logged
 
Page Index Toggle Pages: 1 ... 4 5 [6] 
Send TopicPrint