chmod help (permissions)

[morbondu]

Hi all...

 

I wrote this exe in VB to run on any win32 system(only tested on win98, win2k, and XP :^). chmodhelper.exe is a very very simple program to help out noobs with chmoding files. Basically, it's a learning tool for figure'n out the correct number squence for chmod'n files at command line.

 

example of the chmod command:

morbondu@linux%>chmod 755 public_html

 

Sorry, the chmodhelper.exe will not 'chmod' the file for you. Its a helping/learning tool for you to use while using a terminal connection (ssh) to a linux box while in Windows.

 

Screen shot:



 

The chmodhelper.exe is a standalone executable with no installer or uninstaller. All you have to do is click on the chmodhelper.exe. To delete the program, just delete the chmodhelper.exe file.

 

Download:

chmod helper

 

I hope it helps out a few of you.

 

morbondu

~http://www.grithouse.com~

[anyweb]

looks good

 

can we see the source ;)

 

cheers

 

anyweb

[morbondu]

sure thing... tell ya what.. I'll add the source to the zip file... plus, i'll post the a VB form in here.

 

' chmodhelper.exe '

Code:

Option Explicit Private Sub cmdChmod_Click() Dim rootSum, rr, rw, re As Byte Dim userSum, ur, uw, ue As Byte Dim worldSum, wr, ww, we As Byte rootSum = 0 rr = 0 rw = 0 re = 0 userSum = 0 ur = 0 uw = 0 ue = 0 worldSum = 0 wr = 0 ww = 0 we = 0 If chkRootR.Value = 1 Then rr = 4 Else: rr = 0 End If If chkRootW.Value = 1 Then rw = 2 Else: rw = 0 End If If chkRootE.Value = 1 Then re = 1 Else: re = 0 End If If chkUserR.Value = 1 Then ur = 4 Else: ur = 0 End If If chkUserW.Value = 1 Then uw = 2 Else: uw = 0 End If If chkUserE.Value = 1 Then ue = 1 Else: ue = 0 End If If chkWorldR.Value = 1 Then wr = 4 Else: wr = 0 End If If chkWorldW.Value = 1 Then ww = 2 Else: ww = 0 End If If chkWorldE.Value = 1 Then we = 1 Else: we = 0 End If rootSum = rootSum + rr + rw + re userSum = userSum + ur + uw + ue worldSum = worldSum + wr + ww + we lblRootOP.Caption = rootSum lblUserOP.Caption = userSum lblWorldOP.Caption = worldSum End Sub Private Sub cmdClear_Click() chkRootR.Value = 0 chkRootW.Value = 0 chkRootE.Value = 0 chkUserR.Value = 0 chkUserW.Value = 0 chkUserE.Value = 0 chkWorldR.Value = 0 chkWorldW.Value = 0 chkWorldE.Value = 0 lblRootOP.Caption = "0" lblUserOP.Caption = "0" lblWorldOP.Caption = "0" End Sub Private Sub cmdClose_Click() End End Sub

 

 

I could have used a case statement instead all of those IF statements.. I'm still learning VB. :/

 

morbondu

~http://www.grithouse.com~