Вырезки яваскриптов шифраторов\редиректов и т.д.

Информация частично самописная. Здесь вы встретите не только яваскрипты. Если хотите пополнить коллекцию - пишите, аська 783824.

Скрипт фильтрации поискового трафа

<script>
var ref; var i; var is_se;
var se = new Array('google','msn','yahoo','yandex','rambler','aport','mail','km.ru','meta','all.by', 'tut.by','online.ua','nigma');
if(document.referrer)ref=document.referrer;
else ref="";
for(i=0;i<13;i++)
{if(ref.indexOf(se[i])>=0){здесь_пишем_куда_слать_поисковый_траф;}}
if(is_se==0){location.replace("урл для слива левого трафа");}
</script>

Простой шифратор(бесполезно для практики, но посмотреть стоит)

<center><form name=conv_form>
<textarea name=src_text cols=80 rows=10 wrap=virtual></textarea><br>
<input type=button onclick="Paste();" value="вставить из буфера &uarr;">
<input type=button onclick="Code();return 0;" value="зашифровать &darr;">
<input type=button onclick="Copy();" value="копировать &darr;">
<input type=button onclick="ClearForm();return 0;" value="очистить &darr;&uarr;"><br>
<textarea name=dest_text cols=80 rows=10 wrap=virtual></textarea></form></center>

<script LANGUAGE="JavaScript">
function ClearForm()
{
document.conv_form.dest_text.value="";
document.conv_form.src_text.value="";
document.conv_form.src_text.focus();
}
function Paste() //вставка в форму из буфера
{
document.conv_form.src_text.createTextRange().execCommand("Paste");
document.conv_form.src_text.focus();
}
function Copy() //копирование из формы
{
document.conv_form.dest_text.createTextRange().execCommand("Copy");
document.conv_form.dest_text.focus();
}

function Code()
{
var temp="",i,l,c=0,out="";
var str=document.conv_form.src_text.value;
l=0;
if(str=="")return;
while(l<=str.length-1)
{
out=out+str.charCodeAt(l)+'!';
l++;
}
document.conv_form.dest_text.value= "<script>var temp=\"\",i,c=0,out=\"\"; var str=\""+out+"\";l=str.length;while(c<=str.length-1){while(str.charAt(c)!=\'!\')temp=temp+str.charAt(c++);c++; out=out+String.fromCharCode(temp);temp=\"\";}document.write(out);<\/script>";
}
</SCRIPT>

скрипт удаления дубликатов записей (формат out.txt - одна запись на строку, в конце файла должна быть одна пустая строка):

<?php
$file="out.txt";
$_file=file($file);
$_file=array_values(array_unique($_file));

$fp=fopen($file,"w+");
for($i=0;$i<count($_file);$i++)
{
flush();
fputs($fp,$_file[$i]);
}

echo "done"; flush();
fclose($fp);

Ссылки:
http://tools.seobook.com/
http://yabiz.ru/forum/index.php?showtopic=113&st=40&p=2078&#entry2078

Те кто, помог:

-eof- ICQ:556498