Encrypt your data using an ASP encryption algorithm

Using an ASP encryption algorithm to encrypt your data profile
First, a brief introduction to the background of encryption. Because the United States prohibits several cryptographic algorithms from exporting encrypted digits (such as SSL's 40-bit encryption limit), this article describes a simple character encryption algorithm that an ASP can use, rather than a restricted encryption algorithm. In fact, the encryption algorithm introduced here for the general application is enough to decrypt people for a while. Its encryption base is the simplest Vernum password method, which I will introduce in my next article.
Its rationale is that there is a need to encrypt the
PlainText and a randomly generated decryption key file. The two files are then combined to generate the ciphertext.
(plaintext) combination (key) = encrypted ciphertext
So this article is about the code that generates the key. We assume that the key we generated is a 512-bit long key, which is enough to encrypt a text character. The code is as follows:
keygen.asp file
<%
'******************************
' Keygen.asp
'******************************
Const g_keylocation = "C:key.txt"
Const G_keylen = 512
On Error Resume Next
Call Writekeytofile (KeyGeN (G_keylen), g_keylocation)
If ERR <> 0 Then