如何知道共享密碼

如何知道共享密碼 (取自非人toib兄)

查看註冊表下面的地址﹕

HKEY_LOCAL_MACHINE\SOFTWARE\
Microsoft\Windows\CurrentVersion\Network\LanMan

看 parm1enc (根據本地機器的共享數而定)

假設您看到parmienc的鍵值為 "74d80e"

把它拆為兩個字節組合 "74 d8 0e"

看下面的表﹕

a[1] = 74, b[2] = d8, and c[3] = 0e

將發現密碼為﹕ ABC

A =74 =db =0c =e7 =12 =e8 =95 =2b
B =77 =d8 =0f =e4 =11 =eb =96 =28
C =76 =d9 =0e =e5 =10 =ea =97 =29
D =71 =de =09 =e2 =17 =ed =90 =2e
E =70 =df =08 =e3 =16 =ec =91 =2f
F =73 =dc =0b =e0 =15 =ef =92 =2c
G =72 =dd =0a =e1 =14 =ee =93 =2d
H =7d =d2 =05 =ee =1b =e1 =9c =22
I =7c =d3 =04 =ef =1a =e0 =9d =23
J =7f =d0 =07 =ec =19 =e3 =9e =20
K =7e =d1 =06 =ed =18 =e2 =9f =21
L =79 =d6 =01 =ea =1f =e5 =98 =26
M =78 =d7 =00 =eb =1e =e4 =99 =27
N =7b =d4 =03 =e8 =1d =e7 =9a =24
O =7a =d5 =02 =e9 =1c =e6 =9b =25
P =65 =ca =1d =f6 =03 =f9 =84 =3a
Q =64 =cb =1c =f7 =02 =f8 =85 =3b
R =67 =c8 =1f =f4 =01 =fb =86 =38
S =66 =c9 =1e =f5 =00 =fa =87 =39
T =61 =ce =19 =f2 =07 =fd =80 =3e
U =60 =cf =18 =f3 =06 =fc =81 =3f
V =63 =cc =1b =f0 =05 =ff =82 =3c
W =62 =cd =1a =f1 =04 =fe =83 =3d
X =6d =c2 =15 =fe =0b =f1 =8c =32
Y =6c =c3 =14 =ff =0a =f0 =8d =33
Z =6f =c0 =17 =fc =09 =f3 =8e =30
space =15 =ba =6d =86 =73 =89 =f4 =4a
1 =04 =ab =7c =97 =62 =98 =e5 =5b
2 =07 =a8 =7f =94 =61 =9b =e6 =58
3 =06 =a9 =7e =95 =60 =9a =e7 =59
4 =01 =ae =79 =92 =67 =9d =e0 =5e
5 =00 =af =78 =93 =66 =9c =e1 =5f
6 =03 =ac =7b =90 =65 =9f =e2 =5c
7 =02 =ad =7a =91 =64 =9e =e3 =5d
8 =0d =a2 =75 =9e =6b =91 =ec =52
9 =0c =a3 =74 =9f =6a =90 =ed =53
0 =05 =aa =7d =96 =63 =99 =e4 =5a
~ =4b =e4 =33 =d8 =2d =d7 =aa =14
` =55 =fa =2d =c6 =33 =c9 =b4 =0a
! =14 =bb =6c =87 =72 =88 =f5 =4b
@ =75 =da =0d =e6 =13 =e9 =94 =2a
# =16 =b9 =6e =85 =70 =8a =f7 =49
$ =11 =be =69 =82 =77 =8d =f0 =4e
% =10 =bf =68 =83 =76 =8c =f1 =4f
^ =6b =c4 =13 =f8 =0d =f7 =8a =34
& =13 =bc =6b =80 =75 =8f =f2 =4c
* =1f =b0 =67 =8c =79 =83 =fe =40
( =1d =b2 =65 =8e =7b =81 =fc =42
) =1c =b3 =64 =8f =7a =80 =fd =43
- =18 =b7 =60 =8b =7e =84 =f9 =47
_ =6a =c5 =12 =f9 =0c =f6 =8b =35
+ =1e =b1 =66 =8d =78 =82 =ff =41
= =08 =a7 =70 =9b =6e =94 =e9 =57
[ =6e =c1 =16 =fd =08 =f2 =8f =31
] =68 =c7 =10 =fb =0e =f4 =89 =37
{ =4e =e1 =36 =dd =28 =d2 =af =11
} =48 =e7 =30 =db =2e =d4 =a9 =17
; =0e =a1 =76 =9d =68 =92 =ef =51
: =0f =a0 =77 =9c =69 =93 =ee =50
' =12 =bd =6a =81 =74 =8e =f3 =4d
" =17 =b8 =6f =84 =71 =8b =f6 =48
, =19 =b6 =61 =8a =7f =85 =f8 =46
< =09 =a6 =71 =9a =6f =95 =e8 =56
. =1b =b4 =63 =88 =7d =87 =fa =44
> =0b =a4 =73 =98 =6d =97 =ea =54
? =0a =a5 =72 =99 =6c =96 =eb =55
/ =1a =b5 =62 =89 =7c =86 =fb =45
\ =69 =c6 =11 =fa =0f =f5 =88 =36
| =49 =e6 =31 =da =2f =d5 =a8 =16

連動式下拉選單

    Protected Sub ddl_rt1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs)
        '史上最強無敵在DetailsView連動式下拉選單
        SqlDataSource3.SelectParameters("區域編號").DefaultValue = CType(DetailsView1.FindControl("ddl_rt1"), DropDownList).SelectedValue
    End Sub

    Protected Sub ddl_rt1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        DetailsView1.FindControl("ddl_rt2").Dispose() ' By zk
        SqlDataSource3.SelectParameters("區域編號").DefaultValue = CType(DetailsView1.FindControl("ddl_rt1"), DropDownList).SelectedValue
    End Sub

命令提示字元下的合併方法

copy /b a01.mpg+a02.mpg a03.mpg

WinRAR九大不傳密技

[其　　他][討論] [轉貼] WinRAR九大不傳密技

　　WinRAR是大家平時用得最多的壓縮軟體，針對它的技巧文章也很多。不過，儘管如此，我們還是挖出了很多玩家沒有找出的一些獨門絕技。在此，借《電腦愛好者》一角，與大家共同探討！

密技一:注意危險自解壓程序

　　相信使用WinRAR來元件服務木馬的文章大家也見到了很多。在此，建議大家，收到可執行的附件文件時，先把它們儲存起來。然後試著右擊它，選項WinRAR表單，如果其下「用WinRAR開啟」指令可用●，則表明此程序是一個自解壓程序。此時可以把該檔案的副檔名由EXE改為RAR，雙按後即可用WinRAR開啟它，這樣會安全許多。


密技二:讓WinRAR「專一」工作

　　在第7期第31頁的《編輯壓縮包中的文件別讓WinRAR休息》中我們已經提醒大家，在編輯壓縮包內文件時，千萬不要關閉該壓縮包視窗，否則無法儲存對文件的修改。另外，如果在此時雙按開啟其他RAR壓縮包，WinRAR可能會自動關閉你正在修改文件的壓縮包，從而無法更新所做修改，所以建議你在WinRAR視窗中按下Ctrl+S鍵，取消「一般」標籤下的「重複使用已存在的視窗」複選框。


密技三:文件壓縮大小我先知

　　開啟WinRAR視窗，選項要壓縮的文件，按下工作列上的「信息」按鈕，在開啟視窗中按下「估計」按鈕，WinRAR會給出壓縮率、壓縮包大小和壓縮這個文件需要的時間等資料，這對於你壓縮比較大的文件或資料夾非常有用。如果你希望每次按下「信息」按鈕，以後WinRAR自動對文件進行評估的話，還可以選「自動開始」選項。

密技四:快速更換驅動器

　　按下Ctrl+D鍵，可在WinRAR視窗中出現電腦上所有驅動器列表，用滑鼠選項即可快速進入相應的驅動器。


密技五:批量建立資料夾

　　如果在工作中，經常要建立很多相同資料夾結構（如在制作備份資料時）。那可以把這個繁瑣的工作讓WinRAR完成:先在「檔案總管」中把多個資料夾結構建好（包括其下的子資料夾），再選並右擊這些資料夾，選項WinRAR→「增加到壓縮檔案」，在開啟的設定視窗中選「壓縮選項」下的「新增自釋放格式檔案文件」前複選框，按下「確定」按鈕。再把產生後的EXE文件改名為folders.exe。以後要在哪個資料夾下建立上述資料夾，只要把這個檔案拷貝到那個資料夾下，再雙按folders.exe，按下「安裝」按鈕即可。


密技六:我的設定你別改

　　啟動「記事本」，在其中輸入以下語句:
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\WinRAR\Policy]
"Menu"=dword:00000000
"Settings"=dword:00000000

　　把它儲存為limitrar.reg文件，再雙按並匯入這個REG文件，把它匯入註冊表。啟動WinRAR，你會發現表單無法使用，而且按Ctrl+S鍵也無法調出「設定」和「選項工作列按鈕」視窗，相對安全多了

小提示:
★把以上語句中的00000000改為00000001，另存新檔unlim.reg。雙按匯入unlim.reg文件即可恢復表單，並允許使用「設定」視窗。
★其中的Menu項設定為0/1，用來禁止/允許WinRAR 主表單，而Settings項設定為0/1，用來禁止/允許「設定」和「選項工作列按鈕」對話視窗。
★如果你使用Windows 9x/Me，請把上面的Windows Registry Editor Version 5.00改為REGEDIT 4。


密技七:快速解壓RAR壓縮包指定文件

　　如果想解壓RAR壓縮包中指定文件，可在開啟RAR文件後，選「選項」→「文件列表」→「平面資料夾檢視」。此RAR壓縮包中的所有文件會都顯示出來（包括在相應資料夾中的），此時只要像「檔案總管」中一樣，按下相應按鈕，如名稱、大小、類型、修改時間、路徑等，就能對RAR包中的所有文件進行排序，做到一目瞭然。按檔案類型排序後，配合Ctrl或Shift鍵選指定文件，用滑鼠拖放到資料夾下即可快速解壓。按下Ctrl+H鍵取消平面資料夾檢視模式。

小提示
　　先把RAR包切換到平面資料夾檢視模式，再按下「類型」按鈕，該包中所有類型的文件就被放置在一起（如所有的.tmp文件），先選第一個文件，按住Shift鍵不鬆開，再按下最後一個文件，選相應文件，按下Del鍵即可刪除掉RAR包中同一類型文件。


密技八:批量轉換壓縮包

　　如果你手頭上有多種格式的壓縮包，想把它們都轉換為RAR包，那可以這樣做:先把這些壓縮包放到一個資料夾下，如C:\compress。在WinRAR中選C:\compress資料夾。再按下「指令」→「轉換壓縮檔案」，在開啟的視窗中勾選「刪除原來的壓縮檔案」複選框，按下「確定」按鈕即可把它們轉換成RAR壓縮包●。通過此法，可以把ZIP、CAB、ARJ、ACE、TAR、BZ2 、UUE、GZ、LZH等壓縮包轉換成RAR格式。


密技九:重要文件，別刪

　　在RAR壓縮包中刪除文件後，WinRAR會自動更新它，其中被刪除的文件無法再找到（資源回收桶中也沒有）。因此，如果壓縮包確實不再修改或比較重要，則請選此壓縮包（不要雙按開啟它），然後按Alt+L組合鍵，在開啟的視窗中驗證「禁止修改壓縮檔案」複選框被選，按下「確定」按鈕即可把此壓縮包鎖住，其中的文件便無法被修改或刪除。

　　此指令只支持RAR壓縮檔案，同時，在壓縮檔案時，設定視窗中也有一個「鎖定壓縮檔案」複選框●，一旦選，產生後的壓縮包將無法再修改，它對於制作備份重要資料很有用。

ADO.net 程式碼大全 For VB

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        'Datareader
        Dim cn As SqlConnection = New SqlConnection(ado.conn)
        Dim cmd As SqlCommand = New SqlCommand("select * from book;select * from test", cn) '讀雙資料表大絕!!
        cn.Open()
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        'dr.Read() '特性為一次讀一欄
        Do While dr.Read()
            'TextBox1.Text = dr.Item("ct")
            Response.Write(dr.Item("ct") + "<br />")

        Loop
        dr.NextResult()
        Do While dr.Read()
            'TextBox1.Text = dr.Item("ct")
            Response.Write(dr.Item("ct2") + "<br />")

        Loop
        'TextBox1.Text = dr.GetValue(1)
        dr.Close()
        With cn
            .Close()
            .Dispose()
        End With
        cn = Nothing

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        'dataset
        Dim cn As SqlConnection = New SqlConnection(ado.conn)
        Dim ap As SqlDataAdapter = New SqlDataAdapter("select * from book", cn)
        'Dim ap As SqlDataAdapter = New SqlDataAdapter("update set ct = @ct WHERE id = 1", cn)
        Dim dt As DataSet = New DataSet()
        ap.Fill(dt, "444")
        TextBox1.Text = dt.Tables(0).Rows(0)(1)
        Dim ap2 As SqlDataAdapter = New SqlDataAdapter("select * from test", cn) '讀雙資料表大絕!!
        ap2.Fill(dt, "555")
        Response.Write(dt.Tables("555").Rows(0)(1))
        'GridView1.DataSource = dt.Tables(0)
        'GridView1.DataBind()

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        'datareader update
        Using cn As New SqlConnection(ado.conn)
            cn.Open()
            Dim cmd As New SqlCommand("update book set ct = @ct where id = 2", cn)
            cmd.Parameters.AddWithValue("@ct", TextBox1.Text)
            cmd.ExecuteNonQuery()
        End Using
        'cn.Close() 使用USING可以不需要去關閉!
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        'dataset update
        Dim cn As SqlConnection = New SqlConnection(ado.conn)
        'Dim ap As SqlDataAdapter = New SqlDataAdapter
        Dim ap As SqlDataAdapter = New SqlDataAdapter("select * from book where id = 2", cn)
        'Dim dt As DataSet = New DataSet()
        Dim dt As DataTable = New DataTable()
        ap.Fill(dt)
        ap.InsertCommand = New SqlCommand("insert into book ct values @ct ", cn)
        ap.UpdateCommand = New SqlCommand("update book set ct = '5214' where id = 2", cn)
        'ap.UpdateCommand.CommandText = "update book set ct = @ct where id = 2"
        'ap.UpdateCommand.Parameters.AddWithValue("@ct", TextBox1.Text)
        dt.Rows(0)(1) = "555"
        ap.Update(dt) '由於update()方法會自動偵測變更選用相關command 所以他的更新方式很機車= =
    End Sub
End Class