| View previous topic :: View next topic |
| Author |
Message |
Walden
How do I cheat?
![]() Reputation: 0
Joined: 08 Apr 2009
Posts: 3
|
 Posted: Sun Jun 07, 2009 11:22 am Post subject: [Request] A program that scrambles the lines of text |
 |
|
Say I had a block of text like this:
George HW Bush – Ambassador to the UN and director of the CIA.
George HW Bush – lost 1980 republican nomination to Reagan, so was VP
George HW Bush – 1988 he and Dan Quayle defeated Dukakis for presidential election.
George HW Bush – Invasion to Panama to depose Noriega
Depose Noriega – Why they invade panama??
George HW Bush – Persian Gulf War
George HW Bush – NAFTA
I would like to scramble each line of text (yes every George HW Bush is on a seperate line in word). Is there anyone that could make this?
|
|
| Back to top |
|
 |
SF
I'm a spammer
 Reputation: 119
Joined: 19 Mar 2007
Posts: 6028
|
| Posted: Sun Jun 07, 2009 11:23 am Post subject: |
|
|
Is this for homework?
_________________
|
|
| Back to top |
|
|
Icklorfin
I post too much
 Reputation: -1
Joined: 25 Aug 2007
Posts: 2346
|
|
| Back to top |
|
|
Slugsnack
Grandmaster Cheater Supreme
![]() Reputation: 71
Joined: 24 Jan 2007
Posts: 1857
|
| Posted: Sun Jun 07, 2009 6:12 pm Post subject: |
|
|
| parse the text into lines by the carriage return/line feed ( 13, 10 ) then randomise, simple
|
|
| Back to top |
|
|
iTz SWAT
I post too much
 Reputation: 1
Joined: 20 Dec 2007
Posts: 2227
Location: Me.Location;
|
| Posted: Sun Jun 07, 2009 8:38 pm Post subject: |
|
|
| Slugsnack wrote: | | parse the text into lines by the carriage return/line feed ( 13, 10 ) then randomise, simple |
If it is randomized, how would you decrypt it?
I google searched and found this ode for any VB.NET users here.
| Code: | Imports System
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Runtime.InteropServices
Imports System.Text
Module Module1
' Call this function to remove the key from memory after it is used for security.
<DllImport("kernel32.dll")> _
Public Sub ZeroMemory(ByVal addr As IntPtr, ByVal size As Integer)
End Sub
' Function to generate a 64-bit key.
Function GenerateKey() As String
' Create an instance of a symmetric algorithm. The key and the IV are generated automatically.
Dim desCrypto As DESCryptoServiceProvider = DESCryptoServiceProvider.Create()
' Use the automatically generated key for encryption.
Return ASCIIEncoding.ASCII.GetString(desCrypto.Key)
End Function
Sub EncryptFile(ByVal sInputFilename As String, _
ByVal sOutputFilename As String, _
ByVal sKey As String)
Dim fsInput As New FileStream(sInputFilename, _
FileMode.Open, FileAccess.Read)
Dim fsEncrypted As New FileStream(sOutputFilename, _
FileMode.Create, FileAccess.Write)
Dim DES As New DESCryptoServiceProvider()
'Set secret key for DES algorithm.
'A 64-bit key and an IV are required for this provider.
DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)
'Set the initialization vector.
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
'Create the DES encryptor from this instance.
Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()
'Create the crypto stream that transforms the file stream by using DES encryption.
Dim cryptostream As New CryptoStream(fsEncrypted, _
desencrypt, _
CryptoStreamMode.Write)
'Read the file text to the byte array.
Dim bytearrayinput(fsInput.Length - 1) As Byte
fsInput.Read(bytearrayinput, 0, bytearrayinput.Length)
'Write out the DES encrypted file.
cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length)
cryptostream.Close()
End Sub
Sub DecryptFile(ByVal sInputFilename As String, _
ByVal sOutputFilename As String, _
ByVal sKey As String)
Dim DES As New DESCryptoServiceProvider()
'A 64-bit key and an IV are required for this provider.
'Set the secret key for the DES algorithm.
DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
'Set the initialization vector.
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
'Create the file stream to read the encrypted file back.
Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
'Create the DES decryptor from the DES instance.
Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
'Create the crypto stream set to read and to do a DES decryption transform on incoming bytes.
Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
'Print out the contents of the decrypted file.
Dim fsDecrypted As New StreamWriter(sOutputFilename)
fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd)
fsDecrypted.Flush()
fsDecrypted.Close()
End Sub
Public Sub Main()
'Must be 64 bits, 8 bytes.
Dim sSecretKey As String
' Get the key for the file to encrypt.
' You can distribute this key to the user who will decrypt the file.
sSecretKey = GenerateKey()
' For additional security, pin the key.
Dim gch As GCHandle = GCHandle.Alloc(sSecretKey, GCHandleType.Pinned)
' Encrypt the file.
EncryptFile("%USERPROFILE%\MyData.txt", _
"%USERPROFILE%\Encrypted.txt", _
sSecretKey)
' Decrypt the file.
DecryptFile("%USERPROFILE%\Encrypted.txt", _
"%USERPROFILE%\Decrypted.txt", _
sSecretKey)
' Remove the key from memory.
ZeroMemory(gch.AddrOfPinnedObject(), sSecretKey.Length * 2)
gch.Free()
End Sub
End Module
|
_________________
|
|
| Back to top |
|
|
Slugsnack
Grandmaster Cheater Supreme
![]() Reputation: 71
Joined: 24 Jan 2007
Posts: 1857
|
| Posted: Tue Jun 09, 2009 6:50 am Post subject: |
|
|
| i can code an example for you but it'll be in masm32
|
|
| Back to top |
|
|
Cheat Engine User
Something epic
![]() Reputation: 61
Joined: 22 Jun 2007
Posts: 2071
|
| Posted: Tue Jun 09, 2009 7:03 am Post subject: |
|
|
| iTz SWAT wrote: | | Slugsnack wrote: | | parse the text into lines by the carriage return/line feed ( 13, 10 ) then randomise, simple |
If it is randomized, how would you decrypt it?
|
Trial and Error.
|
|
| Back to top |
|
|
Slugsnack
Grandmaster Cheater Supreme
![]() Reputation: 71
Joined: 24 Jan 2007
Posts: 1857
|
| Posted: Tue Jun 09, 2009 6:32 pm Post subject: |
|
|
| Holly wrote: | | iTz SWAT wrote: | | Slugsnack wrote: | | parse the text into lines by the carriage return/line feed ( 13, 10 ) then randomise, simple |
If it is randomized, how would you decrypt it?
|
Trial and Error. |
he never said anything about wanting to 'decrypt' or reverse the transformations
|
|
| Back to top |
|
|
Walden
How do I cheat?
![]() Reputation: 0
Joined: 08 Apr 2009
Posts: 3
|
| Posted: Thu Jun 11, 2009 12:13 pm Post subject: |
|
|
| person with a high concentration of pigment in his skin wrote: | Here is a text scrambler, "I cant post URLS, refer to his post"
Also, if gay. |
that was not exactly what I was looking for. I am looking to scramble just the whole line of text like so it is in a different position. Not each individual word. I make flash cards on studystack, and they have to be in different sets. In one set if there I find one George HW Bush card, then I know there are atleast a few more, and I am trying to get past that. So if there is something that can scramble just the lines in a block of text, or document, that would be very useful.
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
