COM ActiveX DLL - to Enkrips Data/ DEnkrips Data

roy daniel (1 Submission) OLE/COM/DCOM/Active-X VB 6.0 Unknown Difficulty Tue 14^th May 2002 Mon 8^th February 2021

Rate COM ActiveX DLL - to Enkrips Data/ DEnkrips Data

(2(2 Vote))


That used in asp code:

<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title> Test COM DLL </title>
</head>

<body>
<%
%>
<Br>
<br>
<br>
<br>
Login - COM DLL yang berfungsi men-Enkrip dan D-Enkrips Text Data <br>
Buat melihat type pada text box kata-kata apa saja !
<form method="POST" action="login-skrip.asp">
  <input type="text" name="ipname" size="40"></p>
  <p>
  <input type="submit" value="Submit" name="B1">
  <input type="hidden" name="tambah" value=1>
  <input type="reset" value="Reset" name="B2"></p>
</form>
<%
if request.form("tambah")=1 then
dim control1
dim control2
dim tampung
dim test1
dim test2

tampung=request.form("ipname")

'register control

set control1 = server.createobject("login.Acak")
set control2 = server.createobject("login.UnAcak")

test1=Control1.Acak(tampung)
response.write"Data Enkripsi: "
response.write test1
response.write"<br>"
response.write"Data DEnkripsi: "
test2=control2.UnAcak(Test1)
response.write test2

end if

%>
</body>

</html>


'write code this to class write name UnAcak
Public Function UnAcak(ByVal Password As String) As String
Dim mlPASSWORD As String
    mlPASSWORD = ""
    For i = 1 To Len(Password)
        mlPASSWORD = mlPASSWORD & Chr((Asc(Mid(Password, i, 1)) - i) / 2)
    Next
    UnAcak = mlPASSWORD
    'MsgBox mlPASSWORD
End Function

'write this code to class name Acak
Public Function Acak(ByVal Password As String) As String
Dim mlPASSWORD As String
    mlPASSWORD = ""
    For i = 1 To Len(Password)
        mlPASSWORD = mlPASSWORD & Chr(Asc(Mid(Password, i, 1)) * 2 + i)
    Next
    Acak = mlPASSWORD
    'MsgBox mlPASSWORD
End Function


you must register c:\regsvr32 c:\login.dll

Thanks

Download snippet Save to my list

COM ActiveX DLL - to Enkrips Data/ DEnkrips Data Comments

No comments yet — be the first to post one!

COM ActiveX DLL - to Enkrips Data/ DEnkrips Data

COM ActiveX DLL - to Enkrips Data/ DEnkrips Data Comments

Post a Comment