Re: Regular Expression - Visual Basic Discussion Boards

Re: VB6 Int() Function

Guffa10-May-07 8:18

Guffa

10-May-07 8:18

The VB6 functions are equivalent to these .NET methods:

Int() -> Math.Floor()<br />
Fix() -> Math.Ceiling()<br />
Round() -> Math.Round()<br />
CSng() -> Convert.ToSingle()<br />
CLng() -> Convert.ToInt32()

The Convert.ToInt32 method rounds the value the same ways as Math.Round does.

---
single minded; short sighted; long gone;

Re: VB6 Int() Function

Marcus J. Smith10-May-07 8:28

Marcus J. Smith

10-May-07 8:28

Ahhhh, thanks! There are so many options that I am just trying to learn as I go.

_Cle^aKO

"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that.'" - Tommy (Tommy Boy)
"Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)

Caesar Cipher Crack

Irshadt10-May-07 3:27

Irshadt

10-May-07 3:27

I used the following code to crack Caesar Cipher code where the key is unknown. I have written the following code and is it not working. I want it done in access. Plz Plz help me.

Option Compare Database
Option Base 1

Private Sub Command4_Click()
Dim naturalDist(26, 2) As Double

naturalDist(1, 1) = 1
naturalDist(2, 1) = 2
naturalDist(3, 1) = 3
naturalDist(4, 1) = 4
naturalDist(5, 1) = 5
naturalDist(6, 1) = 6
naturalDist(7, 1) = 7
naturalDist(8, 1) = 8
naturalDist(9, 1) = 9
naturalDist(10, 1) = 10
naturalDist(11, 1) = 11
naturalDist(12, 1) = 12
naturalDist(13, 1) = 13
naturalDist(14, 1) = 14
naturalDist(15, 1) = 15
naturalDist(16, 1) = 16
naturalDist(17, 1) = 17
naturalDist(18, 1) = 18
naturalDist(19, 1) = 19
naturalDist(20, 1) = 20
naturalDist(21, 1) = 21
naturalDist(22, 1) = 22
naturalDist(23, 1) = 23
naturalDist(24, 1) = 24
naturalDist(25, 1) = 25
naturalDist(26, 1) = 26

naturalDist(1, 2) = 0.08167
naturalDist(2, 2) = 0.01492
naturalDist(3, 2) = 0.02782
naturalDist(4, 2) = 0.04253
naturalDist(5, 2) = 0.12702
naturalDist(6, 2) = 0.02228
naturalDist(7, 2) = 0.02015
naturalDist(8, 2) = 0.06094
naturalDist(9, 2) = 0.06966
naturalDist(10, 2) = 0.00153
naturalDist(11, 2) = 0.00772
naturalDist(12, 2) = 0.04025
naturalDist(13, 2) = 0.02406
naturalDist(14, 2) = 0.06749
naturalDist(15, 2) = 0.07507
naturalDist(16, 2) = 0.01929
naturalDist(17, 2) = 0.00095
naturalDist(18, 2) = 0.05987
naturalDist(19, 2) = 0.06327
naturalDist(20, 2) = 0.09056
naturalDist(21, 2) = 0.02758
naturalDist(22, 2) = 0.00978
naturalDist(23, 2) = 0.0236
naturalDist(24, 2) = 0.0015
naturalDist(25, 2) = 0.01974
naturalDist(26, 2) = 0.00074

Dim theText As String
Dim resultText As String
Dim i As Integer
Dim j As Integer

Form_Form4.Text0.SetFocus
theText = Form_Form4.Text0.Text
theText = Replace(theText, " ", "")
theText = Replace(theText, ",", "")
theText = Replace(theText, ".", "")
theText = Replace(theText, ";", "")
theText = Replace(theText, "'", "")
theText = Replace(theText, """", "")
theText = Replace(theText, "-", "")
theText = Replace(theText, ":", "")
theText = Replace(theText, "%", "")
theText = Replace(theText, "*", "")
theText = Replace(theText, "$", "")
theText = Replace(theText, "!", "")
theText = Replace(theText, "@", "")
theText = Replace(theText, "#", "")
theText = Replace(theText, "(", "")
theText = Replace(theText, ")", "")
theText = Replace(theText, "_", "")
theText = Replace(theText, "+", "")
theText = Replace(theText, "/", "")
theText = Replace(theText, "\", "")
theText = Replace(theText, "|", "")
theText = Replace(theText, "?", "")
theText = Replace(theText, Chr(10), "")
theText = UCase(theText)

Dim theCharDist(26, 2) As Double
For i = 1 To (Len(theText))
theCharDist(Asc(Mid(theText, i, 1)) - Asc("A") + 1, 2) = theCharDist(Asc(Mid(theText, i, 1)) - Asc("A") + 1, 2) + 1
Next i

For i = 1 To 26
theCharDist(i, 1) = i
If theCharDist(i, 2) = 0 Then
theCharDist(i, 2) = theCharDist(i, 2) / Len(theText)
Else
theCharDist(i, 2) = 1
End If
Next i

For i = 1 To 26
For j = i To 25
If theCharDist(j, 2) > theCharDist(j + 1, 2) Then
Dim tmp(2) As Double

tmp(1) = theCharDist(j, 1)
tmp(2) = theCharDist(j, 2)

theCharDist(j, 1) = theCharDist(j + 1, 1)
theCharDist(j, 2) = theCharDist(j + 1, 2)

theCharDist(j + 1, 1) = tmp(1)
theCharDist(j + 1, 2) = tmp(2)
End If
Next j
Next i

For i = 1 To 26
For j = i To 25
If naturalDist(j, 2) > naturalDist(j + 1, 2) Then
Dim tmp2(2) As Double

tmp2(1) = naturalDist(j, 1)
tmp2(2) = naturalDist(j, 2)

naturalDist(j, 1) = naturalDist(j + 1, 1)
naturalDist(j, 2) = naturalDist(j + 1, 2)

naturalDist(j + 1, 1) = tmp2(1)
naturalDist(j + 1, 2) = tmp2(2)
End If
Next j
Next i

Dim lookupTab(26, 2) As Integer
For i = 1 To 26
For j = 1 To 26
If naturalDist(j, 1) = i Then
lookupTab(i, 1) = j
End If

If theCharDist(j, 1) = i Then
lookupTab(i, 2) = j
End If
Next j
Next i

For i = 1 To (Len(theText))
resultText = resultText + Chr(Asc("A") + naturalDist(lookupTab(Asc(Mid(theText, i, 1)) - Asc("A") + 1, 2), 1))
Next i

Form_Form4.Text2.SetFocus
Form_Form4.Text2 = resultText
End Sub

Private Sub Command7_Click()
Form_Form4.Text8.SetFocus
FN$ = Form_Form4.Text8.Text

LoadTextBox FN$, Form_Form4.Text0
End Sub

Re: Caesar Cipher Crack

Colin Angus Mackay10-May-07 3:29

Colin Angus Mackay

10-May-07 3:29

Irshadt wrote:
I used the following code to crack Caesar Cipher code where the key is unknown. I have written the following code and is it not working. I want it done in access. Plz Plz help me.

This link may be of use[^]

Upcoming events:
* Glasgow: SQL Server 2005 - XML and XML Query Plans, Mock Objects, SQL Server Reporting Services...

Never write for other people. Write for yourself, because you have a passion for it. -- Marc Clifton

My website

Caesar Cipher Crack

Irshadt10-May-07 3:24

Irshadt

10-May-07 3:24

I want to crack a Caesar Cipher Code using MS Access using Frequency Distribution table established for english language. Please be kind enough to write me a code.

Re: Caesar Cipher Crack

Colin Angus Mackay10-May-07 3:30

Colin Angus Mackay

10-May-07 3:30

Irshadt wrote:
Please be kind enough to write me a code.

Why do you think we should do your work for you? What's in it for us?

Re: Caesar Cipher Crack

Christian Graus10-May-07 10:29

Christian Graus

10-May-07 10:29

Yeah, but it seems obvious to me that if I DID want to write code cracking code, Access is how I'd do it.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Re: Regular Expression

ant1xxx10-May-07 1:55

ant1xxx

10-May-07 1:55

Hello
I'm working on a piece of code that checks for "(bla bla number) comments"
Example. If I entered "86 comments", it would return the number in front of 'comments'

My code for this line seems wrong, please help. I'm a young learner. I got a reply this morning, but it's not quite working out. Thanks!

String regex = "\\d [Cc][Oo][Mm][Mm][Ee][Nn][Tt][Ss]:";

Belief is a beautiful armour.
Knowledge is the sword.

Re: Regular Expression

Christian Graus10-May-07 2:14

Christian Graus

10-May-07 2:14

I answered this, why did you ask it again ?

Passing custom object to web service

BobsAfro10-May-07 1:15

BobsAfro

10-May-07 1:15

I have a custom object which is is a simple model with only a few strings and booleans as fields.
I would like to pass this to a web service.
Is there anyway to do this?

I currently have the class in both projects but it says
"CustomClass is not of type web_service_name.CustomClass" when I try to pass it in the consuming project.

How can i tell it they are the same class?