رفتن به مطلب
انجمن تیم امنیتی گارد ایران

ارسال های توصیه شده

با سلام خدمت شما دوستان

با این برنامه که سورس انرا با تغییر میخواهم در سایت قرار دهم میتوانید پیام های خود را با ان کریپت کنید و مطمئن باشید که به جز شما وکسی که با ان چت میکنید کسی نمیتواند انرا رمز گشایی کند البته نرم افزار های قدرتنمد زیادی برای این کار وجود دارد ولی هدف من از قرار دادن سورس این برنامه این است که شما با طریقه ی کار کرد این برنامه ها اشنا شوید B)

من سورس برنامه رو در اختیارتون قرار می دهم و شما میتوانید انرا با نود پد تغییر دهید

این برنامه به زبان hta یا همان (mirosoft html aplication host) می باشد ولی تغییر دادن در ان بسیار راحت است

کافی است که سورس برنامه را در درون نود پد قرار دهید و انرا با پسوند hta. ذخیره کنید

اینم از سورس برنامه :

<html><head><title>Message Encrypter/Decrypter - ALIZOMBIE</title><HTA:APPLICATION
APPLICATIONNAME="Message Encrypter/Decrypter - Error Code 401"
ID="Message Encrypter/Decrypter - Error Code 401"
VERSION="1.0"
MAXIMIZEBUTTON="no"
SCROLL="no"/></head>
<style> td { color: Black; }
caption { color: blue; }
body { font-family: Arial; background-color: #708090; color: #808080; }
input { background-color: #202020; color: #909090; }
textarea { background-color: #202020; color: #909090; }
</style>
<script language="VBScript">
Sub Window_OnLoad
Dim width,height
width=700
height=500
self.ResizeTo width,height
End Sub
Function Validate(ID)
On Error Resume Next
Key = Int(pass.value)
If (pass.value = "") Then
X = MsgBox("You have to enter your password..!", 48, "Error")
Else If (tamsg.value = "") Then
X = MsgBox("Enter the text to encrypt or decrypt!", 48, "ERROR!")
Else
Junk = SetTimeOut(KEYS(ID), 1)
End If
End If
End Function
Function KEYS(ID)
text = pass.value
code = 0
Do Until text = ""
code = ((Asc(Left(text, 1)))+code)
text = Replace(text, Left(text, 1), "", "1", "1")
Loop
code = code Mod 255
akey.value = code
Junk = SetTimeOut(ID, 1)
End Function
Function Encrypt
Alpha = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
text = tamsg.value
code = ""
key = Int(akey.value)
Do Until text = ""
cnum = Asc(Left(text, 1))
cnum = (cnum+key) Mod 255
num = cnum Mod 26
count = 0
tst = num
Do Until tst = cnum
tst = tst+26
count = count+1
Loop
code = code & Alpha(num) & count
text = Replace(text, Left(text, 1), "", "1", "1")
Loop
tamsg.value = code
End Function
Function Decrypt
Alpha = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
text = tamsg.value
code = ""
key = Int(akey.value)
Do Until text = ""
lttr = Left(text, 2)
num = Asc(Left(lttr, 1))-65
chk = Right(lttr, 1)
count = 0
Do Until count = Int(chk)
num = num+26
count = count+1
Loop
num = num-key
Do While num <= 0
num = num+255
Loop
Code = code & Chr(num)
text = Replace(text, Left(text, 2), "", "1", "1")
Loop
tamsg.value = code
End Function
</script>
<body bgcolor="white"> <input type="hidden" id="akey"> <span title=""> <span title="Visit our blog for more http://www.Guardiran.org">
<marquee color="white" bgcolor="black" style="font-family= Book Antiqua;"> We are anonymous....We are legion....We do not forgive....We do not forget<font color="cyan">....Except US</font></marquee> </span> <table align="center" width="400">
<caption style="font-family:Book Antiqua; font-size:20;"><hr color="black"><b>Message Encrypter-Decrypter</b><hr color="black"></caption>
<tr> <td align="center"><span title="Enter your Full message here"><textarea id="tamsg" cols="80" rows="15"></textarea></span></td> </tr>
     <td color="black" style="font-family: Book Antiqua; font-size:18;"><hr color="black"> Password  <span title="Enter your password here">
<input type="password" id="pass"></span>            
<span title="Click Here to Encrypt your Message"> <input style="width: 170px; height:23px; color: white; background-color: #203040; font-family:Book Antiqua;" type="button" Value="Encrypt" id="btnenc" onClick="Validate('Encrypt')" onmouseover="btnenc.style.background='#102030'" onmouseout="btnenc.style.background='#203040'"> </span> <span title="Click Here to Decrypt your Message"> <input style="width: 170px; height:23px; color: white; background-color: #203040; font-family: Book Antiqua; font-size:13;" type="button" Value="Decrypt" id="btndec" onClick="Validate('Decrypt')" onmouseover="btndec.style.background='#102030'" onmouseout="btndec.style.background='#203040'"> </span></td>
</tr> <tr> <td align="right"><hr color="light blue"><span title="Guardiran Security Team" style="font-size: 13px; font-family:Book Antiqua;">© 2015 Guardiran Security Team - ali zombie.</span></td> </tr> </table> </body> </html
>

 

اگر سوالی داشتید و خوش حال میشوم که بتوانم به شما کمکی کنم پس در  تاپیک سوال  ها ..سوال خود را اعلام کنید تا به شما پاسخ دهم و

تشکر هم فراموش نشود هر چه استقبال ها بیشتر باشد مطالب بهتر و جدید تر به شما اموزش خواهم داد

با تشکر B)

لینک به دیدگاه
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

انجمن تیم امنیتی گارد ایران

تیم امنیتی گارد ایران یک گروه مستقل است که قوانین آن با خط مشی جمهوری اسلامی ایران مغایرت ندارد. تیم امنیتی گارد ایران از سال 1393 فعالیت خود را آغاز کرد و هدف این تیم تامین امنیت سایت ها و سرورهای ایرانی است. تیم ما همیشه برای دفاع از مرزهای سایبری سرزمین عزیزمان ایران آماده است.

شبکه های اجتماعی

×
×
  • اضافه کردن...