Scamble Data

KitCaz

unread,

Oct 21, 2005, 10:58:02 AM10/21/05

to

Hi!

I need to pass my database to a help forum in order to get some assistance.
I want to scramble up some of my data for privacy purposes.

Does anyone have an existing routine or suggestion on how to do this?

I'm ideally looking for some procedure I can pass a field value to and
return a scrambled value. I can then use this procedure on any column in any
table I want in future.

Thanks!

Chris

PC Datasheet

unread,

Oct 21, 2005, 11:40:03 AM10/21/05

to

Below my signature line is some code you could modify to do what you want.
However, you don't need to go to the bother. I can help you with your
database and I assure you that your data will be given 110% confidentiality.
My fees are very reasonable.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
reso...@pcdatasheet.com
www.pcdatasheet.com

If you don't get the help you need in the newsgroup, I can help you for a
very reasonable fee. Over 1000 Access users have come to me for help.

From my files ---------
Example: TestRandomEntries 10, 10
will give 10 entries that are 10 characters long.

Public Sub TestRandomEntries(intQty As Integer, intLength As Integer)
On Error GoTo HandleError

Dim intValue As Integer, strValue As String, intCount As Integer
Dim db As DAO.Database, rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("Table9", dbOpenTable)

Randomize
Const DUPLICATE_INDEX = 3022
intCount = 0
strValue = ""
Do Until intCount = intQty
Do Until Len(strValue) = intLength
'Alpha Numeric characters are ASCII 48-57, 65-90, and 97-122
'Formula from the help file
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
intValue = Int((122 - 48 + 1) * Rnd + 48)
Select Case intValue
Case 48 To 57, 65 To 90, 97 To 122
strValue = strValue & Chr(intValue)
Case Else
End Select
Loop
With rst
.AddNew
![fldNumbers] = strValue 'Add data.
.Update 'Save changes.
End With
'Increment our counter to see
'how many we have added
intCount = intCount + 1
'Start a new string
strValue = ""
Loop

CleanUp:
On Error Resume Next
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Sub

HandleError:
If Err.Number = DUPLICATE_INDEX Then
'Only count successful additions
intCount = intCount - 1
Resume Next
End If
MsgBox Err.Number & vbCrLf & Err.Description, , "Error"
Resume CleanUp

End Sub

"KitCaz" <Kit...@discussions.microsoft.com> wrote in message
news:A76F5CD3-302B-4462...@microsoft.com...

John Marshall, MVP

unread,

Oct 21, 2005, 12:45:30 PM10/21/05

to

"PC Datasheet" <nos...@nospam.spam> wrote in message
news:nZ76f.17869$QE1....@newsread2.news.atl.earthlink.net...

> However, you don't need to go to the bother. I can help you with your
> database and I assure you that your data will be given 110%
> confidentiality. My fees are very reasonable.

So master santos, how many times do you have to be told these newsgroups are
not for your personal ambulance chasing.

John... Visio MVP

peter walker

unread,

Oct 21, 2005, 1:06:33 PM10/21/05

to

...go git 'im marshal...

:-)

peter walker

"John Marshall, MVP" <lanc...@stonehenge.ca> wrote in message
news:%23fWzY7l...@TK2MSFTNGP12.phx.gbl...

KitCaz

unread,

Oct 21, 2005, 1:10:02 PM10/21/05

to

Thank you! I will investigate this, and jot your info down for future
services.

"PC Datasheet" wrote:

> ..AddNew

> ![fldNumbers] = strValue 'Add data.

> ..Update 'Save changes.

StopThisAdvertising

unread,

Oct 21, 2005, 1:58:09 PM10/21/05

to

"PC Datasheet" <nos...@nospam.spam> schreef in bericht news:nZ76f.17869$QE1....@newsread2.news.atl.earthlink.net...

> Below my signature line is some code you could modify to do what you want.
> However, you don't need to go to the bother. I can help you with your
> database and I assure you that your data will be given 110% confidentiality.
> My fees are very reasonable.
>
> --
> PC Datasheet
> Your Resource For Help With Access, Excel And Word Applications
> reso...@pcdatasheet.com
> www.pcdatasheet.com
>
> If you don't get the help you need in the newsgroup, I can help you for a
> very reasonable fee. Over 1000 Access users have come to me for help.

These 1000 (if at all a real figure..) is only the result of
-- 4 years abusing the newsgroups.
-- 4 years blatantly advertising and jobhunting.

You just don't care about the newsgroups. You have no ethics at all.
You only care about making money, and you act as if the groups are your private hunting ground.

-- You abuse this group and others for job-hunting and advertising over and over again
-- You are insulting lots of people here when they ask you to stop this
-- You posted as Steve, Ron, Tom, Rachel, Kathy, Kristine, Heather and ??? while asking questions
(the latest 'star's': 'Access Resource' and Tom no...@email.com)
-- You try to sell a CD ($125,--) with FREE code you gathered from these groups here
-- There even has been a 'Scam-alert' about you which has been explained recently in the thread 'To all':
http://groups.google.com/group/comp.databases.ms-access/msg/46038ba2954261f9?hl=en
-- Also recently it became clear that you have been spamming innocent people asking questions:
http://groups.google.com/group/comp.databases.ms-access/msg/4f76d0ed3e5f58ad?hl=en

So why would ANYBODY ever trust a person like you and hire you?
********************************************************

To all: Explanation and more on this answer to Steve:
http://home.tiscali.nl/arracom/stopsteve.html

Arno R

WSF

unread,

Oct 21, 2005, 5:44:34 PM10/21/05

to

Hello Steve

Rob Oldfield

unread,

Oct 21, 2005, 6:13:21 PM10/21/05

to

http://makeashorterlink.com/?U27B1160C

Steve, you could at least give Wayne a credit.

"PC Datasheet" <nos...@nospam.spam> wrote in message
news:nZ76f.17869$QE1....@newsread2.news.atl.earthlink.net...

PC Datasheet

unread,

Oct 21, 2005, 6:43:12 PM10/21/05

to

Rob,

Thanks for the note!

I didn't keep the source for the code so there was no way to give specific
credit. I did not intentionally leave Wayne out. Credit now goes to Wayne
for helping a second poster out with his code.

Steve

"Rob Oldfield" <bl...@blah.com> wrote in message
news:ekerCso...@TK2MSFTNGP14.phx.gbl...

Rob Oldfield

unread,

Oct 21, 2005, 6:55:30 PM10/21/05

to

Maybe where you're just repeating previous posts from other people then you
could do the same quick Google that I did to find that one?

"PC Datasheet" <nos...@nospam.spam> wrote in message

news:4ae6f.17445$vw6....@newsread1.news.atl.earthlink.net...

John Marshall, MVP

unread,

Oct 21, 2005, 6:59:15 PM10/21/05

to

"PC Datasheet" <nos...@nospam.spam> wrote in message

news:4ae6f.17445$vw6....@newsread1.news.atl.earthlink.net...
> Rob,

>
> I didn't keep the source for the code so there was no way to give specific
> credit. I did not intentionally leave Wayne out. Credit now goes to Wayne
> for helping a second poster out with his code.
>
> Steve

So master santos is this part of the code on the CD you sell? Do you give
credit for any of the code on the CD?

John... Visio MVP

Rob Oldfield

unread,

Oct 21, 2005, 7:21:26 PM10/21/05

to

...and I think you have a bit of a problem with your website. Somehow it
seems to be triggering a pop up advertisement. Must be a mistake somewhere
surely.

"PC Datasheet" <nos...@nospam.spam> wrote in message

news:4ae6f.17445$vw6....@newsread1.news.atl.earthlink.net...

unread,

Oct 22, 2005, 11:31:23 AM10/22/05

to

"PC Datasheet" <nos...@nospam.spam> wrote in message

news:9Ko6f.17657$vw6....@newsread1.news.atl.earthlink.net...

> It doesn't take a rocket scientist!

Depends if we are talking about the Access engine.

> When Wayne previously posted he helped the first poster. When I posted
> Wayne's code, Wayne indirectly helped a second poster. 1 + 1 = 2

Discounting the lurkers.

The count is Reed, KitCaz and master santos.

> lamebrain!!!

Isn't personal insults against the rules?

John... Visio MVP

PC Datasheet

unread,

Oct 22, 2005, 1:38:41 PM10/22/05

to

It certainly is, lamebrain; you repeatedly break this rule!!!

Steve

"John Marshall, MVP" <lanc...@stonehenge.ca> wrote in message

news:uxKoq2x1...@TK2MSFTNGP10.phx.gbl...

John Marshall, MVP

unread,

Oct 22, 2005, 2:28:43 PM10/22/05

to

"PC Datasheet" <nos...@nospam.spam> wrote in message

news:BOu6f.19707$q1....@newsread3.news.atl.earthlink.net...

> It certainly is, lamebrain; you repeatedly break this rule!!!

More personal insults? So pointing out that you use these newsgroups for
your own personal profit is against the rules?

So you must think the same of the guy who defined MVPs as:

>A friend, someone who unselfishly shares his knowledge and expects nothing
>in
>return. Considers every question posted in this newsgroup very important to
>the
>poster and is never critical or demeaning to the poster. Accepts every
>poster as
>a human being and affords all posters the respect every human being
>deserves.

John... Visio MVP

WSF

unread,

Oct 22, 2005, 4:47:45 PM10/22/05

to

I am the lamebrain?
I can use Google - apparently you cannot? You come up with such an inane
answer to a straight forward question.

But then again, you never do give straightforward answers do you Steve.
Or is it Tom, Dick, or Harry? Do you really give yourself girls' names?
You take the moral high ground against people who have offered more for
free than you have been able to take for nothing. Your pathetic excuse
for not acknowledging someone else's code is unbelievable - you offer a
CD for over a hundred dollars that is full of other peoples' code? All
acknowledged? Yeah, right!

You are a cheat and a wanker. Do you take a free ride on the newsgroups
because you cannot make a success of your business? or get a proper job?
More often than not posters and others get the answers they seek
promptly from people who provide the information freely.
That is, if they beat you to the post.
Stop scrounging Steve. Stop begging on the newsgroups.
Some of us who recognise the principals of the newsgroups know your
pedigree. Care to spawn a few more Arnos?