برنامج تشفير قوي نسبيًا، بما في ذلك اختبار التشفير المسبق واللاحق وإحصائيات الأحرف المنتظمة. تتضمن طرق التشفير js وvbs، والتي يمكنك اختيار استخدامها.
ما يلي هو الكود المصدري، قم بنسخه وحفظه بتنسيق htm للاستخدام
<أتش تي أم أل>
<الرأس>
<META http-equiv=Content-Type content=text/html;
<اسم META=محتوى المولد=رفيق مبرمج الشبكة-Lshdic 2002>
<TITLE>رفيق مبرمج الشبكة Lshdic--أداة تشفير البرامج النصية وفك تشفيرها</TITLE>
</الرأس>
<BODY bgcolor=D1DCE7>
<المركز>
<عرض الجدول=600 bordercolordark=الحدود الصفراءcolorlight=الحدود البحرية=1 تباعد الخلايا=0
bgcolor='EDCDDB' cellpadding=0><tr><td>
<نوع الإدخال=معرف الزر=قيمة ok1=اختبار قبل التشفير عند النقر=runpath(txt1.value)><إدخال
اكتب = قيمة الزر = إحصائيات الأحرف العادية عند النقر = تنبيه (txt1.value.length) معرف = len1>
<نمط منطقة النص=العرض:100%;الارتفاع:150 معرف=txt1></textarea>
<نوع الإدخال=معرف الزر=قيمة js1=تشفير JS↓ onclick=chicks(this);vbs1.disabled=!
vbs1.disabled;><نوع الإدخال=معرف الزر=قيمة vbs1=vbsencryption↓ onclick=forstr();الفراخ
(هذا)؛js1.disabled=!js1.disabled>
<نمط تعطيل منطقة النص=العرض:100%;الارتفاع:150;لون الخلفية:dddddd
معرف=txt2></textarea>
<نوع الإدخال=معرف الزر=قيمة ok2=اختبار بعد تعطيل التشفير عند النقر=runpath(txt2.value)><إدخال
اكتب = قيمة الزر = إحصائيات الأحرف المشفرة عند النقر = تنبيه (txt2.value. length) معرف = len2 معطل>
</td></tr></table>
<لغة البرنامج النصي=vbs>
خافت vbsstr،vbstr
subforstr
إذا js1.disabled=false إذن
vbstr=txt1.value
vbsstr=strreverse(vbstr)
نهاية إذا
النهاية الفرعية
</script>
<النص البرمجي>
وظيفة الكتاكيت (أين) {
jsstr=String.fromCharCode(60)
إذا (where.value.indexOf('↓')!=-1)
{
Where.value=where.value.replace('التشفير↓','فك التشفير↑')
txt1.disabled=true;txt1.style.backgroundColor='dddddd'
txt2.disabled=false;txt2.style.backgroundColor='أبيض'
ok2.disabled=false;ok2.focus();
len1.disabled=true;len1.disabled=true;len2.disabled=false;
إذا (حيث.id=='js1'){
txt2.value='<script>document.write(unescape(/''+escape(txt1.value)+'/'))'+jsstr+'/script>'
txt1.value=}
آخر{
txt2.value='<textarea style=display:none
id=lshdic200Xpage>'+vbsstr+'</textarea>'+jsstr+'script language=vbs>document.write
(strreverse(lshdic200Xpage.value))'+String.fromCharCode(60)+'/script>'
txt1.value=}
}آخر{
Where.value=where.value.replace('فك التشفير↑','التشفير↓')
txt1.disabled=false;txt1.style.backgroundColor='أبيض'
txt2.disabled=true;txt2.style.backgroundColor='dddddd'
ok2.disabled=true;txt1.focus();ok1.disabled=false;len1.disabled=false;len2.disabled=true;
إذا (حيث.id=='js1'){txt1.value=unescape(txt2.value.replace('<script>document.write(unescape
(/'','').replace('/'))'+jsstr+'/script>',''))
txt2.value=}
آخر{
txt1.value=vbstr
txt2.value=}
}}
مسار تشغيل الوظيفة (whattxt) {
msg1=open('','','')
msg1.document.open()
msg1.document.write(whattxt)
msg1.document.إغلاق()
}
</script>
</الجسم>
</HTML>