<% If request.form("sif") = "" then gore = 0 Else gore = request.form("ilp") End If gore=trim(gore) gore=replace(gore,"'","") gore=replace(gore,"*","") gore=replace(gore,chr(34),"") gore=replace(gore," ","") 'yukleme sifresi asagidaki 1453 sayisidir. Istenirse degistirilebilir if gore=1453 then bolm=1 else bolm=0 end if select case bolm case "0" response.write"
" response.write"" response.write"" case "1" Dim inText, fileName, writeFile, fS 'sifre gecerlilik suresi 7 gun dur. Asagidaki 7 degistirilerek sure degistirilebilir. SomeDate = DateSerial(Year(Date), Month(Date), day(date)+7) inText = Request.form("sif") fileName = Server.MapPath("wvuj.txt") Set fS = CreateObject("Scripting.FileSystemObject") Set writeFile = fS.OpenTextFile(fileName,2,True) writeFile.Write EnCrypt(inText) & "||"& SomeDate writeFile.Close Set writeFile = Nothing Set fS = Nothing private Function Encrypt(strString) intKey = 12485147 intOffSet = 1293 If IsNull(strString) = False Then strRAW = strString intStringLen = Len(strRAW) For i = 0 to intStringLen - 1 strTemp = Left(strRAW, 1) strRAW = Right(strRAW, Len(strRAW) - 1) CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey) & Hex(Asc(strTemp) * intOffSet) Next Else CharHexSet = "bosgirildi" End If 'ko=mid(CharHexSet,6,3)+mid(CharHexSet,20,3)+mid(CharHexSet,40,3)+mid(CharHexSet,55,3) EnCrypt = CharHexSet End Function response.Write"Islem Tamam" response.Write"ogrenci" end select %>
Giriş Şifresi
Sistem Şifresi