by roy daniel (1 Submission)
Category: OLE/COM/DCOM/Active-X
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 14th May 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
COM ActiveX DLL - to Enkrips Data/ DEnkrips Data
VBcoders
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