Ken Uston: Million Dollar Blackjack

Kenneth Senzo Usui (Ken Uston) fue quizá el mejor jugador de blackjack del mundo. Durante los 70' y principios de los '80; él y su equipo de contadores de cartas, desbancaron a los principales casinos de Las Vegas, Atlantic City e incluso Europa.-
El libro "Million Dollar Blackjack" (el segundo de la serie sobre el juego) combina los principios elementales del conteo de cartas (métodos como As-5), con las mejores técnicas disponibles aún hoy en día (Ken HI-LO); además de relatar aventuras y experiencias recogidas durante los años.-
Los primeros capítulos, introducen conceptos matemáticos elementales para entender en profundidad el conteo de cartas. Más adelante, son presentadas otras estrategias tales como: "big player, small counters", "pushing", conteos específicos para seguros, etc.-

Ken Uston en Wikipedia.org (inglés)
Ken Uston en Wikipedia.org (español)

Descargar
Ken Uston - Million Dollar Blackjack (Inglés - 1981)
rapidshare.com (RAR - 19mb)

Password: coyotecosmico511.blogspot.com

Además de escribir sobre blackjack; Uston es autor de varios libros de computación y video juegos. Si alguien puede facilitarme otro título de cualquiera de las series (sobre todo el de la derecha) estaría realmente agradecido.-

Bibliografía:

Blackjack:

• The Big Player, 1977 (ISBN 0-03-016921-6)
• One Third of a Shoe
• Million Dollar Blackjack, 1981, Carol Publishing Group. (ISBN 0-89746-068-5)
• Ken Uston on Blackjack (ISBN 0-942637-56-9)

Video juegos:

• Mastering PAC-MAN, 1981 (ISBN 0-451-11899-5)
• Ken Uston's Guide to Buying and Beating the Home Video Games, 1982 (ISBN 0-451-11901-0)
• Ken Uston's Home Video '83, 1982 (ISBN 0-451-12010-8)
• Score! Beating the Top 16 Video Games, 1982 (ISBN 0-451-11813-8)

Computación:

• Ken Uston's Guide to Home Computers, 1983 (ISBN 0-451-12597-5)
• Ken Uston's Illustrated Guide to the Adam, 1984 (ISBN 0-13-514647-X)
• Ken Uston's Illustrated Guide to the Apple IIe, 1984 (ISBN 0-13-514688-7)
• Ken Uston's Illustrated Guide to the Commodore 64, 1984 (ISBN 0-13-514621-6)
• Ken Uston's Illustrated Guide to the Compaq, 1984 (ISBN 0-13-514696-8)
• Ken Uston's Illustrated Guide to the IBM PC, 1984 (ISBN 0-13-514704-2)
• Ken Uston's Illustrated Guide to the Kaypro, 1984 (ISBN 0-13-514795-6)
• Ken Uston's Illustrated Guide to the Macintosh, 1984 (ISBN 0-13-514829-4)
• Ken Uston's Illustrated Guide to Today's Most Popular Computers, 1984 (ISBN 0-317-13333-0)
• Ken Uston's Illustrated Guide to the IBM PCjr, 1985 (ISBN 0-13-514720-4)

Desproteger hojas y libros de Excel

Con esta simple macro es posible desproteger hojas y/o libros de Excel, mediante la llamada al procedimiento correspondiente.-

Al utilizar el siguiente código es de importancia considerar que la ejecución del mismo demandará gran cantidad de los recursos del sistema, y el tiempo del proceso dependerá de la complejidad de la contraseña asignada a la hoja y/o libro.-

Código válido para Excel 2000, 2003 y 2007 (es posible que funcione en otras versiones).-

Código VB:

Sub DesprotegerHoja()
If MsgBox("Realmente desea desproteger la hoja actual?", vbCritical + vbYesNo + vbDefaultButton2, "DesprotegerHoja") = vbYes Then
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer

On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then
'MsgBox "La clave es: " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox "La hoja está ahora desprotegida", vbInformation + vbOKOnly, "DesprotegerHoja"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End If
End Sub

Sub DesprotegerLibro()
If MsgBox("Realmente desea desproteger el libro actual?", vbCritical + vbYesNo + vbDefaultButton2, "DesprotegerLibro") = vbYes Then
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer

On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126

ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then
'MsgBox "La clave es: " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox "El libro está ahora desprotegido", vbInformation + vbOKOnly, "DesprotegerLibro"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End If
End Sub