Algorithum Encryption and Decryption
This code will take text, and encrypt it in Algorithum Encryption. What it does is randomly create 4 keys, each one 1 char long. No password needed to encrypt the text, it creates its own and stores it within the encrypted text. Virtualy impossible to crack because the output encryption is rarely the same. For example, a string that says "test" will be 8 charachters long, and almost never the same. Or a string that says "testing" will be 11 charachters long. The key to encrypt and decrypt is stored at the beginning and the end of the output making it almost impossible to crack.
Podsumowanie AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Function TEncrypt (iString)
On Error GoTo uhoh
Q = ""
a = randomnumber(9) + 32
b = randomnumber(9) + 32
c = randomnumber(9) + 32
d = randomnumber(9) + 32
Q = Chr(a) & Chr(c) & Chr(b)
e = 1
For x = 1 To Len(iString)
f = Mid(iString, x, 1)
If e = 1 Then Q = Q & Chr(Asc(f) + a)
If e = 2 Then Q = Q & Chr(Asc(f) + c)
If e = 3 Then Q = Q & Chr(Asc(f) + b)
If e = 4 Then Q = Q & Chr(Asc(f) + d)
e = e + 1
If e > 4 Then e = 1
Next x
Q = Q & Chr(d)
TEncrypt = Q
Exit Function
uhoh:
TEncrypt = "Error: Invalid text to Encrypt"
Exit Function
End Function
Function TDecrypt (iString)
On Error GoTo uhohs
Q = ""
zz = Left(iString, 3)
a = Left(zz, 1)
b = Mid(zz, 2, 1)
c = Mid(zz, 3, 1)
d = Right(iString, 1)
a = Int(Asc(a)) 'key 1
b = Int(Asc(b)) 'key 2
c = Int(Asc(c)) 'key 3
d = Int(Asc(d)) 'key 4
txt = Left(iString, Len(iString) - 1)
txt2 = Mid(txt, 4, Len(txt)) 'encrypted text
e = 1
For x = 1 To Len(txt2)
f = Mid(txt2, x, 1)
If e = 1 Then Q = Q & Chr(Asc(f) - a)
If e = 2 Then Q = Q & Chr(Asc(f) - b)
If e = 3 Then Q = Q & Chr(Asc(f) - c)
If e = 4 Then Q = Q & Chr(Asc(f) - d)
e = e + 1
If e > 4 Then e = 1
Next x
TDecrypt = Q
Exit Function
uhohs:
TDecrypt = "Error: Invalid text to Decrypt"
Exit Function
End Function
Function randomnumber (finished)
Randomize
randomnumber = Int((Val(finished) * Rnd) + 1)
End Function
This article shows how to clear the BIOS/CMOS password.Though it's dangerous to play with Motherboard...but this worked fine with my computer.
The main idea looks like as stated below :
1] Exit Windows & reboot to DOS.
2] Go to C:\> prompt
3] (type)DEBUG (press ENTER) {it will show like an underscore _}
4] (type)o 70 2e (press ENTER) {o->orange,don't mess with this line!}
5] (type)o 71 ff (press ENTER) {o->orange,don't mess with this line!}
6] (type)Q (press ENTER) {Quit Debug,it will take u back to C: prompt}
You're Done! Shut Down your PC & restart.If ay message shows up...press F1 to run setup of CMOS.Then press F10.Type Y and Exit.See it won't ask again for Supervisor/User passwords !!
Typical code can be written as follows :
void main()
{
system("cd\\");
system("DEBUG");
}
then you will have to enter the debugging lines:
printf("\nEnter the line as shown :o 70 2e ENTER"); /* asking user to enter */
gets(line1); /* use datatye char line1[8],line2[8] */
printf("\nEnter the line as shown :o 71 ff ENTER"); /* asking user to enter */
gets(line2);
printf("\nPress Q...ENTER"); /* asking user to enter */
now for the system to restart :
system("cd\\");
system("cd windows");
system("RUNDLL.EXE user.exe,exitwindowsexec"); /* Don't mess with this line..just type as shown */
That's it.Enjoy!!